VBA Error: Invalid Bracketing of Name

[kawi6rr]

I'm trying to insert a value and delete a value in a record based off a check box click event using an ADODB connection. The insert works but when it reaches the ELSEIF statement where i want to delete the entry if the user clicks on the checkbox but realizes they dont want that selected. I'm getting the error above in the title.

Issue code bolded below




Private Sub Check_AMI_Click()
Dim conn As ADODB.Connection
Dim strSQL As String
Dim insertValue As String
Set conn = CurrentProject.Connection

If Me.Check_AMI.Value = -1 Then

strSQL = "INSERT INTO Events ( Hospitalization_for ) VALUES( 'AMI-STEMI' )"

conn.Execute strSQL

conn.Close
Set conn = Nothing
Me.Dirty = False

Me.Check_AMI.DefaultValue = "0"
Me.Requery


ElseIf Me.Check_AMI.Value = 0 Then

'strSQL = "UPDATE Events ( Hospitalization_for = "")"
strSQL = "UPDATE [Events] SET [Hospitalization_for] = Null WHERE [Me.EventID] = " & Me.EventID & ""
conn.Execute strSQL

conn.Close
Set conn = Nothing
Me.Dirty = False

Me.Check_AMI.DefaultValue = "-1"
Me.Requery
End If
End Sub

Any help is apprecaited, thanks.

[pbaldy]

Me is only valid in VBA code, not in SQL. Try

strSQL = "UPDATE [Events] SET [Hospitalization_for] = Null WHERE [EventID] = " & Me.EventID

[kawi6rr]

Thanks that was it, I must have been sleeping when I wrote that part. I'm having bigger issues with this anyway, I can't seem to get it to update properly when telling it which record to update, it just creates a new entry. And now that I've got part to work I noticed more issues.

New Error: Query input must contain at least one table or query!

I actually used the primary key from the master table, dont know what I was thinking with the other one.

strSQL = "INSERT INTO Events ( Hospitalization_for ) VALUES( 'AMI-STEMI' ) WHERE OutcomeID = " & Me.OutcomeID & ""

[pbaldy]

In an append query, you either use a VALUES clause or a SELECT clause. The WHERE clause is only valid with a SELECT clause; it has no meaning with a VALUES clause, because you're explicitly giving it the value to append. Try

strSQL = "INSERT INTO Events ( Hospitalization_for ) VALUES( 'AMI-STEMI' )