Prikazi cijelu temu 24.06.2013 17:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function NV(ImePolja As String, ImeTabele As String, Uslov As String)
  2. Dim DB As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5.  
  6. If Len(Uslov) <= 26 Then GoTo kraj
  7. On Error Resume Next
  8. SQL = "SELECT " & ImePolja & " FROM " & ImeTabele & " WHERE " & Uslov
  9. Set DB = CurrentDb()
  10. Set Rs = DB.OpenRecordset(SQL)
  11. NV = Rs.Fields(0)
  12. kraj:
  13. 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):
  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
  5. 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..
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.