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

[رابح1999]

السلام عليكم

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

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

هل يوجد طريقة اخرى عند ترك الحقل فارغ وملء بقي الحقول يتم حدفها 

حتي يتم القيام بملء جميع الحقول المطلوبة

ا1لمستخدمين.accdb

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

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

استخدم الكود التالي

Private Sub Form_BeforeUpdate(Cancel As Integer)

    If Len(Me.Text2 & "") = 0 Or Len(Me.Text4 & "") = 0 Then
       Me.Undo
    End If

End Sub

3ا1لمستخدمين.rar

تحياتي

[بلال اليامين]

لقد طلب من الاخ رابح وهذا لعدم تكرار الموضوع

السلام عليكم

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

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

الموظفين.rar

تم تعديل يوليو 4, 2020 بواسطه بلال اليامين

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

الاخ رابح ذكر ان هذا يحدث في الكود الذي ارفقه

وطلب شىء جديد عليه

7 ساعات مضت, رابح1999 said:

السلام عليكم

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

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

هل يوجد طريقة اخرى عند ترك الحقل فارغ وملء بقي الحقول يتم حدفها 

حتي يتم القيام بملء جميع الحقول المطلوبة

انت تريد الكود الاساسي بدون تعديل

برجاء توضيح المطلوب في موضوع جديد اخي الكريم

تحياتي

 

[ابو ياسين المشولي]

جرب هذا

Dim ctrl As Control
        For Each ctrl In Me(nm).Controls
        
        If ctrl.Tag = "R" Then
        If IsNull(ctrl) Or ctrl = "" Then
        Me(nm)!NoteImg.Left = ctrl.Left
        Me(nm)!NoteImg.Top = ctrl.Top + ctrl.Height
        Me(nm)!NoteImg.Visible = True
        ctrl.BackColor = 2366701
        MsgBox "الرجاء القيام بملء جميع الحقول المطلوبة"
        Me.Undo
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True

        Exit Sub
        End If
        End If
        Next
        
 
Next i
MsgBox "تم حفظ بيانات"

 

[بلال اليامين]

اخي اين اضع الكود

[مبرمج نت]

الموظفين.rar

في الحدث الخاص بالنموذج (Form_BeforeUpdate) نقوم بفحص الحقول المطلوب أن تكون مملوئة في حالة كونها فارغة يلغى الخزن