yes no messagebox

toecutter · Jun 25th 2006

hi
i have this code which will not open the requested userform when the messagebox yes button is selected

Code

Private Sub UserForm_Activate()
Dim Response As Integer


MsgBox "Are Both Parapets the Same?", vbYesNo, "PARAPETS"
     If Response = vbYes Then
     
     ufmDoubleParapet.Show
      
     End If
     If Response = vbNo Then
     Exit Sub
     End If
'    Unload Me
End Sub

Display More

what have i left out?
cheers
toe

toecutter · Jun 25th 2006

Re: yes no messagebox

worked it out

Code

Private Sub cmdOpenCladingSelectionRight_Click()


Dim varAnswer As String


    varAnswer = MsgBox("Are Both Parapets the Same?", vbYesNo, "PARAPETS")
    
If varAnswer = vbYes Then


    cmdOpenCladingSelectionLeft.Visible = False
    cmdOpenCladingSelectionRight.Visible = False
        
    ufmDoubleParapet.Show
    
End If
    
    
If varAnswer = vbNo Then


    ufmSingleParapet.Show
    
    cmdOpenCladingSelectionRight.Visible = False
    
End If
End Sub

Display More

Dave Hawley · Jun 25th 2006

Re: yes no messagebox

Thanks for sharing.

**Andy Pope** · Jun 25th 2006

Re: yes no messagebox

Just to add, if you use the built in type rather than string you will benifit from intellisense.
[vba] Dim lngAnswer As VbMsgBoxResult

lngAnswer = MsgBox("Are Both Parapets the Same?", vbYesNo, "PARAPETS")
[/vba]
Now when you type in the If test condition you will get the vbYes vbNo and other options displayed.

toecutter · Jun 26th 2006

Re: yes no messagebox

cool
thx

Dave Hawley · Jun 26th 2006

Re: yes no messagebox

Andy, I get intellisense on the orginal method also.

socram_06 · Jun 26th 2006

Re: yes no messagebox

Another way...

Code

If MsgBox ("Are Both Parapets the Same?", vbYesNo, "PARAPETS") = vbNo then
Exit Sub
End If
' so, if you click "Yes"...
ufmDoubleParapet.Show

Hope it helps

Marcos.

**Andy Pope** · Jun 26th 2006

Re: yes no messagebox

Hi Dave,

Sorry I wasn't clear. The intellisense will also work on this line once you have typed the ='s
[vba] If lngAnswer = vbYes Then[/vba]

toecutter · Jun 26th 2006

Re: yes no messagebox

how do u enable this intellisense?

**Andy Pope** · Jun 26th 2006

Re: yes no messagebox

In the VBE check Tools > Options > Editor. Auto List Members and Auto Quick Info settings.
[quote]Auto List Member — Displays a list that contains information that would logically complete the statement at the current insertion point.

Auto Quick Info — Displays information about functions and their parameters as you type.[/quote

Dave Hawley · Jun 26th 2006

Re: yes no messagebox

Ok, gotcha. Thanks.

Anonymous · Jun 26th 2006

Re: yes no messagebox

As a VBA novice, I make damn sure I know in advance what I'm going to stick in, so I find I'm looking down at the keyboard, typing the keyword anyway, not looking at the screen looking to see what it could be, so I find this intellisense feature pretty useless really - perhaps I'm unusual?

**Andy Pope** · Jun 26th 2006

Re: yes no messagebox

ByTheCringe2 that's interesting as I think the intellisense will probably help you most whilst you are learninig.

I understand you need to get things right but that's what it will help you do.

Take the simple Msgbox function. Once your type msgbox the arguments relevant to the function are displayed. And when you get to the argument about buttons and icons the list of available options is displayed.

How do you make sure you have all the correct information when typing in a command?

yes no messagebox

Participate now!

Share