مشكلة في كود زر ادخال البيانات

[بركان]

السلام عليكم

صممت فورم لادخال البيانات بس للادخال ما تعرض اي شي

و فيها أكثر من حقل تكسك بوكس بلاضافة الى كومبوبوكس

و فيه زر لما يخلص اليوزر ادخال البيانات يضغط زر اضافة البيانات

زر اضافة البيانات لازم يتاكد ان اليوزر ما نسى او ترك اي حقل موجود فارغ

و بعدين يدخل البيانات في القاعدة

المهم اذا دخلت سجل واحد كل شي اوكي

لكن بعد سجلين ثلاث سجلات يصير العكس

الكود ما يتاكد من ان ما في اي حقل فارع

احيانا يدخل بيانات ناقصة و احيانا ما يسوي اي شي

ولما تغير ادخال البيانات ما يتاكد من كل حقل انه مش فارغ

اريد اعرف شو المشكلة في الكود

انا كتبت if is null لكل حقل علشان ما يكون فاضي بالاضافة الى is numeric للارقام

ارفقت كل شي بالمرفقات

ساعدوني جزاكم الله الف خير

db5.zip

[بركان]

لقيت هذا الكود في احد المواقع الاجنبية

يعمل لوب على كل كنترول موجود على الفروم

و اذا مربع نص يتاكد منه انه مش فاضي

اعتقد راح ينفع

Dim ctl As Control

For Each ctl In Controls
If TypeOf ctl Is TextBox Or ComboBox Then
If Len(Nz(ctl.Value)) = 0 Then
MsgBox "please enter data " & ctl.name

Exit For
End If
End If
Next ctl

For Each ctl In Controls
If TypeOf ctl Is ComboBox Then
If Len(Nz(ctl.Value)) = 0 Then
MsgBox "please enter data " & ctl.name

Exit For
End If
End If
Next ctl

اذا احد عنده افكار ثانية ياليت يعلمنا

[أبا عمر]

يُنقل 

...