• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 143
  • Last Modified:

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

0
midfde
Asked:
midfde
  • 4
  • 3
1 Solution
 
Jim Dettman (Microsoft MVP/ EE MVE)PresidentCommented:
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)PresidentCommented:
<<"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
Technology Partners: We Want Your Opinion!

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!

 
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)PresidentCommented:
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

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now