Display Query Name

[jgelpi16]

I have a button that I click to run several queries. I would like to display in some form what query is running. I tried using the echo command but it did not appear to work properly. I do not need to discover the query name programmatically. I don't want a "vbOKOnly" msgbox displaying either because I still want the program to run without me being at my computer. I thought about the possibility of writing the query name and date/time stamp to a table when completed. However, I am at a loss as to how to do that. Any suggestions will be greatly appreciated.

[pbaldy]

One option would be to use SysCmd to put the current query in the status bar. More info in VBA help. If you want to write the name to a table, you could either use a recordset or execute SQL.

[jgelpi16]

What is the correct coding for executing SQL? I thought I had it, but when I run the below code it appears to just skip over it, no data written to the table.

Dim varQuery
Dim varQueryTime
varQuery = "Query1"
varQueryTime = Time()
DoCmd.RunSQL "INSERT INTO TestTable (QueryName, QueryTime) VALUES (" & varQuery & "), (" & varQueryTime & ")"

I keep getting the run-time error that states "Number of query values and destination fields are not the same."

[pbaldy]

That simply populates a string variable with the SQL; to execute it:

CurrentDb.Execute mySQL, dbFailOnError

[jgelpi16]

Still getting the run-time error:

"Number of query values and destination fields are not the same."

DoCmd.SetWarnings False
Dim varQuery
Dim varQueryTime
varQuery = "Query1"
varQueryTime = Time()
mySQL = "INSERT INTO TestTable (QueryName, QueryTime) VALUES ('" & varQuery & "'), ('" & varQueryTime & "')"
CurrentDb.Execute mySQL, dbFailOnError
DoCmd.SetWarnings True

[pbaldy]

For starters, you don't need the 2 SetWarnings lines; the Execute method doesn't throw them. If QueryTime is a Date/Time field, it needs to be surrounded by # rather than '. Your error is because you close out and reopen the parentheses in the VALUES clause; you only want the ones at the beginning and end.

[jgelpi16]

Thank you for your help! Much appreciated. I have included the working code for anyone else who may have interest.

Dim varQuery
Dim varQueryTime
varQuery = "Query1"
varQueryTime = Time()
mySQL = "INSERT INTO TestTable (QueryName, QueryTime) VALUES ('" & varQuery & "',#" & varQueryTime & "#)"
CurrentDb.Execute mySQL, dbFailOnError

[pbaldy]

Glad we got it working for you.