بورك فيك .. عملك رائع ..
لكن أرغب في إضافة رسالة تأكيد ادخال البيانات ..حاولت لكن لم أنجح ..
'التأكد من ان حقول بيانات الطالب مملوءه قبل السماح بإضافة سجل
If Len(Me.XVisitorName & "") = 0 Then 'اسم الزائر
MsgBox "فضلا أدخل اسم الزائر"
Me.XVisitorName.SetFocus
Exit Sub
ElseIf Len(Me.XVisitorDay & "") = 0 Then 'اليوم
MsgBox "فضلا أدخل اليوم"
Me.XVisitorDay.SetFocus
Exit Sub
ElseIf Len(Me.XVisitorDate & "") = 0 Then 'التاريخ
MsgBox "فضلا أدخل تاريخ الزيارة"
Me.XVisitorDate.SetFocus
Exit Sub
ElseIf Len(Me.XVisitorTaime & "") = 0 Then 'الوقت
MsgBox "فضلا أدخل وقت الزيارة"
Me.XVisitorTaime.SetFocus
Exit Sub
ElseIf Len(Me.XTarget & "") = 0 Then 'سبب الزيارة
MsgBox "فضلا أدخل سبب الزيارة"
Me.XTarget.SetFocus
Exit Sub
End If