Private sub Dlookup ()
Dim subx
Dim suby
Dim Msg
Subx=IIF IsNull Dlookup("ncpid","main entry table","ncpid='" & [Forms].[Enter new credentials].[ncpid]) then go to
Msg("the ncpid does not exist")
Msg("Do you want to add ncpid")
IIF Msg box(Msg, vbQuestion + yesno) vbYes then...