How to customize MsgBox

[hu5]

Hi
I put a command button to move 2 types of records. But have problem using MsgBox for user selection.
I try to modify the system MsgBox, but it didn't sound right. How do I replace "yes" and "no" to "ARCHIVE" and "INACTIVE" option? Thank you for help.

Private Sub MoveRecord_Click()

If MsgBox(" Are you moving Archive Records? Click Yes to move Archive Records, click No to move Inactive Records.", 36, "Which records to move") = vbYes Then

On Error GoTo Err_MoveToArchive_Click

Dim stDocName1 As String
Dim stDocName2 As String

If DCount("*", "[certStatus]", "Status Like '*archive*'") = 0 Then

MsgBox ("No more archive record to move.")
Exit Sub
End If
...
else
On Error GoTo Err_MoveToInactive_Click
..

 

[PHV]

You may consider creating a small modal form with your customized commandbuttons.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244