استخدام التحكم في خانة الاختيار

Question

لقد قمت بإنشاء عنصر تحكم على شكل مربع اختيار، والذي عند تنشيطه تظهر بعض عناصر التحكم..عند إلغاء تنشيطه، تصبح عناصر التحكم غير مرئية.مشكلتي هي عند تحميل النموذج.في المرة الأولى التي يتم فيها تحديد خانة الاختيار (عند حدث الماوس لأسفل)، لا يحدث شيء يجبر المستخدم على إلغاء تحديده، ثم إعادة تحديده..عند إعادة التحديد يعمل بشكل جيد..أتخيل أنني بحاجة إلى القيام بنوع من التحديث في مكان ما ولكن لا أستطيع معرفة كيف..هل يمكن لأحد أن يقدم لي يد المساعدة؟أدناه هو الكود الخاص بي ..شكرًا

Private Sub cmdAccounting_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.cmdAccounting = 0 Then
    cost.Visible = True
    Etichetta35.Visible = True
    Etichetta37.Visible = True
    Etichetta43.Visible = True
    qty.Visible = True
    tot.Visible = True
    lineaAccounting1.Visible = True
    lineaAccounting2.Visible = True
    Me.FileSaved.Visible = False
    Me.lblFileSaved.Visible = False
Else
    cost.Visible = False
    Etichetta35.Visible = False
    Etichetta37.Visible = False
    Etichetta43.Visible = False
    qty.Visible = False
    tot.Visible = False
    lineaAccounting1.Visible = False
    lineaAccounting2.Visible = False
    Me.FileSaved.Visible = True
    Me.lblFileSaved.Visible = True

End If
Me.Form.Refresh
End Sub

Answer 1

أقترح عليك الاستمرار في الانتقال إلى التعليمات البرمجية إلى Sub الخاصة بها، مثل Sub UpdateControls().يمكنك بعد ذلك استدعاء ذلك Sub في مكانين: Form_Current و ال _AfterUpdate حدث أي سيطرة ينبغي أن تغير الحالة.مسح ال Me.Form.Refresh خط.يتم تشغيل Form_current عند عرض السجل الأول ومرة ​​أخرى في أي وقت يتنقل فيه المستخدم. AfterUpdate سيتم إطلاقه عند تغيير خانة الاختيار داخل السجل.