rezultat upita u textbox-u

[ milekrajina @ 21.03.2011. 07:27 ] @

zanima me kako da uradim sledece:da kada pritisnem tab ili enter rezultat sql upita prikazem u drugom textbox?
znaci,u textbox kucam sifru artikla i nakon entera ili taba on mi u drugom textboxu da naziv tog artikla?
radim sa dao..
znam da ide keypress..

[ vuchko.vuchko @ 21.03.2011. 08:35 ] @

Ovako bi trebao uraditi...

Code:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.Text=TvojRecordSet.Field("NazivTvogProizvoda").Value
End If
End Sub

[ milekrajina @ 21.03.2011. 10:34 ] @

**************************
Method or data member not found
**************************
mi javlja gresku...

postavio sam kod ovako:
***************************************************
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text4.Text = mrstGym.Field("Naziv_Artikla").Value
End If
***************************************************
U modulu sam stavio:

Public pdbMembers As Database
Public mrstGym As Recordset

****************************************************
form load:

Private Sub Form_Load()

Set pdbMembers = OpenDatabase(App.Path & "\OpenData11.mdb")
Set mrstGym = pdbMembers.OpenRecordset("SELECT * FROM tblSifArtikala ORDER BY R_Artikla")
mblnBrow = False
cmdFirst_Click
****************************************************
Ako moze pomoc gde gresim?ili neki primer za ovo sto sam trazio,hvala!!!!

[ vuchko.vuchko @ 21.03.2011. 22:08 ] @

Pa mozda je ovde problem:

******************************************
Text4.Text = mrstGym.Field("Naziv_Artikla").Value
******************************************

a treba

******************************************
Text4.Text = mrstGym.Fields("Naziv_Artikla").Value
******************************************

[ milekrajina @ 23.03.2011. 08:53 ] @

Javlja:

Run-time error 94
Invalid use of Null i markira ceo red :

**************************************
Text4.Text = mrstGym.Fields("Naziv_Artikla").Value
**************************************
Sta da dalje pokusam?

[ vuchko.vuchko @ 23.03.2011. 10:02 ] @

Pa jel imas u tabeli tblSifArtikala polje koje se tacno zove Naziv_Artikla???

[ goranvuc @ 23.03.2011. 12:26 ] @

Code:
Text4.Text = mrstGym.Fields("Naziv_Artikla").Value & ""

[ Marko_L @ 10.04.2011. 18:27 ] @

Postoji i funkcija IsNull sa kojom možeš proveriti da li je vrednost nečega null pre nego što pokušaš nešto da uradiš sa njom, recimo da je upišeš u textbox ili da odradiš neku računsku operaciju ukoliko se radi o brojčanoj vrednosti. Znam da je to blagi offtopic, ali nekome možda bude korisno.

[ izonic @ 12.04.2011. 23:40 ] @

Text4.Text = format$(mrstGym.Fields("Naziv_Artikla").Value)