nevsad 28.06.2013 06:15
Predmet:Re: prikaz stanja naformi

fino hvala
ramic

nevsad 01.07.2013 07:14
Predmet:Re: prikaz stanja naformi

na ulazu lijekova na polju interna
pokusao sam ali na F5 pretragu imam run time 3129
nešto nevalja na SQLSTR
ali me zaustavi na sqlstr (stavio sam je u jedan model Const SQLSTR :::) u pozivu forme ulaza lijekova na polju interna ovaj iskaz mi je prazan
SQL = SQLSTR je prazan
ovdje me zaustavi Qdf.SQL = SQL

zxz 01.07.2013 12:57
Predmet:Re: prikaz stanja naformi

Hehe vidio sqam ja to ali ti si vec napisao "fino hvala
ramic"
Naime Zaboravio sam napisati SQLStr sadrzaj.
Mozes u neki modul kao konstantu napisati:
Global Const SQLSTR = "SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, " _
& "proizvodi.participacija, proizvodi.zavod " _
& "FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) " _
& " ON crveno.PROIZVOD = proizvodi.PROIZVOD"

Ili ako ti se ovo ne svidja mozes i u tag neke kontrole ili forme.
Mislim da ti je ovo zgodnije.
samo dodasi treba da radi sve pod uslovom ako si u hwerw kod ulaza promijenio putanju uslova.

nevsad 02.07.2013 20:49
Predmet:Re: prikaz stanja naformi

PO POZIVU FORME PRETRAGA NA POLJU lstResults IMAM, IZ BILO KOGA POLJA INTERNE,SVE RECORDE KNJIZENJA TIH PROIZVIODA A NE PROIZVODE (1A SE PONAVLJA 100 PUTA ITD)
I U SQL ISKAZU QUERY QPRETRAGA SKINUO SAM KLAUZULU WHERE JER SE ODNOSI SAMO NA ULAZ

STAVIO
SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) ON crveno.proizvod = proizvodi.PROIZVOD
ORDER BY proizvodi.PROIZVOD;

UMJESTO
SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) ON crveno.proizvod = proizvodi.PROIZVOD
WHERE (((crveno.apoteka)=[Forms]![IZLAZ]![Apoteka]))
ORDER BY proizvodi.PROIZVOD;

zxz 05.07.2013 08:04
Predmet:Re: prikaz stanja naformi

Dali to sad radi ili ne?
Da ne gledam ponovo.

nevsad 05.07.2013 13:15
Predmet:Re: prikaz stanja naformi

ne zato sto u pretragama pokazuje sve recorde(ulaza,izlaza,povrata) a ne bazu proizvoda

u Queriju pretrage sam pokusao sa relacijama tabela ali ne ide

nevsad 05.07.2013 13:26
Predmet:Re: prikaz stanja naformi

ne radi dobro forma pretrage

zxz 07.07.2013 12:09
Predmet:Re: prikaz stanja naformi

Moze se jos toga dovesti u red ali bi mi trebalo vise vremena a i ubija me ovo sirenje formi na max prilikom rada.
Zato se koristi meni funkcija i kada ides preko nje onda je to napisano samo na jednom mjestu a ne ovako rastrkano.
Znaci napravi se jedna procedura u kojoj se setuje ime forme i onda tu pises i opstale osobine setovane forme.

Idemo ovo tvoje.
-Kopiraj ili preimenuj tvoju formu frmUlaz u frmPokreni.
-Poslije mozes izbrisati forme frmulaz i frmIzlaz.
-Zasto dvije kada moze jedna forma..
-na vrh tvoga modula a ispod Option Compare Binary Funkcije (Moze i neki drugi) stavi ovo:
Global K As Integer

Forma LOGO.
Tamo imas tastere:
-Recepti esencijalna
-Ulaz lijekova
-Pocetno stanje
-Povrat robe.

Svi ovi nabrojani su za ulaz robe sem ovoga recepti esencijalna sto znaci da se moze koristiti jedna forma samo u polje vrsta u tabeli ulaza pisat ce se koja je vrsta i to bolje brojcano sa kodnom:
Napr:
1-Ulaz standardni
2-Pocetno stanje
3-Povrat

To isto mozes rijesiti jednom globalnom var. kao sto sam ja stavio K.
Znaci bilo bi:
Global VrstaUlaza as integer

Izmjene ne ovoj formi:
Private Sub Command1_Click()
DoCmd.OpenForm "frmPokreni", acNormal 'frmizlaz
K = 0
End Sub
Private Sub Command2_Click()
DoCmd.OpenForm "frmPokreni", acNormal 'frmulaz
K = 1
End Sub
Forma FrmPokreni:
Samo se mijenja ovaj kod a ostalo mozes ostaviti isto sto je bilo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub APOTEKA_Click()
  2. Dim NazivF As String
  3.  
  4. If K = 0 Then
  5. NazivF = "Izlaz"
  6. ElseIf K = 1 Then
  7. NazivF = "Ulaz"
  8. End If
  9.  
  10.     DoCmd.OpenForm NazivF, acNormal, "", "[APOTEKA]=[Forms]![frmpokreni]![APOTEKA]", , acNormal
  11.     DoCmd.GoToRecord , , acLast
  12. End Sub

Query:
Napravi Query QPretrageI sa ovim sadrzajem:
PreuzmiIzvorni kôd (SQL):
  1. SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
  2. FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) ON crveno.PROIZVOD = proizvodi.PROIZVOD
  3. WHERE (((crveno.apoteka)=[Forms]![IZLAZ]![Apoteka]))
  4. ORDER BY proizvodi.PROIZVOD;
I Query QPretrageU sa sledecim sadrzajem:
PreuzmiIzvorni kôd (SQL):
  1. SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
  2. FROM proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra
  3. ORDER BY proizvodi.PROIZVOD;
Forma PRETRAGA
Mijenja se ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. If K = 0 Then
  2. Me.lstResults.RowSource = "QpretrageI"
  3. ElseIf K = 1 Then
  4. Me.lstResults.RowSource = "QpretrageU"
  5. End If

Na polju lstResults Rowsource ostavi prazno.

Nadam se da nisam nista zaboravio.
Moglo bi se tu jos stosta doraditi ali iziskuje vrijeme.

nevsad 11.07.2013 08:06
Predmet:Re: prikaz stanja naformi

fino hvala savjeti su ok
sve ću probati pa se čujemo
pozdrav
ramic