nach längerer Pause arbeite ich nun wieder mit OOo-Basic.
In einem Calc-Dokument habe ich ein Hauptformular und 2 Unterformulare mit je einem Tabellen-Kontrollfeld und einer Navigationsleiste. Es funktioniert alles tadellos.
Wird ein Datensatz des Hauptformulars gelöscht, werden auch die dazugehörigen Datensätze der Subformulare gelöscht. Das soll auch so sein. Nach dem Betätigen des Lösch-Buttons auf der Navigationsleiste des Hauptformulars, kommt nur die Nachricht, dass ein Datensatz gelöscht wird und die Nachfrage, ob man fortfahren möchte. An dieser Stelle möchte ich nun den Benutzer darauf hinweisen, dass auch die Datensätze der Unterformulare gelöscht werden. Mein Makro habe ich dem Ereignis ”Löschen bestätigen“ (Hauptformular) zugeordnet. Wenn der Benutzer auf den Nein-Button klickt, soll das Löschen natürlich nicht stattfinden. Und genau an dieser Stelle liegt mein Problem. Wie verhindere ich das Löschen, d.h. wie cancle ich das anstehende Ereignis Löschen?
Mein bisheriger Code:
Code: Alles auswählen
Sub bestaetigeLoeschen (oEvent as Object)
'XRayLaden
'xray oEvent
Dim i as Integer
Dim sText as String
Dim iTyp as Integer
Dim sTitel as String
sText = "Es werden auch die dazugehörigen Datensätze " & chr(13) & _
"von den Unterformularen gelöscht!" & chr(13) & _
"Wollen Sie trotzdem fortfahren?"
iTyp = 52 '48 + 4 = Erklärungs-Symbol + Ja-/Nein-Button
sTitel = "Sicherheitsabfrage"
i = MsgBox (sText, iTyp, sTitel)
If i = 7 Then
'MsgBox "Nein"
'Löschen des Datensatzes soll nicht durchgeführt werden
'Cancel = True (funktioniert nicht)
End If
End Sub
Christiana