عايز اكتب الشرط ده ومش عارف بدالة if

[محمد عبدالوهاب الريس]

()Private Sub Command4_Click
If [Text1] = " mo" And [Text2] ="3122" Then
افتح نموذج لوجان 
Else
اغلق قاعدة البيانات 
End If
End Sub
 معلش انا اسف جدا بتعلم 

 

[ابو ياسين المشولي]

27 دقائق مضت, محمد عبدالوهاب الريس said:

()Private Sub Command4_Click
If [Text1] = " mo" And [Text2] ="3122" Then
افتح نموذج لوجان 
Else
اغلق قاعدة البيانات 
End If
End Sub
 معلش انا اسف جدا بتعلم 

 

اتفضل
Private Sub Command4_Click()
If [Text1] = " mo" And [Text2] = "3122" Then
 DoCmd.OpenForm "لوجان"
Else
DoCmd.Quit
End If
End Sub

اتفضل