اظهار رسالة بعد اكتمال السجل بقيمة المحتوى لحقل معين

[Abdelaziz Osman]

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

لدي نموذج اكسيس بطريقة عرض سجلات ورقة بيانات

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

بمعنى ان السجل به 5 حقول منهم حقل باسم Id وهو حقل ترقيم تلقائى 

أريد بعد أن انتهى من باقى حقول السجل وعندما اضغط enter لكى انتقل الى السجل الجديد أريد ظهور رسالة تخبرنى بمحتوى الحقل Id  الذى يخص هذا السجل الذى تم انشائه

بالغ التحية

[ابوخليل]

يعني تريد الرقم الذي يحمله الـــ id

اذا فهمي صحيح اكتب السطر التالي في حدث قبل التحديث للحقل الأخير

msgbox me.id

 

[Abdelaziz Osman]

وهل اكتب هذا السطر خصائص النموذج

ام السجل

وهل لا بد من اكتبه كل مرة عند انشاء سجل جديد

[Foksh]

مداخلة جانبية مع معلمي الفاضل @ابوخليل .

جرب هذا الكود

Private Sub Form_AfterUpdate()
    Dim recordId As Long
    Dim allFieldsFilled As Boolean
    allFieldsFilled = True
    
    ' قم بفحص ملء كل الحقول
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then ' التأكد من أن الحقل هو حقل نصي
            If IsNull(ctl.Value) Then
                allFieldsFilled = False
                Exit For ' توقف الفحص عندما يتم العثور على حقل غير ممتلئ
            End If
        End If
    Next ctl
    
    ' إذا كانت جميع الحقول ممتلئة، قم بعرض رسالة بمحتوى الحقل Id
    If allFieldsFilled Then
        recordId = Me.ActiveControl.Value ' استخدم الحقل النشط حاليًا
        MsgBox "تم إنشاء السجل برقم: " & recordId
    End If
End Sub

واعلامنا بالنتيجة 😊

[Abdelaziz Osman]

تمام

ساقوم بتجربة الحلين

وان شاء الله أبلغ سيادتكم

بالنتيجة

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

@ابوخليل

@Foksh

[Abdelaziz Osman]

11 ساعات مضت, Foksh said:

مداخلة جانبية مع معلمي الفاضل @ابوخليل .

جرب هذا الكود

Private Sub Form_AfterUpdate()
    Dim recordId As Long
    Dim allFieldsFilled As Boolean
    allFieldsFilled = True
    
    ' قم بفحص ملء كل الحقول
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then ' التأكد من أن الحقل هو حقل نصي
            If IsNull(ctl.Value) Then
                allFieldsFilled = False
                Exit For ' توقف الفحص عندما يتم العثور على حقل غير ممتلئ
            End If
        End If
    Next ctl
    
    ' إذا كانت جميع الحقول ممتلئة، قم بعرض رسالة بمحتوى الحقل Id
    If allFieldsFilled Then
        recordId = Me.ActiveControl.Value ' استخدم الحقل النشط حاليًا
        MsgBox "تم إنشاء السجل برقم: " & recordId
    End If
End Sub

واعلامنا بالنتيجة 😊

استاذنا ومعلمى @Foksh

اخذت الكود بالكامل copy كما أنت أرسلته

ولم احذف او اعدل فيه حرف 

ولكنه لم يعمل.     وساحاول مرة أخرى البحث عن أي أخطاء ممكن تكون عندى 

بالغ التحية