MS Access: Is it possible to ennoble 3061 error message?

This simple vba code
Sub t()
    On Error Resume Next
    Debug.Print "1)", CurrentDb.OpenRecordset("select id      from table1")(0)
    If Err <> 0 Then Debug.Print Err, Err.Description
    Debug.Print "2)", CurrentDb.OpenRecordset("select id, x,y from table1")(0)
    If Err <> 0 Then Debug.Print Err, Err.Description
End Sub

Open in new window

returns the following in Immediate Window
1)             5 
 3061         Too few parameters. Expected 2.

Open in new window

Q): Is there a way to extend somehow the output to, say,
1)             5 
 3061         Too few parameters. Expected 2 ([x],[y])

Open in new window

Although it is irrelevant to the question I illustrate it with a "live" example.
Actual SQL code is programmatically generated and is about 1,500 characters long:
?len(stAnoQrysql)
 1572 

Open in new window

LVL 1
midfdeAsked:
Who is Participating?
 
Jim Dettman (Microsoft MVP/ EE MVE)President / OwnerCommented:
No, the err.description property is all you can get.

 There are times with ODBC when it will generate multiple errors and you need to loop through the errors collection to get them, but whatever is in the description property is what you get.

 There is no "verbose" mode.

Jim.
0
 
midfdeAuthor Commented:
I've got the point. Just to make sure there is no misunerstanding. I did not mean anything like "verbose" mode. What I meant was whether VBA can interrogate MS Access about something it "knows", and I want the user know it too.
"MS Access knows" means that it can display what I want, and it does not want to pass it to my code  see the image.Access displays the name it cannot "recognize"
0
 
Jim Dettman (Microsoft MVP/ EE MVE)President / OwnerCommented:
<<"MS Access knows" means that it can display what I want, and it does not want to pass it to my code  see the image. >>

  Yes it indeed does, but understand that "Access" is really three things; Access (MSACCESS.EXE) and the UI it presents along with the Access objects (like forms and reports),  A DB Engine (JET or ACE) and VBA.

 The parameter dialog you showed is coming out of MSACCESS.EXE.   But when your running code in VBA, that's out of the picture.  Only things involved at that point are VBA and the DB Engine.

 So when your executing queries in code, everything is up to you and that includes ensuring that the SQL statement is correct and resolving any parameters before hand.

 So if you had the the SQL in a querydef, you would open the querydef, loop through the parameters, and try to resolve each.  If you could not resolve one, then you would know which one was the problem and at this point, you could produce a dialog like MSACCESS.EXE does.

 To put that another way, if Access handed off a SQL statement to the DB engine without prompting you, you would get the same error from it "Too few parameters. Expected 2"  because all the DB engine is reporting back is that it can't execute the statement.

Jim.
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.

 
midfdeAuthor Commented:
I just wanted to inquire if anybody knows how to ask a right guy (of the three aforementioned, I think it's DB Engine) a right question.
0
 
Jim Dettman (Microsoft MVP/ EE MVE)President / OwnerCommented:
From your comment, I'm not sure exactly what your asking for, but your question was:


Q): Is there a way to extend somehow the output to, say,

To which the short answer is no.

Jim.
0
 
midfdeAuthor Commented:
I've requested that this question be closed as follows:

Accepted answer: 0 points for midfde's comment #a40369144

for the following reason:

Thanks for you attention Jim.
0
 
midfdeAuthor Commented:
Thanks for your attention Jim.
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.