Formular aktuellen Ereignis - Zugang 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 ist eine Textbox, wo ich Firmenname Geben Sie und einmal dort ein Eingang ist der Benutzer nicht bearbeiten kann, wenn der Benutzer von „txtName ist Maxie“ txtName ein ungebundenes Textfeld ist, das zu erwerben der Benutzername aus dem Anmeldeformular.

Das Problem ist sogar die txtName enthalten "Maxie" das CompName-Textfeld ist immer noch gesperrt.

Bitte helfen Sie mir, dies zu lösen.

Übrigens verwende ich diesen Code unter ON CURRENT Event.

Answer 1

Verstanden mit dem modifizierten Code arbeiten

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