Custom Msgbox

[TractorMike]

Hello, I am trying to build a custom message box so that I can have a little more functionality that the msgbox function of VBA. My problem is coming when I call the form to open, the execution of the code does not stop. I have a form named "FRM_Message" which is opened when the database is opened and then hidden.

Here is the Function that I have built, hopefully someone can help me find out why it will not pause the code until the form is hidden again even though it is opened as acDialog.

Forms("FRM_Message").Caption = ScreenCaption
Forms("FRM_Message").lblTitle.Caption = Title
Forms("FRM_Message").lblMessage.Caption = Message


Select Case NumButtons
Case 1
With Forms("FRM_Message")
.cmdOK.Visible = True
.cmdNo.Visible = False
.cmdYes.Visible = False
End With
Case 2
With Forms("FRM_Message")
.cmdOK.Visible = False
.cmdNo.Visible = True
.cmdYes.Visible = True
End With
Case 3
With Forms("FRM_Message")
.cmdOK.Visible = True
.cmdNo.Visible = True
.cmdYes.Visible = True
End With
End Select

DoCmd.OpenForm "FRM_Message", , , , , acDialog

MsgBox "This should not appear until FRM_message is Hidden"

 

[pbaldy]

It appears like the form is already open (I don't think you can change those settings unless it is). That might make it ignore the OpenForm line. Try closing it first.

 

[TractorMike]

That seems to have done it. Thanks

 

[pbaldy]

No problemo, and welcome to the site by the way!

 

[darbid]

You might like to look at a little message box I made to give you come ideas.

http://www.access-programmers.co.uk/forums/showthread.php?t=198190&highlight=icandy