السلام عليم اخواني الاعزاء
 
	واحدة   if  في دالة   (nam2)وحقل (date1) اريد دمج الحقلين حقل
 
	If IsNull(date1) Then 
	MsgBox ("من فضلك ادخل التاريخ"), vbCritical, "حقل فارغ" 
	date1.SetFocus 
	End If
 
	If IsNull(nam2) Then 
	MsgBox ("من فضلك ادخل اسم الفرع"), vbCritical, "حقل فارغ" 
	nam2.SetFocus 
	End If