Office: (Office 2003) Datensätze sperren

Hilfe ! Hab den Code:

*entsetzt
Option Compare Database

Private Sub Form_Delete(Cancel As Integer)
Function GroupsOfCurrentUser() As String
Dim wrkDefault As Workspace
Dim usrLoop As User
Dim grpLoop As Group
Dim grpMember As Group
Dim AktGruppen As String
Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
For Each usrLoop In .Users
If usrLoop.Name = CurrentUser Then
For Each grpLoop In usrLoop.Groups
AktGruppen = AktGruppen & "," & grpLoop.Name
Next grpLoop
End If
Next usrLoop
End With
GroupsOfCurrentUser = Mid(AktGruppen, 2)
If GroupsOfCurrentUser() = "ElektrikerBWG" And Me!Meldedatum < DateAdd("tt", -3, Date) Then
'Meldedatum ist mehr als 3 Tage alt (verglichen mit heute)
Else
'Meldedatum ist jünger.
End If


End Function
*entsetzt

beim Formular > Eigenschaften > Beim Löschen > [Ereignissprozedur] eingegeben und wenn ich jetzt als "elektriker" nen DS vom 14.10.2009 löschen will dann geht MS VISUAL BASIC auf und bringt die Fehlermeldung: Fehler beim Kompilieren: End Sub erwartet*upps

 

Hallo
die darstellung des Code *boah
Besser und noch einrücken
Code:

und schon kann mann besser Lesen

und was hab ich jetzt Rot markiert ?
er sagt doch SUB

 

Wie geht das denn das man den Code hier so geil abbildet?

Komm mir so doof vor!*tongue.gif*


Ja er sagt SUB!

 

Hallo
schau Hier
http://ms-office-forum.net/forum/sho...?t=102899#usec
einrücken = Handarbeit mit etwas Routine (ca. 39 Jahre) kein Problem *Smilie

aber man sollte schon so Codieren *wink.gif*


hast Du SUB eingesetzt ?

 

Was ist SUB? Mein Code sieht so aus wie deiner!

Hääääää*upps

 

Dein Code beginnt als Sub und endet mit End Function. Das geht nicht.

Schreib ganz unten anstelle von End Function End Sub, und alles wird gut.

 

ok hab jetzt Function gegen Sub getauscht!
Trotzdem Fehlermeldung:

" Microsoft Visual Basic

Fehler beim Kompilieren:

End Sub erwartet

OK Hilfe "


wenn ich dann auf OK drücke dann wird im CODE die Erste Zeile BLAU unterlegt mit nem gelben Pfeil davor und die letzte Klammer ist auch gelb unterlegt:

Code:

 

Hallo
um das abzuklären müsste man schon mehr sehen *frown.gif*

also lade die MDB hoch und wenn Du das nicht Möches kannst Du sie mir auch
per E-Mail oder air mail senden

 

Die DB ist schon in Benutzung und voll mit Daten, die leider unter das Betriebsgeheimnis fallen und so!
*depressed

Könnte ja die DB kopieren und die Daten rauslöschen, allerdings ist sie ja schon gesichert und ich geh ja immer über die Verknüpfung rein!

Kann man in eine leere DB Objekte aus einer anderen DB einfügen?*eek.gif*

 

Ach Christian,
wie soll man da helfen...

Wenn die Daten so geheim sind, dann gewähre uns einen Blick in deinen jetzigen Code...
Man kann Daten außerdem in einer Kope anonymisieren, so dass Namen, Orte, Preise etc verfälscht sind.

 

Hallo
überigens ich habe einmal eine Kleine ACCESS DOC geschrieben
wenn Du denkst das währe was für Dich,
sende mir eine PN mit dem Vermerk ACCESS DOC
und Wichtig Deiner E-Mail adresse
und ich Sende sie Dir

PN = oben links auf meinen Namen Klicken und Private Nachricht wählen

 

Wie kann ich denn anonymisieren?

 

Erstelle eine Kopie der DB, damit du die ursprünglichen Daten behältst. In der Kopie änderst du alle vertraulichen Daten ab. Enweder mit der Hand (Kunden heißen Micky Laus etc), oder durch Aktualisierungsabfragen, die z.B. nur die Anfangsbuchstaben stehenlassen oder Zufallswerte reinschreiben.

Dein Nick hier ist doch auch nicht dein (ganzer) Realname.

 

man ich könnt ausflippen!

Ich hab doch meine DB mit Datensicherheitsassistenten Kennwort geschützt!
Dabei entsteht doch eine VERKNÜPFUNG ( über die man sich ja einlogen muss) und eine SICHERHEITSDatei!

Wenn ich jetzt alle drei kopieren will und woanders ablege dann greift ja die VERKNÜPFUNG trotzdem auf die orginaldatei zu also würde es ja nichts bringen euch diese Drei Datei zu schicken! Ahhhh wie kann ich das jetzt machen*upps

 

Man kann den Schutz ja auch entfernen...
http://www.ms-office-forum.de/forum/...57&postcount=2

Aber es würde vielleicht auch genügen, wenn du den Code einfach da rauskopierst und hier einfügst.