Delete Statement

[shimul]

Can you please check the following delete code? It doesn't delete data from table.

Dim strSQL As String
Dim strID As Integer
 
strID = Me.SAIID.Value
 
'strSQL = "DELETE * from tblCOSL WHERE tblCOSL.SAID = " & strID & ";"
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE * from tblAGWL WHERE tblAGWL.SAID = " & strID & ";")
DoCmd.RunSQL ("DELETE * from tblAGWM WHERE tblAGWM.SAID = " & strID & ";")
DoCmd.RunSQL ("DELETE * from tblAGWH WHERE tblAGWH.SAID = " & strID & ";")
 

Thank you.

[JustJim]

@shimul
Possibly the double "I" in Me.SAIID.Value?

You would also need to put single quotes around strID since it is a string. You don't need the semi-colon (or the parentheses - I think)

DoCmd.RunSQL "DELETE * from tblAGWL WHERE tblAGWL.SAID = '" & strID & "'"

Also note that you really should pair up your SetWarnings False with a SetWarnings True.

Jim

[NeoPa]

It is always a good idea to ensure that variable name checking is enabled, AND your code compiles (at least compilation has been attempted), before submitting a question.

This avoids asking questions which are much more easily resolved on your own PC than on a forum.

To ensure variable name checking is enabled for all new modules, go to - Tools / Options / Editor (from the VBA Editor window) and set Require Variable Declaration to True (checked). For existing modules, ensure that the Option lines at the very top include :

Option Explicit

To compile your project, select (again from the VBA Editor window) Debug / Compile Project Name.

We ARE generally happy to help with compilation problems too (If you find an error reported and you can't resolve it, let us know), but we do expect members to have tried compiling before submitting a question. That way we have a better idea of the sort of problem we're looking at.

I expect you wouldn't have needed to post the question if you'd done this first.