Problem with adding records to tables from form

  • Thread starter Panagiotis Marantos
  • Start date
P

Panagiotis Marantos

hello

i have the following code on the after insert event in a subform.

i need when a user entere a new record the system to go and add a new record
in the two tables seen below with just the id transferred.

however this does not happen at the moment.

anybody can shed some light into this?

Private Sub Form_AfterInsert()

Dim rec, rec2 As Recordset
Dim la As String
Dim conn, conn1 As Connection
Dim patient As Integer

Set rec = New ADODB.Recordset
Set rec2 = New ADODB.Recordset
Set conn = CurrentProject.Connection

patient = [Forms]![Data Entry V2]![Patient Details]!PatientID.value
rec.Open "[3 6 Monthly reviews]", conn, adOpenDynamic,
adLockBatchOptimistic, adCmdTable
rec.AddNew
rec.Fields(1) = patient
rec.Update
rec.Close

rec2.Open "[Annual Reviews]", conn, adOpenDynamic, adLockBatchOptimistic,
adCmdTable
rec2.AddNew
rec2.Fields(1) = patient
rec2.Update
rec2.Close

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help with Recordsets 2
list box source problem 1
Problem with ADO Code 2
SQL not importing records from ACCDB 2
VBA Recordset problem 3
Moving items between listboxes and populating table 0
trouble adding records to table 4
What's wrong with the code? 1

Top