How to call function name and pass into other function (1 Viewer)

[tucker61]

I am playing with some new code below to log the time that it takes to run a query.

So i have added a new function called Startlog and EndLog.
I want these to use the function name as i log this in my table, is there a easy way to pass the Function name to StartLog and EndLog so i dont have to type in all the time ?

Function OpenAuditsNoUser()
WarningsOff
    StartLog ("OpenAuditsNoUser")
    DoCmd.OpenQuery "Qry_Update Date for Closed jobs"
    ExportQuery "Open Audits", "SELECT * FROM Qry_Open_Audits;", , , Environ("Temp") & "\"
    EndLog ("OpenAuditsNoUser")
    Waitoff
End Function

Function StartLog(myReport)
WarningsOff
sUser = GetLongName
strsql = ("INSERT INTO tblqcreports ([User], [StartTime],[Report]) VALUES ( '" & GetLongName& "', '" & stime & "', '" & myReport & "');")
DoCmd.RunSQL strsql
WarningsOn
End Function

Function EndLog(myReport)
WarningsOff
strsql = "UPDATE tblqcreports SET tblqcreports.EndTime = Now()" & "WHERE tblqcreports.Report='" & myReport & "' AND tblqcreports.Endtime Is Null;"
DoCmd.RunSQL strsql
WarningsOn
End Function

 

[theDBguy]

Hi. Not sure... You could save some typing by simply assigning the name of the function to a variable. For example:

strFunctionName = "OpenAuditsNoUser"
StartLog strFunctionName
EndLog strFunctionName

Hope that helps...

 

[Pat Hartman]

Wouldn't it make more sense to use a single log record? You're doing everything in the same procedure.
Dim StartDT as DateTime
Dim EndDT as DateTime

StartDT = Now()
run query
EndDT = Now()
Write log record

 

[tucker61]

Wouldn't it make more sense to use a single log record? You're doing everything in the same procedure.
Dim StartDT as DateTime
Dim EndDT as DateTime

StartDT = Now()
run query
EndDT = Now()
Write log record

after thinking about it, i dont think that would work as i am going to run this on about 20 reports,

 

[Pat Hartman]

Why doesn't it work? If you want to use a function, you just pass in both the start and end arguments after the report is opened.

 

[The_Doc_Man]

The basic answer is no. There is no datatype in VBA for subroutine or function entry points that you can use, and if you did, there is the problem that you would have to ALSO pass in any arguments for the function/sub that you wanted to use.

Further, passing a sub as an argument won't return a value so might trigger issues. Or perhaps the "argument not optional" IS referring to the fact that the argument returned nothing. (Not sure about that fine point.)

I've worked in languages that recognize function entries as a datatype but VBA ain't one of them.

 

[tucker61]

Why doesn't it work? If you want to use a function, you just pass in both the start and end arguments after the report is opened.

Managed to get it working, in the end. Thanks.

 

[Gasman]

Managed to get it working, in the end. Thanks.

Well please show the end result, as it might help someone else? That is what this site is about after all?