Hallo,
ich möchte eine Messagebox in der ich zwei Buttons bekomme (ja, Abbrechen)
Wenn ich auf ja drücke, soll er in die Abfrage Daten gehen, wenn Abbrechen aus der Schleife raus! Wenn 15 sek nichts passiert soll ebenfalls die Abfrage passieren!
Wie muss ich meinen Code unten erweitern, damit er funzt?
Sub Box()
Dim MsgWert As Byte
MsgWert = MsgBox("Alle Berichtsdaten neu holen?", 1, "Datenbankabfrage")
If MsgWert = 1 Then
Abfragen.Daten
ElseIf MsgWert = 2 Then
Exit Sub
End If...