Autofill field

[Dave_cha]

I want to autofill field (a) with the contents of field (b) but only if field (a) has data in it. I can't get the script below to work though I know it's probably just bad syntax on my part...can anyone help.

Private Sub FRM___Fault_notes_Enter()

Dim fn As field

fn = [Fault number]

If fn Is Not Null Then
[FRM - Fault notes]![Fault number ref] = [Fault number]
End If

End Sub

Thanks,

Dave

 

[IMO]

Maybe something like

Private Sub Form_Current()

If Me.FieldB <> "" Then
Me.FieldA = Me.FieldB
Else
Me.FieldA = ""
End If

End Sub

IMO