07-07-16, 11:24 PM
Private Sub Command1_Click
()
On Error Resume Next: Err.Clear
Adodc1.RecordSource = "select * from logtable where names='" & Text1.Text & "' and pass='" & Text2.Text
" '" &
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "error to enter passward", vbCritical, "please make sure username password
"
Else
MsgBox ("success
")
Form2.Show
Unload Me
End If
End Sub
ارجو المساعدة اريد اولا تعديل الكود ثم كلما اضفت في القاعدة اسم مستخدم يظهر في الكومبو 1
()
On Error Resume Next: Err.Clear
Adodc1.RecordSource = "select * from logtable where names='" & Text1.Text & "' and pass='" & Text2.Text
" '" &
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "error to enter passward", vbCritical, "please make sure username password
"
Else
MsgBox ("success
")
Form2.Show
Unload Me
End If
End Sub
ارجو المساعدة اريد اولا تعديل الكود ثم كلما اضفت في القاعدة اسم مستخدم يظهر في الكومبو 1

