عند الرجوع من نموذج فرعي للرئيسى مطلوب تحديث فوري لعرض ماتم حذفه

[أحمد العيسى]

السلام عليكم

بالنموذج الرئيسى مربع نص يحتوى على عرض عدد سجلات جدول  وليكن سجلات الصف الأول

وعند الانتقال لشاشة الصف الأول لإجراء أى عمليات حذف ، و بعد الضغط على زر "رجوع" للشاشة الرئيسية

المفترض أن أجد تحديثاً لمحتوى مربع النص ، لكن هذا لا يتم إلا بعد تنشيط الدخول والخروج مرة أخرى للشاشة الرئيسية

[kkhalifa1960]

عند الضغط على الصف الأول بالفورم الرئيسي .

Docmd.Close
Docmd.OpenForm "فورم الصف الأول"

عند الانتهاء من العمل بفورم الصف الأول وعند زر الرجوع للشاشة الرئيسية .

Docmd.Close
Docmd.OpenForm "الفورم الرئيسي"

 

[Moosak]

منذ ساعه, أحمد العيسى said:

المفترض أن أجد تحديثاً لمحتوى مربع النص ، لكن هذا لا يتم إلا بعد تنشيط الدخول والخروج مرة أخرى للشاشة الرئيسية

عند إغلاق نافذة الصف الأول أعمل Requery للعناصر التي تريد تحديثها ( مربعات النص التي بها الأرقام )

[أحمد العيسى]

الإجابة الأولى لم تحقق المطلوب .. لكن شكراً لواضعها

الإجابة الثانية : كيف يتم عمل Requery  وهل هو يختلف عن  Recalc

ليكون السؤال أكثر وضوحاً

هذه أوامر فتح شاشة الصف الأول :

Private Sub btnOne_Click()
On Error GoTo Err_btnOne_Click
    Dim DocName As String
    Dim LinkCriteria As String
    Form_frm_basic.Refresh
    Form_frm_basic.Visible = False  ' frm_basic ' الشاشة الرئيسية
    DocName = "frm_Main1"           ' frm_Main1 ' شاشة الصف الأول
    DoCmd.OpenForm DocName, , , LinkCriteria
Exit_btnOne_Click:
    Exit Sub
Err_btnOne_Click:
    MsgBox Error$
    Resume Exit_btnOne_Click
End Sub

وهذه أوامر زر الرجوع من شاشة الصف الأول إلى الشاشة الرئيسية :

Private Sub Cmd_Exit_Click()
On Error GoTo Err_Cmd_Exit_Click
    DoCmd.Close                    'frm_Main1 ' غلق شاشة الصف الأول
    Form_frm_basic.Visible = True  'frm_basic ' إظهار الشاشة الرئيسية
Exit_Cmd_Exit_Click:
    Exit Sub
Err_Cmd_Exit_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_Exit_Click
End Sub

 

[Moosak]

3 ساعات مضت, أحمد العيسى said:

كيف يتم عمل Requery 

الموضوع بسيط جدا ..
في حدث عند الإغلاق لنماذج الإدخال  أو عند زر الرجوع للشاشة الرئيسية ضع هذا الكود وغير أسماء مربعات النص التي بها عدادات الأرقام :

    On Error Resume Next
    [Forms]![frm_basic]![TxtBox1].Requery     ' تحديث العداد الأول
    [Forms]![frm_basic]![TxtBox2].Requery     ' تحديث العداد الثاني
    [Forms]![frm_basic]![TxtBox3].Requery     ' تحديث العداد الثالث

 

[أحمد العيسى]

2 ساعات مضت, Moosak said:

الموضوع بسيط جدا ..
في حدث النقر لزر الرجوع للشاشة الرئيسية ضع هذا الكود وغير أسماء مربعات النص التي بها عدادات الأرقام :

    On Error Resume Next
    [Forms]![frm_basic]![TxtBox1].Requery     ' تحديث العداد الأول
    [Forms]![frm_basic]![TxtBox2].Requery     ' تحديث العداد الثاني
    [Forms]![frm_basic]![TxtBox3].Requery     ' تحديث العداد الثالث

 

تمام .. شكراً جزيلاً

تم تعديل ديسمبر 9, 2024 بواسطه أحمد العيسى