액세스 VBA 체크 모든 체크 박스

Question

안녕하세요 FALSE 경우 모든

내 양식의 확인란을 선택하지 않은 경우이 코드 조각을 확인해야하지만 때마다 나는이 오류 메시지가 : 런타임 오류 '438

가 가

If TypeName(ctl) = "CheckBox" And ctl.Value = False Then 

이

이

런타임 오류 # 438 : 개체가이 적절한를 지원하지 않습니다 '

Private Sub Btn_Send_Click() 
Dim ctl As Control 
Dim iX As Integer 

    For Each ctl In Me.Controls 
     If TypeName(ctl) = "CheckBox" And ctl.Value = False Then iX = iX + 1 
    Next ctl 

If iX = 0 Then MsgBox "No checkBox Selected", vbExclamation, "Title" 

End Sub 

오류를 Debbuging 타이 또는 방법

은 다음과 같이 그것을 할 당신의 도움을

Answer 1

시도 감사 :

For Each ctl In Me.Controls 
    If TypeName(ctl) = "CheckBox" Then 
     If ctl.Value = False Then 
      iX = iX + 1 
     End If 
    End If 
Next ctl 

이유는 VBA가 단락 평가를 지원하지 않는다는 것입니다 - Does the VBA "And" operator evaluate the second argument when the first is false?

따라서 첫 번째 조건이 False이라도 멋지게 이동하여 두 번째 조건을 확인합니다. . CheckBox 컨트롤이 아닌 경우 .Value 속성이 없으므로 오류가 발생합니다.