✔ MsgBox-Problem

[Mailyn]

Also, hab diesen Code (Auf Form 5)

If MsgBox("Willst du Bla bla bla?", vbQuestion + vbYesNo, "Bla Bla bla") = vbYes Then
			Form8.Show
			Form5.Hide
If vbNo Then Form5.Show
End If

Wenn ich auf "Ja" drücke, wird zwar Form 8 gezeigt, aber Form5 nicht versteckt! Wo liegt mein Fehler?

 

[Orakel]

Hi,

naja, wie soll ich es ausdrücken, einfach ein kleiner Fehler in der Anwendung boolscher Logik.
Du hast zwei Möglichkeiten:

     If MsgBox("Willst du Bla bla bla?", _
               vbQuestion + vbYesNo, _
               "Bla Bla bla") = vbYes Then
        Form8.Show
        Form5.Hide
    Else
        Form5.Show
    End If

     Dim nAnswer      As Integer

     nAnswer =  MsgBox("Willst du Bla bla bla?", _
               vbQuestion + vbYesNo, _
               "Bla Bla bla")
      If nAnswer = vbYes then
        Form8.Show
        Form5.Hide
    ElseIf nAnswer = vbNo Then
        Form5.Show
    End If

Such Dir aus, was Dir besser gefällt

Gruß
Das Orakel