insert statement not working

[shaunacol]

I am using MS access 2010 and would like to append a value into a table, i looked up the format but it does not work


Private Sub Status_AfterUpdate()
If Status = 4 Then
INSERT INTO Tbl_IF(ready)
VALUES (True)
Else If Status = 15 Then
INSERT INTO Tbl_viewing(ready)
VALUES (True)
Else: End If
End Sub

 

[PHV]

You can't mix VBA and SQL code !
Have a look at the DoCmd.RunSQL or CurrentDb.Execute methods.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[dhookom]

It's also a bit unusual to insert a new record into a table specifying only a single field.

Duane
Hook'D on Access
MS Access MVP

 

[shaunacol]

Yr right, i will need to insert the ClientID in there too. It is so that when they choose a status of 'book flight' then the flight table gets a blank field ready for the admin lady and it pops up in her list ready to be booked, hope that makes sense.

 

[dhookom]

So, are you still looking for assistance? If so, can you give a more complete description of what you are attempting to accomplish?

Duane
Hook'D on Access
MS Access MVP

 

[shaunacol]

Hi I am OK now thank you the code below worked. Many thanks for the advice:


Private Sub Status_AfterUpdate()

Dim strSQL as String

If Status = 4 then
strSQL = "INSERT INTO Tbl_IF (ready) VALUES (true);"
Elseif Status = 15 then
strSQL = "INSERT INTO Tbl_viewing (ready) VALUES (true);"
End if

If strSQL <> "" then currentdb.Execute(strSQL)

End Sub

 

[dhookom]

shaunacol,
Please consider using TGML to format your messages. They will be much easier to read.

Private Sub Status_AfterUpdate()

    Dim strSQL as String

    If Status = 4 then
        strSQL = "INSERT INTO Tbl_IF (ready) VALUES (true);"
     Elseif Status = 15 then
        strSQL = "INSERT INTO Tbl_viewing (ready) VALUES (true);"
    End if

    If strSQL <> "" then currentdb.Execute(strSQL)

End Sub

Duane
Hook'D on Access
MS Access MVP