[es] - Pitanje u vezi forme....Za prikaz nakon klika.

AnoninO
Faruk Pasic
BIH, Sarajevo

Član broj: 78773
Poruke: 66
*.as36.go.bih.net.ba.

Profil

Pitanje u vezi forme....Za prikaz nakon klika.

^{16.01.2006. u 10:50 - pre 222 meseci}

Evo u prilogu ima slika npr. Kada kliknem na VIMES DOO da mi automatski prikaze podatke od te firme.... U istoj formi...
Hvala unaprijed

Odgovor na temu

sbing
Hr

Član broj: 48455
Poruke: 77
*.net.t-com.hr.

Profil

Re: Pitanje u vezi forme....Za prikaz nakon klika.

^{16.01.2006. u 11:24 - pre 222 meseci}

Kad staviš listBox onda ti se pokrene wizard, odeš na treću opciju (Find).

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Pitanje u vezi forme....Za prikaz nakon klika.

^{16.01.2006. u 13:13 - pre 222 meseci}

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

Odgovor na temu