Office: (Office 2003) Datensätze sperren

Der CODE aus FORM_DELETE reicht ? Ist jetzt glaub ich der ganze Code aus dem Formular:

Code:

Ach ich weiss nicht ob das ne rolle spielt! der CODE steht in einem Unterformular welches sich auf eine tbl stützt. Das ufo liegt in einem hfo, dass nur zur " Optik dient & für die Schaltflächen", da das UFO das Format einer Tabelle/Datenbankformat hat!

 

Liest und verstehst du eigentlich auch deinen Code, oder kopierst du nur wild irgendwelche Fundstücke zusammen und hoffst ds beste?

Du hast im Form_Delete eine Function-Zeile drin. Das kann nicht laufen.

Form_Delete ist eine Ereignisprozedur. Die wird aufgerufen, wenn das Ereignis eintritt. Offenbar willst du da das Ergebnis der Function auswerten. Du aber hast die ganze Deklaration der Function da drin.

Functions beginnen mit Function und enden mit End Function.
Sub beginnen mit Sub und enden mit End Sub.
Diese Deklarationen dürfen sich nicht überlappen.

Baus mal so um:
Code:

Und die Function legst du in ein neues Modul. Ganz außerhalb des Formulars.

 

Das ganze kann man per Formularsteuerung machen (was hier ja schon besprochen wird)
Jedoch nicht mit demRechte-Systeme. Rechte gelten immer auf alle Datensätze einer Tabelle.
Ich will einfach darauf hinweisen, das jeder Benutzer der Schreibrechte hat, die gesamte Tabelle ändern kann, in dem er die Tabelle direkt öffnet.

 

\@JPA:
richtig, siehe #6, letzter Absatz...

 

ok, habe ich überlesen.
Jedoch ist nicht die Frage ob sie an die Tabellen kommen, sobald Lese/schreibzugriff vorhanden ist, geht das immer. Außer sie wissen nicht wie es geht :-)
Ok, ich gebe zu mein Beitrag hier ist für die füsse, sorry :-(

 

Ich Versuchs und ich erkenn auch Ähnlichkeiten mit C++ !*rolleyes.gif*

Hab jetzt alles so getan wie du gesagt hast und jetzt bringt er/es mir ( wenn ich nen DS löschen will egal ob älter als 3 Tage ) die Fehlermeldung:

" Microsoft Visual Basic

Laufzeitfehler `5`:

Ungültiger Prozeduraufruf oder ungültiges Argument


Beenden Debuggen "


Wenn ich dann auf Debuggen klicke dann ist die Zeile:
Code:

Gelbhinterlegt!

 

C++ ist aber C++ und nicht VBA. Und auch da dürfen sich (afaik) Blöcke (wie Sub- und Function-Deklarationen) nicht überschneiden.

Der Ungültige Aufruf kommt durch das Leerzeichen hinter GroupsOfCurrentUser (). Da die Klammern zum Funktionsaufruf gehören, müssen die direkt an den Funktionsnamen dran.

Code:

 

upps*rolleyes.gif* hat ja auch gar kein Leerzeichen zwischen hab mich hier bloß verschrieben. Tschuldigung!

Also Fehler besteht weiterhin!

Wir können es ja so machen das ich die SICHERUNG von der Datenbank entferne und dir dann persönlich schicke! Will Sie hier nicht adden!*wink.gif*

Also nur wenn de willst, wenn nicht dann kann ich sie ja auch LANZ schicken ( er hatts mir auch schon angeboten)!
Will dich auch nicht immer nerven*boah

 

Hi,

jetzt hab ich was übersehen. Ersetze mal das tt im DateAdd durch d:

Code:

 

Der Code:
Code:

bringt erstmal keine Fehlermeldung mehr *Smilie ,
allerdings wenn ich eine Störung vom 15.10.2009 löschen will bringt er das Fenster " Meldedatum ist jünger " und löscht die Störung! Häää*boah

p.s. Die Funktion:
Code:

liegt jetzt in einem extra Modul ausserhalb des Formulars!

 

Bisher prüft der Code gleichzeitig, ob die Gruppe stimmt UND das Meldedatum < Heute vor 3 Tagen. Nur wenn beide Bedingen erfüllt sind, kommt der Then-Fall. In allen anderen Fällen (!) kommt der Else-Fall. Bist du denn in der Gruppe Elektriker? Hast du mal mit einem Haltepunkt nachvollzogen, wie die Einzelbedingungen laufen?

Ich hab nicht mehr präsent, wie die Gruppen- und die Datumsbedingung laufen soll. Evtl. musst du die Bedingungen verschachteln, damit die "hintereinander" ausgeführt werden.

Luftcode (nur zum Illustrieren):
Code:

Ein bisschen Mitdenken wäre schon schön.

 

Ich versuchs ja *rolleyes.gif*

Also habs auch verschachtelt ausprobiert, gleiches "Problem"!
Code:

Damit wird doch geprüft ob der aktuelle User zur Gruppe ElektrikerBWG gehört und wenn DAS so ist wird geprüft ob das Meldedatum älter ist als das aktuelle Datum minus 3 Tage und wenn DAS so ist soll die Meldung Code:

als MessageBox ausgegeben werden!
Oder nicht?

Was ich nicht verstehe (egal ob verschachtelt oder nicht):
ich meld mich mit "elektriker" der ja zur Gruppe "ElektrikerBWG" gehört an und will ein DS vom 15.10.2009 ( also schon mehr als drei Tage alt) löschen, dann kommt die MsgBox mit der Nachricht Code:

, die doch nur kommen kann laut CODE , wenn das Meldedatum nicht älter ist als 3 Tage (verglichen mit dem heutigem Datum!
Macht irgendwie genau das Gegenteil!

p.s. Ich versuch immer zu verstehen was ich bei VBA mache, hänge aber manchmal!

 

Code:

Vielleicht ist Me!Meldedatum ein String und kein Datum. Dann wäre "15.10.2009" größer als "04.11.2009".
=>
Code:

oder dafür sorgen, dass Me!Meldedatum ein Datum ist.

Anm.: Bei solchen Problemen hilft normalerweise das Durchlaufen des Codes im Einzelschrittmodus und das Analysieren der Vergleichswerte. Für gezielte Auswertungen von Variablenwerten ist Debug.Print hilfreich.

 

Code:

bringt immer noch " Elektriker, Meldedatum ist jünger."

wie denn?
In der Tabelle ist es als Datum deklariert!

Kannste das kurz erklären oder muss man dafür Infornmatik studieren?

 

Nö, es reicht normalerweise aus, in der Hilfe nachzulesen oder ein wenig mit Google & Co. zu suchen. *Smilie

Code:

Aufgrund von Debug.Print sollten nun im VBA-Editor im Direktfenster (Strg+G) die Vergleichswerte sichtbar sein.