フォーム - アクセス2013

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でもあります。CompNameテキストボックスがまだロックされている "Maxie"が含まれています。

私はこれを解決するのを手伝ってください。

ところで、このコードをON CURRENTイベントの下で使用します。

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 

での作業、それを手に入れた