Here is the code....sans goto...and working. Thank you BruceG.
[/code]
If RCS_Dflt.EOF = True Or RCS_Dflt.BOF = True Then
RCS_Dflt.AddNew
RCS_Dflt.Update
End If
RCS_Dflt.MoveFirst
RCS_Dflt.Edit
RCS_Dflt!DefaultValue.Value = Information
RCS_Dflt.Update
[/code]
DerFarm




Reply With Quote