チェックボックス制御使用

Question

私はチェックボックスの形でコントロールを作成しましたが、アクティブになると特定のコントロールが表示されます。それを無効にすると、コントロールは見えなくなります。私の問題はフォームロード時にあります。初めてチェックボックスを選択する（MouseDownイベント上）、ユーザーに選択を解除して再選択することは何も起こらず、再選択ではうまく機能します。誰かが私に手を与えることができるようにしてくれる方法を考え出すことはできませんか？以下は私のコードです..ありがとう

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（）のようなものです。その後、そのサブを2つの場所で呼び出すことができます。Form_Currentラインを削除します。form_current最初のレコードが表示され、いつでもユーザーがナビゲートするときに再び発生します。CheckBoxがレコード内で変更されたときに_AfterUpdateが発生します。