Private Sub Form_Current()

    If Me.NewRecord = True Then
        Me.Form.AllowEdits = True
    Else
        Me.Form.AllowEdits = False
    End If
   
End Sub