prompt messages

[donnie051280]

i have a button on a form which when clicked runs a macro. But i want to add a prompt msg when the button is clicked, which states "do you wish to run the macro". When they click ok they will run the macro otherwise if they select cancel then they just go back to the form

thanks

 

[KenReay]

If MsgBox("Really do this",vbyesno,"Warning") = vbYes Then
' do whatever
else
' do the other
end if

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[donnie051280]

im not too sure what to change, he is the VB code at the moment
Private Sub Command39_Click()
On Error GoTo Err_Command39_Click

Dim stDocName As String

stDocName = "close all"
DoCmd.RunMacro stDocName

Exit_Command39_Click:
Exit Sub

Err_Command39_Click:
MsgBox Err.DESCRIPTION
Resume Exit_Command39_Click

End Sub

// with close all the name of the macro. where do i need to make the changes for the prompt msg

 

[TheAceMan1]

How are ya donnie051280 . . . . .

Try this:

[blue]Private Sub Command39_Click()
Dim Msg As String, Style As Integer
Dim Title As String, DL As String

On Error GoTo Err_Command39_Click

   Dim stDocName As String
   DL = vbNewLine & vbNewLine
   
   Msg = "Are you sure you want to run the Macro ?" & DL & _
         "Click 'Yes' to run the Macro . . ." & DL & _
         "Click 'No' to abort!"
   Style = vbInformation + vbYesNo
   Title = "Run Macro Confirmation! . . . . ."
   
   If MsgBox(Msg, Style, Title) = vbYes Then
      stDocName = "close all"
      DoCmd.RunMacro stDocName
   End If

Exit_Command39_Click:
   Exit Sub

Err_Command39_Click:
   MsgBox Err.Description
   Resume Exit_Command39_Click
    
End Sub[/blue]

Be aware: [blue]VBA[/blue] can run the [blue]equivalent[/blue] of any macro, and much faster.

See Ya! . . . . . .