Supportnet / Forum / Datenbanken
Zeilenumbruch in msgbox
Frage
Guten morgen zusammen,
Ich habe ein Problem mit einer msgbox, dass mich schier zur weissglut bringt, trotz Hilfe (und meiner Meinung nach) genau der Angbae, die dort steht geht es nicht. Hier mein Problem: ich möchte eine msgbox ausgeben, die Zeilenumbräche drin hat, da sonst der Text und die Box zu gross wird.
Mein Code:
Dim Status As Integer
Const prompt As String = "Detaildaten generieren " & (Chr(10)) _
& " und Tabelle vorgängig löschen ?" & (Chr(10)) _
& " JA: Daten löschen und Generieren" & (Chr(10)) _
& " NEIN: nur Daten generieren" & (Chr(10)) _
& " Abbrechen: es passiert gar nichts! "
Status = MsgBox(prompt, vbYesNoCancel + vbCritical, "Start der Prozedur ")
If Status = 2 Then
Exit Sub
End If
Beim Test erscheint die Meldung "Fehler beim Kompilieren, konstanter Ausdruck erforderlich"
Was habe ich falsch gemacht? Besten Dank für Eure Hilfe.
Antwort 1 von Herbert
Hallo Urs,
so gehts:
Const prompt As String = "Detaildaten generieren " & vbnewline _
& " und Tabelle vorgängig löschen ?" & vbnewline _
& " JA: Daten löschen und Generieren" & vbnewline _
& " NEIN: nur Daten generieren" & vbnewline _
& " Abbrechen: es passiert gar nichts! "
Gruß Herbert
so gehts:
Const prompt As String = "Detaildaten generieren " & vbnewline _
& " und Tabelle vorgängig löschen ?" & vbnewline _
& " JA: Daten löschen und Generieren" & vbnewline _
& " NEIN: nur Daten generieren" & vbnewline _
& " Abbrechen: es passiert gar nichts! "
Gruß Herbert
Antwort 2 von Urs
Hallo Herbert,
Besten Dank, funktioniert einwandfrei.
Gruss
Urs
Besten Dank, funktioniert einwandfrei.
Gruss
Urs

