RZ_HAFEZ
دوشنبه 02 مهر 1386, 14:22 عصر
برای ذخیره اطلاعات در یک بانک اطلاعاتی از از کد زیر استفاده میکنم
Private Sub Text12_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Adodc1.Recordset.AddNew
Text1.SetFocus
End If
Adodc1.Refresh
DataGrid1.ReBind
End Sub
ولی ERROR زیر را میدهد
RUN TIME ERROR
OPERATION WAS CANCELED
با تشکر
Private Sub Text12_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Adodc1.Recordset.AddNew
Text1.SetFocus
End If
Adodc1.Refresh
DataGrid1.ReBind
End Sub
ولی ERROR زیر را میدهد
RUN TIME ERROR
OPERATION WAS CANCELED
با تشکر