عدم الحفظ في الفورم الا بعد ادخال جميع الحقول

[alzahrani2014]

السلام عليكم 

عبدي فورم اسمه  entermo3amla  وبه  اربع حقول اساسية لابد من ادخالها واريد زر الحفظ لا يحفظ الا بعد ادخال الجميع من المستخدم الحقول هي 

shkwadate  حقل تاريخ

almsder  قائمة منسدلة

shkeatype  قائمة منسدلة

tsneef  قائمة منسدلة

 

وعند عدم ادخال اي حقل تظهر نافذة تنبيه باسم الحقل غير المدخل 

 

وهذا مثال في القاعدة

 

asd.accdb

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub Form_BeforeUpdate(Cancel As Integer)

     If Len(Me.shkwadate & vbNullString) = 0 Then
        Me.shkwadate.SetFocus
        MsgBox "تاريخ الشكوى/المعاملة فارغ"
        Me.Undo
     
     ElseIf Len(Me.almsder & vbNullString) = 0 Then
        Me.almsder.SetFocus
        MsgBox "مصدر الشكوى/المعاملة"
        Me.Undo
     
     ElseIf Len(Me.tsneef & vbNullString) = 0 Then
        Me.tsneef.SetFocus
        MsgBox "تصنيف الشكوى/المعاملة"
        Me.Undo
     End If
     
End Sub

asd.rar

تحياتي

[alzahrani2014]

جميل استاذ محمد لكن المشكله اننا نفقد تسلسل رقم الشكوى لاي معاملة لم تحفظ يعني ينتقل الرقم من 36 مثلا الى 40 للمعاملة التي حفظناها وتلك 37 و 38 و 38 للتي لم تحفظ 

ما الحل

[محمد أبوعبدالله]

اذن استبدل

        Me.Undo
بـ
        DoCmd.CancelEvent

الكود كامل

Private Sub Form_BeforeUpdate(Cancel As Integer)

     If Len(Me.shkwadate & vbNullString) = 0 Then
        Me.shkwadate.SetFocus
        MsgBox "تاريخ الشكوى/المعاملة فارغ"
'        Me.Undo
        DoCmd.CancelEvent
     
     ElseIf Len(Me.almsder & vbNullString) = 0 Then
        Me.almsder.SetFocus
        MsgBox "مصدر الشكوى/المعاملة"
'        Me.Undo
        DoCmd.CancelEvent
     
     ElseIf Len(Me.tsneef & vbNullString) = 0 Then
        Me.tsneef.SetFocus
        MsgBox "تصنيف الشكوى/المعاملة"
'        Me.Undo
        DoCmd.CancelEvent
     End If
     
End Sub

asd.rar

تحياتي

[alzahrani2014]

في الحالة هذي يجبرني على الادخال ولا اقدر اسوي اي شي الا اني ادخل كل البيانات ( وافتك شره  🤒)....

لو حبيت اكنسل التسجيل ما العمل

تم تعديل أكتوبر 17, 2021 بواسطه alzahrani2014

[alzahrani2014]

عملت زر اضافي تراجع عند النقر وضعت مي.اندو

لكن نفس المشكله ينخطى الترقيم التلقائي

[محمد أبوعبدالله]

8 دقائق مضت, alzahrani2014 said:

في الحالة هذي يجبرني على الادخال ولا اقدر اسوي اي شي الا اني ادخل كل البيانات

أليس هذا هو المطلوب ؟

8 دقائق مضت, alzahrani2014 said:

لو حبيت اكنسل التسجيل ما العمل

اضغط زر Esc

برجاء التوضيح اكثر

تحياتي

1 دقيقه مضت, alzahrani2014 said:

لكن نفس المشكله ينخطى الترقيم التلقائي

هذه من الاخطاء التي يقع فيها المبرمج بأن يجعل حقل ترقيم تلقائي هو رقم الفاتورة

ومن المفترض ان يكون الحقل رقم وضع ترقيم بالكود مثال :

Me.shkwano = Nz(DMax("[shkwano]", "shkwaltwasl"), 0) + 1

تحياتي

[alzahrani2014]

الان فهمت عليك استاذنا الغالي .....

المشكلة تكمن في الترقيم التلقائي ... ساعمل بنصحيك واجعل الحقل رقم يحمل الكود الذي ذكرت ..... فكرة جميلة والله يعين على النماذج والاستعلامات والتقارير الكثير 

 

شكرا لك من القلب استاذ محمد

[alzahrani2014]

في ١٧‏/١٠‏/٢٠٢١ at 07:04, محمد أبوعبدالله said:

Me.shkwano = Nz(DMax("[shkwano]", "shkwaltwasl"), 0) + 1

تم التعديل حسب الكود .... فعلا هو الافضل 

شكرا لك استاذنا @محمد أبوعبدالله

 

[ابو جودي]

من باب المشاركة اثراء للموضوع