확인란의 사용법

Question

i가 활성화 할 때 확인란의 형태로 제어를 만들었고, 특정 컨트롤이 표시되면이를 비활성화하면 컨트롤이 보이지 않게됩니다.내 문제는 양식로드에 있습니다.처음 확인란을 선택하는 경우 (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 UpdateControls ()와 같은 것을 자신의 하위로 코드로 계속 옮길 것을 제안합니다.그런 다음 다음 두 위치에서 해당 하위를 호출 할 수 있습니다. Form_Current 및 상태를 변경 해야하는 컨트롤의 _AfterUpdate 이벤트.Me.Form.Refresh 행을 제거하십시오.Form_Current 첫 번째 레코드가 표시되고 사용자가 탐색 할 때 다시 표시됩니다.CheckBox가 레코드 내에서 변경되면 AfterUpdate가 실행됩니다.