Locked field

[jake7363]

Hello,
Is is it possible to lock a field in a form for a specific record after data is entered, without locking the field for all of the records?
What I am trying to do is not allow any changes to the data in that field, once the data is entered. But if there is no data in the field, I want to allow data entry.

Thanks in advance,
Jake

 

[jake7363]

..sorry, forgot to add that it is a continuous form.
Thanks.

 

[kjv1611]

Well, you could try putting in a conditional statement in your code that says something like:

Private Sub Form_Dirty()
On Error GoTo ErrHandle
  If IsNull(txtMyTextBox) Then
    txtMyTextBox.Locked = False
    txtMyTextBox.Enabled = True
  Else
    txtMyTextBox.Locked = False
    txtMyTextBox.Enabled = True
  End If

Exit Sub

ErrHandle:
  MsgBox "We've got a problem!" & Chr(13) & Chr(13)& _
         "Error Number" & Chr(9) & "Error Description" & _
         Chr(13) & Err.Number & Chr(9) & Err.Description, vbCritical, _
         "Error!"
End Sub

 

[MajP]

[/code]
Private Sub Form_Current()
Dim ctrlName As String
'Put your control name here
ctrlName = "strMiddleInitial"
If Not Trim(Me.Controls(ctrlName) & " ") = "" Then
Me.Controls(ctrlName).Locked = True
Else
Me.Controls(ctrlName).Locked = False
End If

End Sub
[/code]
If Not Trim(Me.Controls(ctrlName) & " ") = "" Then
checks null
check empty string
checks space