01-06-14, 03:41 PM
بسم الله الرحمن الرحيم
اهلا بكم
عند كتابة الكود التالى فى حدث النقر لزر الامر تظهر تلك الرسالة بدون تحديد ما هو الخطأ فى الكود بالضبط
الكود كما يلى :
و صورة الخطأ كما يلى :
وشكر لكم مقدما
اهلا بكم
عند كتابة الكود التالى فى حدث النقر لزر الامر تظهر تلك الرسالة بدون تحديد ما هو الخطأ فى الكود بالضبط
الكود كما يلى :
كود :
Private Sub cmdOK_Click()
If txtUserName.Text = "" Or txtPassword.Text = "" Then
MsgBox " ÚÝæÇ áÇ íãßä ÊÑß ÍÞæá ÝÇÑÛÉ ", vbCritical + vbMsgBoxRight, " Error"
Exit Sub
End If
SQLs = "Select * From users Where UserName = ' " & txtUserName.Text & " ' And PassWord = ' " & txtPassword.Text & " ' "
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
If RS.EOF Then
MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical + vbMsgBoxRight, " Error Login "
Else
UserNames = txtUserName.Text
UserPassword = txtPassword.Text
Unload Me
End If
End Subو صورة الخطأ كما يلى :
وشكر لكم مقدما