0 votes
in VBA by Beginner (2 points)

I code a public sub in modules as same as :


Public Sub CallCalculator()

    AppActivate ("Microsoft Access")
    ' Specifying 1 as the second argument opens the application in
    ' normal size and gives it the focus.
    Dim RetVal
    Dim n
    RetVal = Shell("C:\WINDOWS\System32\CALC.EXE", 1)    ' Run Calculator.
    For n = 1 To 10
        SendKeys n & "{+}", True
    Next n
    SendKeys "=", True
    AppActivate "Microsoft Access"
    MsgBox "Select OK to escape Calculator"
    AppActivate "Calculator"
    SendKeys "%{F4}", True
    AppActivate "Microsoft Access"
End Sub

Access send a error message : Runtime error 5 Invalid procedure call or argument.

Need I config Tool/References in Access 2010?

1 Answer

0 votes
by Expert (911 points)

In the VBA statement  AppActivate title the title part should be "the title in the title bar of the application window you want to activate." It is probably not "Microsoft Access", but it might be "Access". For example, when I first open Word the title bar is "Word", but when I open a blank document the title bar is "Document1 - Word". When I first open Excel the title bar is "Excel", but when I open a blank workbook the title bar is "Book1 - Excel". Also, notice the title in the title bar is duplicated in the Windows Taskbar.

Welcome to wellsr Q&A
Ask any questions you have about VBA and Python and our community will help answer them. wellsr Q&A is the standalone question and answer platform for wellsr.com. If you have a question about one of our specific tutorials, please include a link back to the tutorial.

Getting Started
VBA Cheat Sheets (On Sale Now)

Looking for something else? Hire our team directly through ourVBA Help page, instead.

For more programming tips visit the VBA Tutorials Blog and the Python Tutorials Blog.