Append table with data from a form 1

[0212]

Hi, all! Hopefully, you can help. I want to automatically insert information into several tables from a form. I want the records appended after I create a new record. I have developed the following code:

Private Sub Form_AfterInsert()
Dim mySQL As String
mySQL = "Insert INTO Policy Information (AcctID,PolicyCmts)"
mySQL = mySQL + " Values (& Me.AcctID &, '& Me.Account_Name &')"
End Sub

The code appears to run fine. However, a record is not appended to the Policy Information Table. Any ideas? Thanks in advance!

 

[PHV]

what about this ?

Private Sub Form_AfterInsert()
Dim mySQL As String
mySQL = "INSERT INTO [Policy Information] (AcctID,PolicyCmts)"
mySQL = mySQL & " VALUES (" & Me!AcctID & ",'" & Me!Account_Name & "')"
DoCmd.RunSQL mySQL
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[0212]

Thanks, again, PHV! I really appreciate you help!!

Jim.