كيف اجعل المستخدم يدخل البيانات في جميع الحقول ( اجباريا ) ؟

[a.s.d]

السلام عليكم

قمت بعمل نموذج لتسجيل حجز فندق 
وفيه عدة حقول ( اسم المدينة , اسم الفندق , ....... )

المطلوب جعل المستخدم بقوم بتعبئة جميع الحقول في الحجز و عدم ترك حقل فارغ قبل الانتقال لحجز جديد

علما بانه قد تم عمل كود برمجي بحيث لو قام الموظف بادخال بيانات الحجز ثم عاد الى ( اسم المدينة ) مثلا و غيرها الى مدينة اخرى يتم تفريغ جميع البيانات التي ادخلها مسبقا لانه بيانات الفندق و الغرف مثلا ليست متعلقة بالمدينة التي اختارها بعد اضافت البيانات

سوف تلاحظون الكود المقصود في الملف الاكسس المرفق + توظيح للمطلوب 

فقط تبقى اضافة خاصية عدم ترك اي حقل فارغ قبل الانتقال لحجز جديد


ولكم جزيل الشكر

Hotels.rar

[baraa2007]

من قائمة الخصائص للجدول اجعل الحقل الذي تريدة مطلوب 

[أبا عمر]

هذا كود للأستاذ الحبيب أبو آدم أسأل الله أن يجزيه عنا خيرا 
 

أرفق لكم الكود معدلاً ليقوم باستثناء حقول محددة من النموذج من عملية التدقيق ، ليصبح الكود :

Private Sub Title_Exit(Cancel As Integer)

Dim ctl As Control

Dim vIndex As Long

For Each ctl In Me.Controls

If ctl.ControlType = acTextBox Or acComboBox Then

With ctl

If IsNull(Me.Controls.Item(vIndex)) = True Then

If ctl.Name <> "Title" And ctl.Name <> "CompanyName" Then

MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field"

Me.Controls.Item(vIndex).SetFocus

Exit Sub

End If

End If

End With

End If

'This is used to track the actual Item Number.

vIndex = vIndex + 1

Next ctl

End Sub

ويوضع الكود في حدث عند الخروج لآخر حقل في النموذج ، حيث تتم عملية التدقيق لكافة الحقول بإستثناء التي قررنا عدم التدقيق عليها

انتهى كلامه 

 

[صالح123]

مهم هذي جداً  نرجو توظيحها قليلاً      ما فهمت الكود الموجود