縮短Access中的對象路徑名稱

Question

我一直在尋找一段時間，但有一種感覺，我不知道正確的方式來搜索我在找什麼。 所以，我有這樣的代碼：

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 

我希望能夠縮短形式frmab1的東西更短，如「FAB1」這樣我可以輸入我喜歡就好！

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 

with語句：

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