أستاذ kha9009lid الطريقتين يمكن اختراقهما بعدما عدلة كتابة كما في الصورة أدناه
If DCount("*", "test1", "login='" & Me.Texte1 & "'" & " and passe='" & Me.Texte3 & "'") = 0 Then
MsgBox "????"
Else
DoCmd.OpenForm "test2", acNormal
DoCmd.Close acForm, Me.Name, acSaveNo
End If
Dim myWhere As String
myWhere = "login='" & Me.Texte1 & "'"
myWhere = myWhere & " and" '<اهم شيء هو ترك مسافة في البداية قبل and
myWhere = myWhere & " passe='" & Me.Texte3 & "'" '<اهم شيء هو ترك مسافة في البداية قبل passe
Debug.Print myWhere
If DCount("*", "test1", myWhere) = 0 Then
MsgBox "????"
Else
DoCmd.OpenForm "test2", acNormal
DoCmd.Close acForm, Me.Name, acSaveNo
End If
الا أنا الطريقة الاخيرة للاستاذ jjafferr لا يمكن اخترقها بهذه الكيفية