vba to macro

[Derrick T. Davidson]

I am creating a customized ribbon and have figured out the code to include buttons to click, the option is to run a macro.
My question is can I convert the code below into a macro?

Private Sub ExtBtn_Click()
Msg = "Are you sure you want to close the database?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "You Are Closing The Database"
Response = MsgBox(Msg, Style, Title)


If Response = vbYes Then
MyString = "Yes"
DoCmd.Quit acQuitSaveAll
Else
MyString = "No"
DoCmd.CancelEvent
End If
End Sub

[NoellaG]

Hi, you can run the code from a macro action RunCode if you wrap it in a public function.

[Derrick T. Davidson]

Thanks, not sure I am doing what you suggest I tried creating a module no success, a class module no success.
I entered the following code:
Public Sub RunMacro()
Msg = "Are you sure you want to close the database?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "You Are Closing The Database"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = "Yes"
DoCmd.Quit acQuitSaveAll
Else
MyString = "No"
DoCmd.CancelEvent
End If
End Sub

My XML code looks like below:
<button id="Exit" size="large" label="EXIT" imageMso="FileCloseDatabase" onAction="Module1" />
Both say they cant recognize the module??

[June7]

I would not use macro. I put code in a VBA general module.

The XML would reference the procedure, not the module: onAction="RunMacro".

[Derrick T. Davidson]

Tried this and got the error message below:
Cannot runthe macro or callback function ‘RunMacro’.
Make surethe macro or function exists and takes the correct parameters.

[ssanfu]

You might want to rename the procedure from "Runmacro" to "RunMyMacro".

"Runmacro" is a member of the "Docmd" object.

Just a thought........

[June7]

Exactly where is the XML code?

[Derrick T. Davidson]

I got the same error message.

XML code is in a table USysRibbons

[June7]

All I can say is code works in my db. If you want to provide yours for analysis, follow instructions at bottom of my post.

Did you get your code sample from http://www.accessribbon.de/en/?Acces...ton_-_onAction

[Derrick T. Davidson]

Started again fro start of this post and for some reason it works now?????
Thanks for all your help