Querydocumentdelete

[Hedwig14]

Hallo,

ich verwenden diesen Code um das Löschen bestimmter Doks zu unterdrücken.
Das Löschen wird auch unterdrückt. Leider bleibt das x (Löschmarkierung) in der Ansicht bestehen
und mit F9 kann es dann gelöscht werden. Wie kann ich das verhindern


'Freigegebene Dokumente dürfen natürlich nicht gelöscht werden!
   If loeschdoc.Ticket_Status(0) = "30" Then
      Msgbox "Bereits freigegebene Dokumente können nicht gelöscht werden!", BoxType,"Hinweis"
      continue = True      
      Exit Sub      
   End If

[Driri]

Du müßtest den Code im Datenbank Skript im QueryDocumentDelete unterbringen. Dieser gilt dann datenbankweit, das muß ggf. im Code berücksichtigt werden.

[Hedwig14]

der Code ist im Querydocumentdelete

[Driri]

Ahso, sorry.

Warum steht da Continue = True ? Dann werden sie ja doch gelöscht.

[Axel]

Du musst Continue auf False setzen.

   If loeschdoc.Ticket_Status(0) = "30" Then
      Msgbox "Bereits freigegebene Dokumente können nicht gelöscht werden!", BoxType,"Hinweis"
      continue = False      
      Exit Sub      
   End If


Axel

Ups: Ingo war schneller   

[Driri]

Macht nix, ich hab ja zwei Anläufe gebraucht, um dann auch mal den Thread-Titel wahrzunehmen 

[Hedwig14]

oh mann !
true und false: das richtige gemeint aber das falsche geschrieben.

Danke !!!!!

Wer lesen kann ist klar im Vorteil ! Sorry !

[Axel]

Wer lesen kann ist klar im Vorteil ! Sorry !

Kein Problem. Manchmal sieht man den Wald vor lauter Bäumen nicht.   

Schönes Wochenende.

Axel