auto/quick run of module

[bastnpak]

I created a module with working code. I want to create a 'quick run' button so users can just click and go.

I am going to share the code with my teammates and they are looking for just a 'go' button. Running a macro is OK too (they already do that for a different task).

I am not using a form. I am looking at tables directly.

How would I convert this to a macro (that does the quick run)? or is there a better option

[pbaldy]

Moat of us never let users into tables directly, but if you make your code a public function in a standard module you can run it with a macro and the RunCode action (I think that's what it's called anyway).

[bastnpak]

I agree with not letting users go to the code directly. we are the data analysts that work the back end. But most of the others are not proficient coders. so I am writing the code for them to quickly run.

I tried to do the new macro with the RunCode and then put in the function name (it even finds the name to fill in).

but I am getting the error "the expression you entered has a function name that microsoft Access can't find"

[Welshgasman]

I agree with not letting users go to the code directly. we are the data analysts that work the back end. But most of the others are not proficient coders. so I am writing the code for them to quickly run.

I tried to do the new macro with the RunCode and then put in the function name (it even finds the name to fill in).

but I am getting the error "the expression you entered has a function name that microsoft Access can't find"

And that function name is? Ist it Public?
is this a macro?, try VBA, then it would likely tell you.

[pbaldy]

I'll get out of the way, but also make sure you include parentheses:

FunctionName()

[bastnpak]

I wrote in VBA. I meant it as a macro with a quick launch button. I am used to excel where you write the vba and then run it as a macro. it just returns message boxes.

but when you select the module, it shows all the code. I was hoping for it to just run the code.

[Welshgasman]

Macroes are something completely different in Access.
How are you trying to run it?

Step into it in the code window and run line by line with F8, does that work.

Failing that, start showing your code.
I know what you mean with quick launch buttons on the toolbar, I use them in Excel.

If you want to emulate your Excel method, you would actually need to create an Access Macro and add that to the ribbon. They only run functions, so the VBA would need to be a function, or a function that runs a sub.
Most people would create some sort of interface, a simple form with command buttons/combos/listboxes to run popular/well used code.

Need to also stop thinking with an Excel head. Access is a different beast althogether. VBA is similar, but that is about it.

This is how I used to handle it from a standard Access switchboard
The button would run a macro which would call perhaps CreateBackupFE()

Function CreateBackupFE()
' Have to do it this way as Switchboard does not allow parameters.
CreateBackup ("FE")
End Function

Sub CreateBackup(Optional strDBType As String)
    Dim strDBpath As String, ext As String, tmp As String
    Dim strPath As String, strBackupPath As String, strDB As String
    
    
    'tmp = CurrentDb.Name    'or maybe this should be the name of your BE
    'strDBType = "FE"
    strDBpath = GetAccessBE_PathFilename("tblUser")
    strPath = Left(strDBpath, InStrRev(strDBpath, "\"))
    strBackupPath = strPath & "Backup\"
    
    'Will now backup front and back end database
    If strDBType = "FE" Then
        strDBpath = CurrentDb.Name
    End If
    strDB = Right(strDBpath, Len(strDBpath) - InStrRev(strDBpath, "\"))
    
    With CreateObject("Scripting.FileSystemObject")
        'ext = "." & .GetExtensionName(tmp)
        tmp = strBackupPath & Format(Now(), "yyyymmdd_hhnnss") & "_" & strDB
        .CopyFile strDBpath, tmp
    End With
    MsgBox strDBType & " Database saved as " & tmp
    
    
End Sub

[davegri]

You can modify the Access ribbon to simulate the Excel ribbon.



The result:

[bastnpak]

I know I am new to access so still learning the ins and out.

the use of a function that called the sub was perfect. Since Access allows you to add a command in a new macro of "RunCode", it worked great.

thank you for all the help