We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
5 days, 17 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Error 3078 can't find table
Posted on 2010-08-24
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?
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
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
9
7
3- +2
22 Comments
Active today
For one thing, you will need to alter the SQL statement builder:strSQL = "INSERT INTO tbl_HISTORY (CLIENT_ID) VALUES (" & Me.CLIENT_ID & ")"
Active 1 day ago
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 & "')"
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 & "')"
Active today
Assuming a numeric ID, Give this a try:
strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (" & Me.CLIENT_ID & ")"
CurrentDb.Execute strSQL1, dbFailOnError
strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (" & Me.CLIENT_ID & ")"
CurrentDb.Execute strSQL1, dbFailOnError
Active 1 day ago
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 []
if not you have to enclosed them in square brackets []
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.
It says it can't find the input table ". It's like it's not even reading the table name for some reason.
Active 2 days ago
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
'Insert a new record into in tbl_CLI_HISTORY
strSQL = "INSERT INTO tbl_HISTORY( CLIENT_ID ) VALUES (Me.CLIENT_ID)"
OM Gang
Active today
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
Active 1 day ago
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
tools > database utilities > compact and repair database
then, from VBA window do
Debug > Compile
correct any errors raised
post back the result
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.
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.
Active today
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
Active 1 day ago
the CLIENT_ID is number from the codes above
If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
.CLI_HISTORY_subform.Sourc
Else
If DLookup("CLIENT_ID", "tbl_HISTORY", "CLIENT_ID = " & Me.CLIENT_ID) Then
.CLI_HISTORY_subform.Sourc
Else
Oh sorry...CLIENT_ID is numeric.
Is there a better way to do this?
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
Active 1 day ago
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
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?
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?
Active today
>> 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.
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.
Featured Post
Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear? Sometimes you may have an additional problem: where the devil did they go? If you last had a popup form open…
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents. The steps to find the Templates folder path are …
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database.
Split up all multi-value fields into single values:
Split up fields that belong to other things into separate tables:
Make sure that all record…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers.
Hopes this gives you ideas on visualizing your data in new ways ~
Create a calculated field in a query:
…
Suggested Courses
Course of the Month5 days, 17 hours left to enroll
707 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.