Predmet:Re: prikaz stanja naformi

---

Nemoras.
Na formi pretraga imas listbox koji se zove isresult.
U njegovom Rowsource imas Query QPretrage i mozes mijenjati samo ta Query pri podizanju.
Medjutim mislim da i on nije dobar.
U njemu si imas da ga mogu pokretati samo ovneri a ne Useri.
WITH OWNERACCESS OPTION.
Neznam da ti to treba.
Mislim da si tu opciju slucajno promijenio.
Evo SQL Bez te opcije

Znaci ovo bi bio sadrzaj tvoga Query-a QPRETRAGE.

Na formi Izlaz detalji stavi ovo:
Private Sub interna_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF5
PintFlag = 0
Dim Qdf As QueryDef
Dim Db As Database
Dim SQL As String
Set Db = CurrentDb
Set Qdf = Db.QueryDefs("QPretrage")
SQL = SQLSTR
SQL = SQL & " WHERE crveno.apoteka=[Forms]![IZLAZ]![Apoteka] ORDER BY proizvodi.PROIZVOD"
Qdf.SQL = SQL
Qdf.Close
Set Db = Nothing
DoCmd.OpenForm "Pretraga", acNormal, , , , acDialog
If PintFlag = 1 Then
Me.interna = PrenoS
DoCmd.RunCommand acCmdSaveRecord
Me.interna.SetFocus
End If
Me.proizvod = Me.interna.Column(1)
Me.ime = Me.interna.Column(2)
Me.sifra = Me.interna.Column(3)
Me.cijena = Me.interna.Column(4)
Me.participacija = Me.interna.Column(5)
Me.zavod = Me.interna.Column(6)
Me.jedmj = Me.interna.Column(7)
Me.porez = Me.interna.Column(8)
Me.usluga = Me.interna.Column(9)
End Select
End Sub
Private Sub interna_KeyPress(KeyAscii As Integer)
Me!interna.Dropdown
End Sub
Private Sub INTERNA_NotInList(NewData As String, Response As Integer)
MsgBox " Nemate takavu Å¡ifru ! " & Chr(13) _
& "Želite ponovo provjeriti ?", vbInformation, "Queensland Computer" ' Define message.
Response = acDataErrContinue
End Sub

Ja sam dodao samo boldovani dio.
U ulaz dodaj ovaj isti kod sem sto ce ovaj dio biti drugaciji:
WHERE crveno.apoteka=[Forms]![ULAZ]![Apoteka] ORDER BY proizvodi.PROIZVOD"
Znaci samo umjesto izlaz napises ulaz.

U neki modul na vrh stavi ovu konstantu:
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"

---