Message Box

[buck]

Hopefully a simple question: I have a command button with the VBA code below. I'd like a message box to appear with a comment and an "OK" button that continues the code below . . is this possible?



Private Sub cmdDuplicateOverpayments_Click()
On Error GoTo Err_cmdDuplicateOverpayments_Click

Dim stDocName As String

stDocName = "qryFindduplicatesforOverpaymentsDetails"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_cmdDuplicateOverpayments_Click:
Exit Sub
Err_cmdDuplicateOverpayments_Click:
MsgBox Err.Description
Resume Exit_cmdDuplicateOverpayments_Click

End Sub

[pbaldy]

Have you looked at MsgBox in VBA help?

[buck]

yes before coming to forum

[pbaldy]

So

MsgBox "your comment here"

Doesn't do what you want? If not, you might be more specific about what you want and why MsgBox doesn't fit.

[buck]

I thought the question was simple enough, not sure how else to ask. . . Can the code above be modified to include a message box?

[pbaldy]

Yes; add the line:

MsgBox "your comment here"

[June7]

Why are you opening a query? Users should not interact directly with tables and query, better to use forms and reports as interface.

Put the MsgBox line wherever you want.

[buck]

It is a form with a command button as explained in early post. I've already gotten the answer from another forum. Thanks anyway

[pbaldy]

It might help someone here if you post the answer you got. I'd love to see what it was myself.

[buck]

MsgBox "PUT MESSAGE HERE", vbOKOnly

[orange]

Buck,

When cross posting please advise the readers that you have done so. Here's why.

Cross posted at http://www.mrexcel.com/forum/microso...ssage-box.html

Merry Christmas.