دمج حقلين في دالة if ارجو المساعدة

[mostafaelshnawy5]

السلام عليم اخواني الاعزاء

واحدة   if  في دالة   (nam2)وحقل (date1) اريد دمج الحقلين حقل

If IsNull(date1) Then
MsgBox ("من فضلك ادخل التاريخ"), vbCritical, "حقل فارغ"
date1.SetFocus
End If

If IsNull(nam2) Then
MsgBox ("من فضلك ادخل اسم الفرع"), vbCritical, "حقل فارغ"
nam2.SetFocus
End If

     

[rey360]

If IsNull(date1)then
MsgBox "من فضلك ادخل التاريخ"
else
  If IsNull(nam2)then
   MsgBox "من فضلك ادخل اسم الفرع"
  end if
end if

أرجوا أن يكون المطلوب

[mostafaelshnawy5]

13 minutes ago, rey360 said:

If IsNull(date1)then
MsgBox "من فضلك ادخل التاريخ"
else
  If IsNull(nam2)then
   MsgBox "من فضلك ادخل اسم الفرع"
  end if
end if

أرجوا أن يكون المطلوب

الله ينور ياهندسه فعلا هو المطلوب

ولكن اذا كنت عايز عند تحقيق الدالة الاولي والثانية وهو ملئ البيانات يتم الحفظ ثم فتح سجل جديد بدون بيانات ماذا افعل

If IsNull(date1) Then
MsgBox "من فضلك ادخل التاريخ"
Else
End If
  If IsNull(nam2) Then
   MsgBox "من فضلك ادخل اسم الفرع"
 End If
 
DoCmd.GoToRecord , , acNewRec

[husamwahab]

مشاركة مع استاذي العزيز rey360

If IsNull(date1) Then
  MsgBox "من فضلك ادخل التاريخ"
  Exit Sub
ElseIf IsNull(nam2) Then
  MsgBox "من فضلك ادخل اسم الفرع"
  Exit Sub
End If
 
DoCmd.GoToRecord , , acNewRec

 

[mostafaelshnawy5]

11 hours ago, husamwahab said:

مشاركة مع استاذي العزيز rey360

If IsNull(date1) Then
  MsgBox "من فضلك ادخل التاريخ"
  Exit Sub
ElseIf IsNull(nam2) Then
  MsgBox "من فضلك ادخل اسم الفرع"
  Exit Sub
End If
 
DoCmd.GoToRecord , , acNewRec

 

شكرا جزيلا ياغالي

 

[husamwahab]

بالخدمة استاذ