Access에서 개체 경로 이름을 줄이십시오.

Question

잠시 동안 찾고 있었지만 찾고있는 것을 검색하는 적절한 방법을 알지 못하는 느낌이 들었습니다. 그래서, 나는이 코드를 가지고 :

내가 좋아하는 내 취향을 입력 할 수 있도록 내가 양식을 단축 할 수 있도록 "FAB1"와 같은 짧은 뭔가 frmab1 원하는

Private Sub AB1_dMnmsSfHrbr_Click() 
    If Forms!frmab1!AB1_dMnmsSfHrbr.Value = -1 Then 
     Forms!frmab1!AB2a_expTrtmnt.Enabled = True 
     Forms!frmab1!AB5a_invPrice.Enabled = False 
    ElseIf Forms!frmab1!AB1_dMnmsSfHrbr.Value = 0 Then 
     Forms!frmab1!AB2a_expTrtmnt.Enabled = False 
     Forms!frmab1!AB5a_invPrice.Enabled = True 
    End If 
End Sub 

: 어떻게

FAB1!AB2a_exptrtmnt.enabled = true 

! 내가한다?

감사합니다.

Answer 1

당신은 with 문을 로컬 변수를 만들거나 사용할 수 있습니다

지역 변수 : 문

Private Sub AB1_dMnmsSfHrbr_Click() 

    Dim FAB1 as Form 
    Set FAB1 = Forms!frmab1 

    If FAB1!AB1_dMnmsSfHrbr.Value = -1 Then 
     FAB1!AB2a_expTrtmnt.Enabled = True 
     FAB1!AB5a_invPrice.Enabled = False 
    ElseIf FAB1!AB1_dMnmsSfHrbr.Value = 0 Then 
     FAB1!AB2a_expTrtmnt.Enabled = False 
     FAB1!AB5a_invPrice.Enabled = True 
    End If 
End Sub 

:

Private Sub AB1_dMnmsSfHrbr_Click() 

    With Forms!frmab1 

     If !AB1_dMnmsSfHrbr.Value = -1 Then 
      !AB2a_expTrtmnt.Enabled = True 
      !AB5a_invPrice.Enabled = False 
     ElseIf !AB1_dMnmsSfHrbr.Value = 0 Then 
      !AB2a_expTrtmnt.Enabled = False 
      !AB5a_invPrice.Enabled = True 
     End If 

    End With 
End Sub