Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Nochmal mein Code....
Autor: Guismo
Datum: 10.03.02 14:36
Wäre echt super, wenn mir jemand helfen könnte!!!!! Private Sub cmbLöschen_Click() On Error GoTo Fehler_Schutzverletzung Dim Answer As Integer If cmbLöschen.Enabled = True Then Answer = MsgBox("Wollen Sie den Datensatz wirklich löschen?", 4 + 16, "Warnung") If Answer <> 6 Then Exit Sub With RsGenre .MoveFirst .Move NumRecords:=listAusgabe.ListIndex .Delete .MoveLast End With Call OutputGenre End If Exit Sub Fehler_Schutzverletzung: Answer = MsgBox("Schutzverletzung! Datensatz wird noch verwendet!", 272, "Ein Schutzfehler ist aufgetreten")

Brauche dringend Hilfe....	39	Guismo	10.03.02 01:39
Nochmal mein Code....	17	Guismo	10.03.02 14:40
Nochmal mein Code....	15	Guismo	10.03.02 14:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen