Add New Button

[seth.murphine]

Is there any reason this wouldn't work?

Private Sub Command106_Click()
If Me.FilterOn = True Then
Me.FilterOn = False
DoCmd.GoToRecord , , acNewRec
End If
If Me.strEmp.Value = Null Then
Me.strEmp.Locked = False
Me.strEmp.Value = [Forms]![yp_ipm]![current_user]
Me.strEmp.Locked = True
End If
End Sub

It adds a new record but is not entering a value in the proper field.

[pbaldy]

You can't test for Null like that. Try the IsNull() function.

[seth.murphine]

That returned a compile error

[pbaldy]

What exactly returned a compile error? Did you try


If IsNull(Me.strEmp.Value) Then

[seth.murphine]

Worked like a charm, I was just being a dunce. Thank you.

[pbaldy]

No problemo.