Error 3078 can't find table

When I run the code below I get a 3078 error that it can't find the table or query.  It is happening at this line:
                strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (Me.CLIENT_ID)"
                CurrentDb.Execute strSQL1, dbFailOnError

If the answer to the msgbox is yes, than I want it to create a new record in tbl_HISTORY and then display CLI_HISTORY_subform using that new record.  Can anyone tell me why I'm getting this error?
Dim strSQL As String
 
 DoCmd.Hourglass True
 Application.Echo False, "Processing ..."
 With Me
   Select Case tabClients
     Case 0    ' First TabPage (General)
       ' Do nothing. SourceObject loaded.

     Case 1     ' Second TabPage (Academic)
        'Load source objects on Academic tab
        If .stuSchedule_subform.SourceObject <> "frm_STU_SCHEDULE" Then
          .stuSchedule_subform.SourceObject = "frm_STU_SCHEDULE"
        End If
        If .academics_subform.SourceObject <> "frm_STU_ACAD" Then
          .academics_subform.SourceObject = "frm_STU_ACAD"
        End If

     Case 2    ' Third TabPage (History)
        'Find client history.
        If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
           .CLI_HISTORY_subform.SourceObject = "frm_CLI_HISTORY"
        Else
           'If no history is available, prompt user to add client history.
           If MsgBox("No client history available.  Would you like to add it now?", vbYesNo) = vbYes Then
                'Insert a new record into in tbl_CLI_HISTORY
                strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (Me.CLIENT_ID)"
                CurrentDb.Execute strSQL1, dbFailOnError
                'Find new record and display as subform
                If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
                   .CLI_HISTORY_subform.SourceObject = "frm_CLI_HISTORY"
                End If
           End If
        End If
     Case 3
         ' ...
     Case 4
         ' ...
         ' ...
   End Select
 End With
 DoCmd.Hourglass False

Open in new window

mkelly2384Asked:
Who is Participating?
 
Rey Obrero (Capricorn1)Commented:
try this



rivate Sub tabClients_Change()

On Error GoTo tabClients_Change_Err
 Dim strSQL As String
 
 DoCmd.Hourglass True
 Application.Echo False, "Processing ..."
 With Me
   Select Case tabClients
     Case 0    ' First TabPage (General)
       ' Do nothing. SourceObject loaded.

     Case 1     ' Second TabPage (Academic)
        'Load source objects on Academic tab
        If .stuSchedule_subform.SourceObject <> "frm_STU_SCHEDULE" Then
          .stuSchedule_subform.SourceObject = "frm_STU_SCHEDULE"
        End If
        If .academics_subform.SourceObject <> "frm_STU_ACAD" Then
          .academics_subform.SourceObject = "frm_STU_ACAD"
        End If

     Case 2    ' Third TabPage (History)
        'Find client history.
        If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
           .CLI_HISTORY_subform.SourceObject = "frm_CLI_HISTORY"
        Else
           'If no history is available, prompt user to add client history.
           If MsgBox("No client history available.  Would you like to add it now?", vbYesNo) = vbYes Then
                'Insert a new record into in tbl_HISTORY
             
               with currentdb.openrecordset("tbl_History")
                    .addnew
                    !Client_ID=Me.Client_ID
                    .update
               end with

               ' strSQL = "INSERT INTO tbl_HISTORY (CLIENT_ID) VALUES (" & Me.CLIENT_ID & ")"
               ' CurrentDb.Execute strSQL1, dbFailOnError
                'Find new record and display as subform
                If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
                   .CLI_HISTORY_subform.SourceObject = "frm_CLI_HISTORY"
                End If
           End If
        End If
     Case 3
         ' ...
     Case 4
         ' ...
         ' ...
   End Select
 End With
 DoCmd.Hourglass False

Open in new window

0
 
Patrick MatthewsCommented:
For one thing, you will need to alter the SQL statement builder:strSQL = "INSERT INTO tbl_HISTORY (CLIENT_ID) VALUES (" & Me.CLIENT_ID & ")"
0
 
Rey Obrero (Capricorn1)Commented:
if client_ID is Number

strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (" & Me.CLIENT_ID & ")"


if client_ID is Text

strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES ('" & Me.CLIENT_ID & "')"
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
mbizupCommented:
Assuming a numeric ID, Give this a try:

strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (" & Me.CLIENT_ID & ")"
                CurrentDb.Execute strSQL1, dbFailOnError
0
 
mkelly2384Author Commented:
I corrected the syntax of the INSERT INTO statement, but I still get the same error message.
0
 
Rey Obrero (Capricorn1)Commented:
and make sure that the name of table and field names are correct ( do they really have underscore on the name?)

if not you have to enclosed them in square brackets []
0
 
mkelly2384Author Commented:
Table name and field names are correct.

It says it can't find the input table ".  It's like it's not even reading the table name for some reason.
0
 
omgangIT ManagerCommented:
Your comment suggests you have the table name wrong in the SQL statement

                'Insert a new record into in tbl_CLI_HISTORY
                strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (Me.CLIENT_ID)"

OM Gang
0
 
mkelly2384Author Commented:
The comment is wrong--I've quadruple-checked the table name in the code. "tbl_HISTORY" is correct.
0
 
Patrick MatthewsCommented:
mkelly2384,As cap1 mentioned, the table/column names must match exactly.  For example, a stray leading or trailing space in a name can muck things up.Also, please post the exact syntax you tried to use, and confirm whether CLIENT_ID is numeric or text.  It would not shock me if the lack of a space between your table name and the open parenthesis for your column list upsets Access, which is why I included a space there.  (SQL Server would not have "cared" about that.)Patrick
0
 
Rey Obrero (Capricorn1)Commented:
do a compact and repair
tools > database utilities > compact and repair database

then, from VBA window do
Debug > Compile

correct any errors raised

post back the result
0
 
mkelly2384Author Commented:
I've checked the names of the table and fields 5 times now...

Shouldn't it say "Cannot find the input table "tbl_HISTORY""  instead of Cannot find the input table "  (with one set of quotes only)

I did a compact and repair, but still getting the same error.
0
 
Patrick MatthewsCommented:
mkelly2384,As I asked in my last previous post:>>Also, please post the exact syntax you tried to use, and confirm whether CLIENT_ID is numeric or text.Patrick
0
 
Rey Obrero (Capricorn1)Commented:
how about the DEBUG > CoMPILE?
0
 
Rey Obrero (Capricorn1)Commented:
the CLIENT_ID is number from the codes above

       If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
           .CLI_HISTORY_subform.SourceObject = "frm_CLI_HISTORY"
        Else
0
 
mkelly2384Author Commented:
Oh sorry...CLIENT_ID is numeric.

Is there a better way to do this?
Private Sub tabClients_Change()

On Error GoTo tabClients_Change_Err
 Dim strSQL As String
 
 DoCmd.Hourglass True
 Application.Echo False, "Processing ..."
 With Me
   Select Case tabClients
     Case 0    ' First TabPage (General)
       ' Do nothing. SourceObject loaded.

     Case 1     ' Second TabPage (Academic)
        'Load source objects on Academic tab
        If .stuSchedule_subform.SourceObject <> "frm_STU_SCHEDULE" Then
          .stuSchedule_subform.SourceObject = "frm_STU_SCHEDULE"
        End If
        If .academics_subform.SourceObject <> "frm_STU_ACAD" Then
          .academics_subform.SourceObject = "frm_STU_ACAD"
        End If

     Case 2    ' Third TabPage (History)
        'Find client history.
        If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
           .CLI_HISTORY_subform.SourceObject = "frm_CLI_HISTORY"
        Else
           'If no history is available, prompt user to add client history.
           If MsgBox("No client history available.  Would you like to add it now?", vbYesNo) = vbYes Then
                'Insert a new record into in tbl_HISTORY
                strSQL = "INSERT INTO tbl_HISTORY (CLIENT_ID) VALUES (" & Me.CLIENT_ID & ")"
                CurrentDb.Execute strSQL1, dbFailOnError
                'Find new record and display as subform
                If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
                   .CLI_HISTORY_subform.SourceObject = "frm_CLI_HISTORY"
                End If
           End If
        End If
     Case 3
         ' ...
     Case 4
         ' ...
         ' ...
   End Select
 End With
 DoCmd.Hourglass False

Open in new window

0
 
mkelly2384Author Commented:
Decompile shows no errors.

Rather than inserting, I first tried to do something like this:
DoCmd.SelectObject "CLI_HISTORY_subform"
DoCmd.GoToRecord acActiveDataObject, , acNewRec

but that didn't work.  Didn't know if I could create a new record in a subform anyway.  Would that be better than inserting if it was done right?
0
 
mkelly2384Author Commented:
Yay--capricorn1--you're a genius!  Thanks so much--worked perfectly.
0
 
mbizupCommented:
>>               CurrentDb.Execute strSQL1, dbFailOnError
I believe this is incorrect.

You need to make the syntactical adjustments suggested to the insert statement and change your Exectute statement to this to be consistent:

CurrentDb.Execute strSQL, dbFailOnError


(It looks like you are setting strSQL, but attempting to run strSQL1)

Also place the following line at the top under Option Compare Database of your code module if you don't have it already:

Option Explicit

That will trap any undeclared variables as compile errors,  which is very helpful in debugging things.
0
 
mkelly2384Author Commented:
oh, yeah, I didn't catch that strSQL1 issue.  Thanks!
0
 
Rey Obrero (Capricorn1)Commented:


             
               with currentdb.openrecordset("tbl_History")
                    .addnew
                    !Client_ID=Me.Client_ID
                    .update
                   
                    .close  'Add this line

               end with
0
 
mkelly2384Author Commented:
done. thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.