Predmet:Re: prikaz stanja naformi
Uf sledeci put daj bar imena formi.
Nije dobro ici mnogo puta u subform a zasto nisi ni imao potrebu.
Ovaj primjer je radjen za recepti esencialna odnosno forma izlaz.
I na ostalo se moze primijeniti isto.
Evo ovako:
Ovu proceduru stavi u neki modul.
PreuzmiIzvorni kôd (Visual Basic):Function NV(ImePolja As String, ImeTabele As String, Uslov As String)
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
If Len(Uslov) <= 26 Then GoTo kraj
On Error Resume Next
SQL = "SELECT " & ImePolja & " FROM " & ImeTabele & " WHERE " & Uslov
Set DB = CurrentDb()
Set Rs = DB.OpenRecordset(SQL)
NV = Rs.Fields(0)
kraj:
End Function
Tvoju formu crveno mozes pobrisati i pobrisati i prozor za subformu crveno na formi POCETNODETALJI.
E sada sta treba dodati:
Na formi izlaz dodati text box :
Ime-Apoteka
Controlsource-apoteka
Ovo polje i nemora biti vidljivo ako ti ne pase
Na formi POCETNODETALJI dodati text box:
ime-stanje
ControlSource-==NV("stanje";"Crvenopravo";"apoteka='" & [Forms]![IZLAZ]![Apoteka] & " AND proizvod='" & [interna].[column](1))
Na postojecem combu pod imenom:
interna u rowsource upisati ovaj SQL:
SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, proizvodi.sifra, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod, proizvodi.jedmj, proizvodi.POREZ, proizvodi.minimum, proizvodi.maximum FROM crveno INNER JOIN proizvodi ON crveno.proizvod = proizvodi.PROIZVOD WHERE (((crveno.apoteka)=[Forms]![IZLAZ]![Apoteka])) ORDER BY proizvodi.PROIZVOD
Na formi Pretraga
U list boxu isresult u rowsource upisati ovaj sql:
PreuzmiIzvorni kôd (SQL):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
WITH OWNERACCESS OPTION;
E sad pšosto nju vjerovatno podizes i sa drugih opcija ovo bi trebao biti dinamicki sql tj. da se upisuje pri podizanju forme.
Nije mi se dalo to da istrazujem jer nije nista napisano a ni pripremljeno za normalno koristenje.
Ima mouse hveklee dll.
Maksimiza prozora itd.. itd..
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.