Modifying Msgbox to include "Pause" button

[tmdrake]

I have a msgbox that alerts the user when he/she has reached the appointed record entry. When the msgbox appears, I would like to give the user the option the select "Pause" along side the "okay". If the user select "Pause" then the user is asked to select a reason for pausing (example: wrong cell info; bad cell used...), and if okay is choosen, the the code will continue to open the "GeneralTAbPullTest" form. Any help will be appreciated. Below is the current code being used:

Private Sub Form_AfterInsert()
 
If Not IsNull(Me.SN.Value) Then
    LastPosSN = Me.SN.Value
End If
If PosPullTestCount = Me.PullTestNum.Value Then
    MsgBox "Time to perform a pull-test on a scrap cell!"
    PosPullTestCount = 1
    Me.Text30.Value = Me.PullTestNum.Value
    DoCmd.OpenForm "GeneralTabPullTest"
Else
    PosPullTestCount = PosPullTestCount + 1
    Me.Text30.Value = Me.PullTestNum.Value
End If
 
End Sub

[zmbd]

you can not add a "pause" to the standard msgbox; however, you can add "yes/no/cancel", "abort,retry,ignore" and so forth
> MsgBox Function

Your only other option for a "pop-up" type message is to code a custom form and possibly custom events to handle what you want.

[ADezii]

@tmdrake:
You can do exactly what you have requested (Pause and Okay on a Standard Message Box), but the Code is rather complex and involves a concept called 'Hooking'.

[zmbd]

ADezii,
You're absolutly correct in that one can pull the hooks etc; however, that is normally something I don't recommend for the faint of heart nor for the begining VBA programmer as it is outside if the normal core VBA and can be easily broken. I've tried things like this in the past and have had issues where the wrong version of this or that DLL or .Net or what have you was installed on the target computer (or not installed). Usually not an issue to have my IT push the update down; however, it can take days or weeks to get a workorder thru such a large company.