Office: (Office 2003) Datensätze sperren

also soll sich jetzt irgendwo wat zeigen ?
ick hatte beide fenster( Formular und VBA) offen und hab mal nen ds gelöscht, aber ist nischt passiert?*upps

 

Vielleicht bist du noch Mitglied weiterer Gruppen. Dann ergäbe die GroupsOfCurrentUser() eben nicht die geforderte Gleichheit mit "ElektrikerBWG", sondern nur ein Enthaltensein.

Hangel dich halt mal im Einzelschrittmodus durch, verfolge die Variablen und Ausdrücken durch Überwachung, Draufzeigen mit der Maus oder geeignete Debug.Print-Zeilen im Direktfenster.

Vermute nicht, was in den Werten drinsteht, sondern prüfe es. Fehler passieren ja gerade dort, wo man es nicht erwartet. "Müsste, aber ist es auch?" ist der Grundsatz jeder Fehlersuche.

 

Hattest du das Direktfenster geöffnet?
Falls ja, dann ist der Code vielleicht gar nicht an die Stelle mit Debug.Print gekommen.

Tipp: schreibe einmal an den Anfang der Prozedur den Stop-Befehl rein.
Anschließend kannst du mit F8 im Einzelschrittmodus den Code durchlaufen und manuell prüfen, welche Zeilen durchlaufen werden.

Code:

Sollte der Code bei Stop nicht stehen bleiben, ist möglicherweise die Sub Form_Delete nicht an das Ereignis gebunden. => Prüfen ob in der Form-Eigenschaft für die Ereignisbehandlung "[Ereignisprozedur]" steht.

BTW: ich nehme an, dass in der Prozedur noch Cancel = False fehlt, falls du das Löschen verhindern willst.

 

Stimmt!*grins

Probier ich mal!

 

Oder auch nicht. Besser wäre Cancel = True *biggrin.gif*

 

Hallo
Wie ist das in der Tabelle und im Formular
Definier klar hast Du gesatt Date *frown.gif*
aber Datum Zeit oder Nur Datum ?

 

nur Datum!

hää*entsetzt wat jetzt?

 

Cancel = True bricht die aufrufende Operation ab. Wenn der Löschbefehl die aufrufende Operation war, wird das Löschen abgebrochen. Die Daten bleiben erhalten.

 

[OT: Ereignis mit Cancel]
Code:

Damit wird der ByRef-Parameter Cancel aus mit True belegt. Dieser Parameter kam vom Ereignis in die Ereignisbehandlung. Im (unsichtbaren) Code, der das Ereignis auslöste, wird dieser Cancel-Wert berücksichtigt.

Du kannst dir das ungefähr so vorstellen (bitte nur als Konzept betrachten):
Code:

Klasse Access.Form (nicht sichtbar):
Code:

 

So hab jetzt beide Fenster (Formular und VBA)!
Die prozedur Stopt auch
( Code:

und das Formular schließt sich! Kann jetzt auch mit F8 jede Zeile des Codes einzeln durchlaufen, aber was kann ich jetzt daraus sehen? Auf was muss ich achten? Das Code:

kann ich doch reinsetzen wenn das erstmal so läuft wie es soll oder soll ich den jetzt schon reinsetzen ?*entsetzt

 

Hi,
wenn die ersten beiden Zeilen abgearbeitet sind, sollten im Direktfenster (Strg+g) zwei Zeilen zu sehen sein, die jeweils zwei Werte zeigen (durch Komma getrennt). Das ist die Ausgabe der beiden debug.print Zeilen. Vergleiche diese Zeilen mit der Ausgabe im Direktfenster, und du erfährst, welche Werte wie lauten. Ich hab das mal durch Farben hier deutlich gemacht.

debug.print GroupsOfCurrentUser(), ]"ElektrikerBWG"
debug.print Me!Meldedatum, DateAdd("d", -3, Date)
ergibt z.B.
ElektrikerBWG,Admins , ElektrikerBWG
10.10.2009, 02.11.2009

Da du nun die Werte statt der Symbole kennst, kannst du VBA quasi beim Ablauf zugucken.

Solche Debug-Techniken gibt es noch mehr:

• Mit der Maus auf Stellen im Code zeigen -> zeigt aktuellen Wert des getroffenen Ausdrucks an
• markierten Code per rechtsklick in die Überwachung nehmen -> VBA zeigt stets den aktuellen Wert an.

Debuggen ist das halbe Entwicklerleben. Du solltest dich also intensiv mit diesen (und anderen) Debugtechniken befassen, damit du deinen Code selber durchblickst und weißt, was da abläuft. Code einfach nur vom Durchlesen zu verstehen ist viel schwerer, als ihm einmal "beim Ablaufen zuzugucken".

 

*upps

Direktbereich:

ElektrikerBWG,User ElektrikerBWG
15.10.2009 02.11.2009

wird angezeigt!
hab mich mit "elektriker" angemldet(gehört zur Gruppe ElektrikerBWG)!

Ach shit wat sagt mir das jetzt? So wie es aussieht ist das mit dem Datum 5.11 -3 = 2.11 doch korrekt, oder? Stimmt da was mit den Usergruppen nicht?*boah

 

muss den rechner mal abgeben also bis später!

 

Dein Benutzer gehört zu zwei (!) Gruppen: ElektrikerBWG und User

Damit wird die Gleichheitsbedingung nicht erfüllt. Darf er jetzt, oder darf er nicht löschen? Als Mitglied der Elektriker ja, als "normaler" User nicht.

Ich vermute mal, dass du jeden Benutzer nur eine Gruppe zuordnen willst, das ist aber eben nicht der Fall. Ändere das.

 

Tipp:
Ich würde

auf

umschreiben.
Anm.:
IsMember soll im Hintergrund prüfen, ob der aktuelle Benutzer zur angegebenen Benutzergruppe gehört.

Und bezüglich debuggen:
Wenn du den Code im Einzelschritt-Modus durchgegangen bist, müsste dann doch aufgefallen sein, dass schon bei der ersten If-Anweisung der Block im If übersprungen wurde.