Saving New Records

Posted on 2000-02-29
Last Modified: 2010-05-02
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


With Data1.Recordset

            !Number_Client = strBBINumber
            If num_ClientInteractions  > 0 Then
                  !Client_Interactions = num_ClientInteractions + 1
                  !Client_Interactions = 1
            End IF
            !TypeOfInquiry = strTypeOfInquiry
            !Status = strStatus2
            !Date_Interaction = Dte_DateInteraction
            !DateEntered = Dte_DateEntered
            !Note = strNotes
            !InteractionAuthor = strAuthor
            !TimeSpentOnInteraction = T_TimeInteracting

            ClientInteraction.cmdSaveAndExit.Enabled = False

        End With

    End If

End Sub

CODE ENDS. Please help. Thank you.
Question by:dingo11
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
LVL 28

Accepted Solution

AzraSound earned 25 total points
ID: 2575277
The code I've always used for adding a record is as follows:

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



Featured Post

Creating Instructional Tutorials  

For Any Use & On Any Platform

Contextual Guidance at the moment of need helps your employees/users adopt software o& achieve even the most complex tasks instantly. Boost knowledge retention, software adoption & employee engagement with easy solution.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question