اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


بركان
إذهب إلى أفضل إجابة Solved by بركان,

الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

انا كتبت 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

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

رابط هذا التعليق
شارك

  • 6 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information