Ms access 缩短Access中的对象路径名

我已经寻找了一段时间，但有一种感觉，我不知道如何正确地搜索我正在寻找的东西。 因此，我有以下代码：

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

我该怎么做

---

谢谢

您可以创建局部变量，也可以使用该语句

局部变量：

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

---

@谢谢你的评论。编辑了答案