Hi

The user needs to enter the user name and the password so it inserts
into the database. After that a reference number is created.
Here is the code:

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo Error_Handler
Dim db As DAO.Database
Dim rst As DAO.Recordset

     Set db = CurrentDb
     Set rst = db.OpenRecordset("tblWhatever", dbOpenDynaset)

     With rst
         .AddNew
         !WhateverID = Me.txtWhateverID
         !FirstName = Me.txtFName
         !LastName = Me.txtLName
          .Update
          .Bookmark = .LastModified
      End With

Exit_Here:
       rst.Close
       Set rst = Nothing
       Set db = Nothing
Exit Sub

Error_Handler:
       MsgBox Err.Number
       Resume Exit_Here

Cancel = True
Exit Sub

Error_Handler:
    MsgBox Err.Number
  Resume Exit_Here

End Sub

Public Sub Form_KeyPress(KeyAscii As Integer)

  Dim Erro As Integer
   '13=Carriage Return
    If KeyAscii = 13 Then
On Error GoTo Err_Form_KeyPress

    DoCmd.GoToRecord acDataForm, "tblWhatever", acNewRec
Exit_Form_KeyPress:
   Exit Sub

Err_Form_KeyPress:
   MsgBox Err.Description
   MsgBox Err.Number
   Resume Exit_Form_KeyPress

  End If