로드시 ms 액세스 사용자 폼의 모든 필드를 비활성화 할 수 없습니다.

Question

저는 내 userform에 많은 컨트롤을 가지고 있으며 "로그인 버튼"과 "Shift Date"텍스트 상자를 제외하고로드시 모두 비활성화하려고합니다. 아래의 코드를 사용하여 :

Private Sub Form_Load() 
Call GetValues 
Me.WlcmLabel.Caption = "Hi " + GetUserName + " ! " 

Dim ctrl As Control 

For Each ctrl In Me.Controls 
    ctrl.Enabled = False 
Next 
Me.ShiftDate.Enabled = True 
Me.LoginBtn.Enabled = True 
Set ctrl = Nothing 
End Sub 

하지만이 말을 나에게 부하에 오류가 있습니다 "개체가이 속성 또는 메서드를 지원하지 않습니다."

사용자가 로그인 버튼을 클릭하자마자 모든 컨트롤이 활성화됩니다.

내 코드의 실수는 무엇입니까?

기타 필요한 정보가 있는지 물어보십시오. 감사합니다!

Answer 1

대신 컨트롤을 잠급니다. 아래에 locked 속성을 사용했지만 각 컨트롤의 tag 속성을 사용하여 lockable으로 식별했습니다. 따라서 잠그고 싶지 않은 컨트롤은 태그 속성에 아무 것도 가져 오지 않으므로 잠그지 않습니다. 응용 프로그램에서는 두 개의 컨트롤을 잠금 해제 상태로두기를 원하기 때문에 논리를 뒤집을 수 있습니다.

For Each ctlCurr In Me.Controls 
     If ctlCurr.Tag = "Lockable" Then 
     ctlCurr.Locked = True 
     End If 
Next 

Answer 2

오류가 오는 이유 인 라벨 컨트롤을 사용 중지 할 수 없습니다. 컨트롤 유형을 확인해야합니다.

For Each ctrl In Me.Controls 
    With ctrl 
    a = TypeName(ctrl) 
    Select Case .ControlType 

     Case acLabel 

     Case acEmptyCell 

     Case Else 
      ctrl.Enabled = False 
    End Select 
    End With 


Next ctrl 

레이블이없는 경우에만 적용을 적용하십시오.