PDA

Vollständige Version anzeigen : Meldung!


Dr.Art
25.06.2001, 14:58
Ich hab nen Problem ne Message Box zu erstellen. Ich benötige ne MessageBox wo man zwischen Ja/Nein/Abbrechen auswählen kann. Hab zwar schon eine hinbekommen zwecks Formular schließen, aber entweder wir bei allen drei Möglichkeiten mein Formular geschlossen oder es passiert gar nichts.
Sieht bisher so aus:
MsgBox Prompt:="Hallo" & Chr(10) & Chr(10) & _
"Wollen Sie die Datenbank wirklich beenden?" & Chr(10) & _
"Wenn ja, dann auf OK klicken!", _
Title:="Hinweis", _
Buttons:=vbYesNoCancel
DoCmd.Close

Morli
25.06.2001, 15:11
HalLo Dr.Art,

Du mußt das Ganze in eine If-Then Routine packen!

Dim Antwort
Antwort = MsgBox (Prompt:="Hallo" & Chr(10) & Chr(10) & _
"Wollen Sie die Datenbank wirklich beenden?" & Chr(10) & _
"Wenn ja, dann auf OK klicken!", _
Title:="Hinweis", _
Buttons:=vbYesNoCancel)

If Antwort = vbYES Then
DoCmd.Close
ElseIf Antwort = vbNo Then
xxxxxxx
ElseIf Antwort = vbCancel then
yyyyyyy
EndIf

Gruß

Rainer :)

Dr.Art
26.06.2001, 07:36
Man dankt! Dadurch espare ich mir paar Lebensjahre!