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

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


رابح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

تحياتي

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

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

السلام عليكم

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

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

الموظفين.rar

تم تعديل بواسطه بلال اليامين
رابط هذا التعليق
شارك

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

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

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) نقوم بفحص الحقول المطلوب أن تكون مملوئة في حالة كونها فارغة يلغى الخزن

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information