Evo u prilogu ima slika npr. Kada kliknem na VIMES DOO da mi automatski prikaze podatke od te firme.... U istoj formi...
Hvala unaprijed
Hvala unaprijed
Pitanje u vezi forme....Za prikaz nakon klika.
Zaključano
Zakačeno
Kad staviš listBox onda ti se pokrene wizard, odeš na treću opciju (Find).
A Imas vise nacina
ja ovako radim , sve u kodu
samo na sql upit stavis svoju tablicu i ime listboxa i malo si popravis
nazive Fielda
Dim dato As Database
Dim rek As Recordset
Set dato = CurrentDb
Dim sqlupit As String
sqlupit = "SELECT * From roba WHERE sifra_robe = " & listbox1.value
Set rek = dato.OpenRecordset(sqlupit)
If rek.EOF = True Then
naziv = ""
Jmj = ""
sifra_porst = ""
Mpro_Cijena = ""
barcod = ""
grupamat = ""
FaktorMat = ""
oznusluga = ""
Else
naziv = rek.Fields("naziv").Value
Jmj = rek.Fields("jmj").Value
sifra_porst = rek.Fields("sifra_porst").Value
Mpro_Cijena = rek.Fields("mpro_cijena").Value
barcod = rek.Fields("barcod").Value
grupamat = rek.Fields("grupamat").Value
FaktorMat = rek.Fields("faktormat").Value
oznusluga = rek.Fields("oznusluga").Value
End If
rek.Close
Set dato = Nothing
ja ovako radim , sve u kodu
samo na sql upit stavis svoju tablicu i ime listboxa i malo si popravis
nazive Fielda
Dim dato As Database
Dim rek As Recordset
Set dato = CurrentDb
Dim sqlupit As String
sqlupit = "SELECT * From roba WHERE sifra_robe = " & listbox1.value
Set rek = dato.OpenRecordset(sqlupit)
If rek.EOF = True Then
naziv = ""
Jmj = ""
sifra_porst = ""
Mpro_Cijena = ""
barcod = ""
grupamat = ""
FaktorMat = ""
oznusluga = ""
Else
naziv = rek.Fields("naziv").Value
Jmj = rek.Fields("jmj").Value
sifra_porst = rek.Fields("sifra_porst").Value
Mpro_Cijena = rek.Fields("mpro_cijena").Value
barcod = rek.Fields("barcod").Value
grupamat = rek.Fields("grupamat").Value
FaktorMat = rek.Fields("faktormat").Value
oznusluga = rek.Fields("oznusluga").Value
End If
rek.Close
Set dato = Nothing