Upravo je problem u tome što se update izvršava samo kad pritisneš ENTER, a ukoliko samo klikneš na dugme ništa se neće desiti.Dakle skroz ukloni ono keyascii iz commandbutonna i ostavi da bude ovako.
Code:
Private Sub Command1_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Data1.Recordset.Update
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = CStr(CSng(Text1.Text) + CSng(Text2.Text))
Command2.SetFocus
End If
End Sub
Probaj tako.Trebalo bi da radi.
-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