19-04-13, 06:16 PM
عند الضغط على الكمبو بوكس
لأضهار النتائج في التيكست
يحصل هذا الخطأ
Private Sub Combo2_Click()
If RS.State = 1 Then RS.Close
SQL = "select * from item where nameitem = '" & Combo2 & ""
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic <------- هنا الخطأ
If RS.EOF = False Then
Text2.Text = RS!prins
Text5.Text = RS!num
End If
RS.Close
Set RS = Nothing
End Sub
لأضهار النتائج في التيكست
يحصل هذا الخطأ
Private Sub Combo2_Click()
If RS.State = 1 Then RS.Close
SQL = "select * from item where nameitem = '" & Combo2 & ""
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic <------- هنا الخطأ
If RS.EOF = False Then
Text2.Text = RS!prins
Text5.Text = RS!num
End If
RS.Close
Set RS = Nothing
End Sub