فيما يخص الدالة dlookup استطعت بفضل الله أن أجد لها حل ولازلت أبحث حل بالنسبة ل recordset
On Error GoTo errouu
If Me.Texte3 = DLookup("passe", "test1", "login='" & Me.Texte1 & "'") Then
DoCmd.OpenForm "test2", acNormal
DoCmd.Close acForm, Me.Name, acSaveNo
Else
MsgBox "????"
End If
errouu :
حتى المعادلة الخاصة بأستاذ jjafferr لا يمكن اخترقها بهذه الطريقة
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