Message-Box
13.08.2003 13:56:59
Thomas S.
Mit nachfolgendem Code erzeuge ich beispielsweise eine Message-Box.
Sub MessageBox()
Dim Meldung, Stil, Titel, Antwort
Meldung = "Die Daten werden in die Datenbank übernommen !" ' Meldung definieren.
Stil = vbOKOnly + vbInformation + vbDefaultButton1 + vbApplicationModal ' Schaltflächen definieren.
Titel = "Teile einlagern ..." ' Titel definieren.
Antwort = MsgBox(Meldung, Stil, Titel) ' Meldung anzeigen.
End Sub
Ich möchte erreichen, dass man die Meldung nur mit dem OK-Button an den Code zurückgeben kann. Das kleine x oben rechts müsste dafür deaktiviert werden. Ich finde leider keine Lösung.
Gruß Thomas
Anzeige