Insert Into - Code

[Danyork]

Hello,
I'm relatively new to VBA, and was wondering if someone would help me debug the code below. I want to put it in a form, so that when I click "OK" it inserts a new record into the ActionItems table. I only want to insert the one field "Review_ID" which is a foreign key, although the table has many other fields. The primary key in the table is ActionItem_ID, and is an Autonumber. The primary key is the only field indexed with "Yes (No Duplicates)". (Although I do have a few fields indexed with "Yes (Duplicates OK)". After the entry is added I want to open a second form "Add ActionItem Template" to edit the remaining fields in the table, and close my filtering form "Add ActionItem Form". (please ignore the blatant disregard for naming conventions, I am working in a database I did not design). Any help you could offer would be very much appreciated.

Code Start:

Private Sub OK_Click()
  Me.Visible = False
 
    INSERT INTO ActionItems(Review_ID)
    VALUES ('" + Review_Date.Value + "')"
    SELECT * FROM ActionItems"
    DoCmd.OpenForm "Add ActionItem Template"
    DoCmd.Close acForm, "Add Action Item Form"
End Sub
 

Code End

Sincerely,
danyork

[TSIGOS1]

try this:

Private Sub OK_Click()
Me.Visible = False
 
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
        "mydb.mdb" & ";"
 
Dim con As ADODB.Connection
Dim db As Database
Set con = New ADODB.Connection
con.ConnectionString = constr
con.Open
 
      INSstr = "INSERT INTO" & "ActionItems Review_ID" &
"VALUES"  & Review_Date.Value &";"
  Debug.Print INSstr
con.Execute INSstr
 
DoCmd.OpenForm "Add ActionItem Template"
DoCmd.Close acForm, "Add Action Item Form"
 
           End If
 
End Sub

[ALaurie10]

Thanks alot, I appreciate your help