나는 필드는 다음 코드를 사용하여 비어있는 경우 사라 체크 박스를 만들기 위해 노력하고있어

Question

거짓 표시에 체크 박스 = 설정 : 나는 이것을 MSGBOX 작동 할 때

If rstPIANO.RecordCount <= 0 Then 
    MsgBox "No PIANO Data exists for this date" 
    chkPIANO.Enabled = Not (chkPIANO.Enabled) 
    chkPIANO.Visible = False 
    Else 
     chkPIANO.Visible = True 
    End If 

을 다음 내가 얻을 실행을시 오류 '91': 개체 변수 또는 With 블록 변수가 설정되지 않았습니까? 나는이 문제를 해결하기

Dim chkPIANO As Checkbox 

으로 이전 코드에서 어떤 생각을 체크 박스를 초기화합니까?

후

Answer 1

... 뭔가

Dim chkPIANO As Checkbox 

당신이해야 Set가. 코드는 확인란을 포함하는 형태로 ...에서 실행중인 경우

Set chkPIANO = Me.CheckBoxName 

그러나 체크 상자 컨트롤의 이름 chkPIANO경우, 당신은 같은 이름의 변수를 선언 할 필요가 없습니다

. 당신은

Me.chkPIANO 

코드 대신 폼의 모듈의 표준 모듈에있는 경우 ... 기본 연습으로

Set chkPIANO = Forms!YourFormName!CheckBoxName 

...로 참조 할 수있을받는 Option Explicit를 추가해야 모듈의 Declarations 섹션을 열고 VB Editor의 주 메뉴에서 Debug-> Compile을 실행하십시오. 컴파일러가 불평하는 모든 것을 수정하십시오. 모든 코드 모듈에 Option Explicit을 사용하십시오.