Question

Private Sub Form_Current()

   If Nz(Me!CompName, "") = "" Then
      Me!CompName.Locked = False

   Else
    If (txtName = "Maxie") Then
        Me!CompName.Locked = False
        Else
        Me!CompName.Locked = True
    End If
End if
End Sub

CompName是一个文本框，我输入公司名称，一旦有输入，用户就无法编辑它，除非用户来自“txtName是Maxie” txtName是一个未绑定的文本框，它从登录表单中获取用户名。

问题甚至是txtName包含“Maxie”CompName文本框仍然被锁定。

请帮我解决这个问题。

顺便说一下，我在ON CURRENT Event下使用这段代码。

Answer 1

使用修改后的代码

Private Sub Form_Current()

Me.Refresh
Dim UserAdmin As String
UserAdmin = "Maxie"

    If Nz(Me!CompName, "") = "" Then
    Me!CompName.Locked = False
    Me.Refresh
    Else
        If (txtName.Value = UserAdmin) Then
             Me!CompName.Locked = False
             Me.Refresh
                Else
                    Me!CompName.Locked = True
                    Me.Refresh
                        End If
   End If
End Sub

表格当前事件 - 访问2013

1 个答案: