[AccessD] C2DbWakeupCall.mdb

pcs at azizaz.com pcs at azizaz.com
Thu Jan 24 23:27:33 CST 2008


This one is for Mr Colby:

Hi John,
Had a look at C2DbWakeupCall.mdb

Whereas I can get notepad to kick in (Yes!) I have problems 
getting a public sub or function in the mdb to do the 
same....

Your function that makes the process kick in looks like 
this: 
Function Run(lstrProcessName) As Boolean
Dim lngProc As Long
    'Hasn't run today so check if the time is > mdetTimeToRun
    If Time() > mdteTimeToRun Then
        If Date > mdteLastRan Then
            'Mark mdteLastRun = Now()
            mdteLastRan = Date
            '
            If mblnRunCommand Then
                lngProc = WinExec(mstrProcessName, 1)
            End If
            'and return true
            lstrProcessName = mstrProcessName
            Run = True
        End If
    End If
End Function

I changed the follwing section to:

            If mblnRunCommand Then
                lngProc = WinExec(mstrProcessName, 1)
'added
            Else
                Eval (mstrProcessName & "()")
'end added
            End If

thinking that if the tickbox on the form (mblnRunCommand) 
has not been ticked, and in the text control on the form I 
add the name of a public sub or function, that procedure 
should start running.... but it don't!!

mstrProcessName is  "bshTest" which is

Public Sub bshTest()
MsgBox "Hello Universe?", vbQuestion + vbOKCancel
End Sub

The error is 2425 : The expression you entered has a 
function name that Microsoft Office can't find.

What am I missing?

Regards
borge



More information about the AccessD mailing list