Mozes i ovako.Postavi jedan textbox (nek bude Text1) kome ces dodeliti polje iz baze u kome su ti sifre i stavi visible false,zatim napravi jos dva textbox-a txtSifra i txtIme i textbox-u txtIme dodeli polje iz baze gde su smestena imena.I ukucaj sledeci kod u keypress event txtSifra
Code:
Private Sub txtSifra_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
db.Recordset.FindFirst "[ime polja gde su sifre] = " & Val(txtSifra.Text)
If db.Recordset.NoMatch = True Then MsgBox "U bazi ne postoji artikl sa unetom sifrom"
End If
End Sub
Ovo je kod pod uslovom da ti je polje gde su sifre neki number datatype(integer,long...), a ukoliko je string onda kod izmeni ovako
Code:
Private Sub txtSifra_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
db.Recordset.FindFirst "[ime polja gde su sifre] = '" & txtSifra.Text & "'"
If db.Recordset.NoMatch = True Then MsgBox "U bazi ne postoji artikl sa unetom sifrom"
End If
End Sub
Poz.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti