Error 3141 Debugging - Help Needed

[lukefinnemore]

First post on the forum...I've been continually getting a select statement error despite the code posted below doing what I intended for it to do. Given my rudimentary knowledge of SQL this is one is over my head. Also, if this is not the correct code (hopefully posted below) where can I find the source. Please forgive my lack of knowledge.

Private Sub SiteDone_Click()


Dim rstActiv As Recordset
Dim strsql As String
Dim varA As Variant
    
    
    ' first delete existing Site Characteristics
    strsql = "Delete * from tblSite"
    CurrentDb.Execute strsql
   
    Set rstActiv = CurrentDb.OpenRecordset("tblSite")
       
    'Add the selected Activities
           
        rstActiv.AddNew
        rstActiv!RecPCt = SiteRecPCt
        rstActiv!ProjDollars = SiteInvest
        rstActiv!ProjAcq = ProjectType
        rstActiv.Update
        
    rstActiv.Close
    Set rstActiv = Nothing
    
   DoCmd.RunMacro "macReports"
    
End Sub

[JoeM]

If you click "Debug", which line of codes does it highlight (and therefore, think is the problem)?

See if it works any better to replace your first block of code with this:

    ' first delete existing Site Characteristics
    strsql = "Delete [tblSite].* from tblSite"
    DoCmd.RunSQL strsql

[Dal Jeanis]

1) Which line gives you ther error?
2) If there is a query called "tblSite", then please post the SQL for that query here. If not, then please post the table structure. You may have fields named as reserved words, like "Date".
3) The macro "macReports" may contain embedded queries. each one has to be checked for syntax issues.