29-11-12, 11:17 AM
الكد بعد التعديل :
مثل ما توقعت الخطأ طلع فى تسمية الحقول كانت خاطئة
كود :
If Text1 = "" Or Text2 = "" ThenMsgBox " Sorry,You Must Type The Username And Password ", vbCritical + vbMsgBoxRight, " ErrorLogin "
Exit Sub
End If
SQLs = "SELECT * FROM users WHERE name ='" & Text1.Text & "' and password='" & Text2.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 "
Text2 = ""
Text2.SetFocus
Else
'Save This Inforamtion
UserNames = Text1
UserPassword = Text2
Set rs = Nothing
Set db = Nothing
Me.Hide
MDIForm1.Show
End If
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ