Saving New Records

I am working on a project, and the following code is supposed to save a new record. Instead it deletes and replaces the first record then adds a new record to EOF. Please help as my job is on the line(no joke), and as a newcomer this problem is driving me bonkers.

Code Begins:

Private Sub cmd_Save_Click()
Dim rs As Recordset
Set rs = Data1.Recordset

Data1.ReadOnly = False

       
strTypeOfInquiry = cmboTypeOfInquiry.Text
strStatus2 = cmboStatus.Text
T_TimeInteracting = Input_TimeSpentInteraction.Text
Dte_DateEntered = txt_DateEntered.Text
Dte_DateInteraction = txt_DateInteraction.Text
strNotes = txtNotes.Text
strAuthor = cmbo_Author.Text
num_ClientInteractions  = rs.RecordCount

'ClientInteraction.Data1.Recordset.EOF
ClientInteraction.Data1.Refresh

With Data1.Recordset

            'rs.MoveLast 'I THOUGHT THIS WOULD WORK BUT IT DIDN'T
            .AddNew  
            !Number_Client = strBBINumber
            If num_ClientInteractions  > 0 Then
                  !Client_Interactions = num_ClientInteractions + 1
            Else
                  !Client_Interactions = 1
            End IF
            !TypeOfInquiry = strTypeOfInquiry
            !Status = strStatus2
            !Date_Interaction = Dte_DateInteraction
            !DateEntered = Dte_DateEntered
            !Note = strNotes
            !InteractionAuthor = strAuthor
            !TimeSpentOnInteraction = T_TimeInteracting
       
            .Update
            'Data1.Recordset.Update

            ClientInteraction.cmdSaveAndExit.Enabled = False

        End With

        ClientInteraction.Data1.Recordset.Close
   
    End If

End Sub

CODE ENDS. Please help. Thank you.
dingo11Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
AzraSoundConnect With a Mentor Commented:
The code I've always used for adding a record is as follows:

Data1.Recordset.AddNew
Data1.Recordset.Fields("fieldName") = SomeText.Text
Data1.Recordset.Fields("field2Name") = MoreText.Text
 
 etc...


Data1.Recordset.update
Data1.Refresh

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.