Locking Specific Fields in Form

[shall]

I am looking for a way to lock specific fields after data has been entered so that they can't accidently be changed if they are searching through the records is there a way to do this for Access 2007?

I have found another another thread but the ways listed did not work:

If Not IsNull(YourField) Then
YourField.Locked = True
Else
YourField.Locked = False
End If

or

Private Sub Form_Load()
FName.Locked = Switch(Nz(FName, "") <> "", True, True, False)
LName.Locked = Switch(Nz(LName, "") <> "", True, True, False)
StudentNum.Locked = Switch(Nz(StudentNum, "") <> "", True, True, False)
End Sub

I posted these in the OnLoad event and it tells me compile error method or data not found with .Locked highlighted

 

[boblarson]

1. Don't use the On Load event. Use the Form's On Current event.

2. This should work

With Me
   .FName.Locked= (Len(Me.FName & vbNullString) > 0)
   .LName.Locked = (Len(Me.LName & vbNullString) > 0)
   .StudentNum.Locked = (Len(Me.StudentNum & vbNullString) > 0)
End With

 

[shall]

Ok when i try coping that code I am still getting the error message. Am I missing something?

 

[boblarson]

Are your controls named Fname, Lname and StudentNum?

 

[riofebdinan12]

I posted these in the OnLoad event and it tells me compile error method or data not found with .Locked highlighted

 

[missinglinq]

1. Don't use the On Load event. Use the Form's On Current event.

Bob specifically told you not to use the Form_Load event! Why did you? Use the Form_Current event, as he instructed you to!

Code like this in the Form_Load event will Lock the controls in all records based on whether or not the controls are populated in the first record!

Placed in the Form_Current event each record's controls will be Locked based on that record's conditions!

Linq ;0)>

 

[shall]

@Bob those are the names of the fields that I am trying to lock out

 

[vbaInet]

@Bob those are the names of the fields that I am trying to lock out

You can't lock fields, you lock controls (like textboxes, combo boxes etc). So use the name of the controls bound to those fields. That is:

With Me
   .[COLOR=Red]NameOfFNameControl[/COLOR].Locked= (Len(.[COLOR=Red]NameOfFNameControl [/COLOR]& vbNullString) > 0)
   .[COLOR=Red]NameOfLNameControl[/COLOR].Locked = (Len(.[COLOR=Red]NameOfLNameControl[/COLOR] & vbNullString) > 0)
   .[COLOR=Red]NameOfStudentNumControl[/COLOR].Locked = (Len(.[COLOR=Red]NameOfStudentNumcontrol[/COLOR] & vbNullString) > 0)
End With

In the correct Event as you've been advised. Also, don't miss out the dots.

 

[shall]

Ok Sorry I should have clarified that the control names are those listed above. I am not super familiar with VB and this may be a silly question but would I still place the With Me code inside the Private Sub Form_Current?

 

[vbaInet]

Yep, put the whole With Me block inside Private Sub Form_Current.

 

[vbaInet]

Actually, I will amend the code a little:

With Me
    If Me.NewRecord Then
        .NameOfFNameControl.Locked = False
        .NameOfLNameControl.Locked = False
        .NameOfStudentNumcontrol.Locked = False
    Else
        .NameOfFNameControl.Locked = (Len(.NameOfFNameControl & vbNullString) > 0)
        .NameOfLNameControl.Locked = (Len(.NameOfLNameControl & vbNullString) > 0)
        .NameOfStudentNumcontrol.Locked = (Len(.NameOfStudentNumcontrol & vbNullString) > 0)
   End If
End With

 

[shall]

Ok the .Locked is highlighted again with a compile error "method or data member not found"

 

[shall]

then after I hit ok it then highlights the Private Sub Form_Current

 

[vbaInet]

Prefix each control name (not field name) with txt, so the FName textbox will be txtFName. Then amend the code so it reflects this.

 

[shall]

Thanks for your help that last one worked great

 

[vbaInet]

Happy to hear!