Office: (Office 2003) Welches Ereignis bei Datensatzwechsel?

Hallo Access-Spezialisten,

ich habe 2 Fragen zu einer kleinen Access2003-Datenbank :

In einem Formular (frmTest) werden Daten aus Tabelle tblTest angezeigt.
Diese Tabelle enthält neben einigen Textfeldern auch ein Ja/Nein-Feld (blnStatus).

Ich möchte erreichen, dass nach Anklicken des Ja/Nein Feldes im Formular der Datensatz editierbar sein soll (AllowEdits=TRUE) oder nicht (je nach Wert des Ja/Nein-Feldes).

Dazu benötige ich m.E. 2 Ereignisse :
- Welches Ereignis tritt nach Anklicken (Aktivierung/Deaktivierung) des Ja/Nein-Feldes ein ?
- Welches Formular-Ereignis tritt bei Wechsel auf den nächsten/vorherigen/anderen Datensatz ein ? - Ich möchte bei Wechsel auf einen anderen Datensatz die Eigenschaft AllowEdits entsprechend des JA/Nein-Wertes aktivieren/deaktivieren !

Mein Versuch, der nicht klappt wie gewünscht :
Me.AllowEdits = (blnGesperrt.Value = 0)

Ist das überhaupt der richtige Weg oder gibt es andere Möglichkeiten, das zu realisieren ? Wenn ja : bitte um detaillierte Beschreibung *wink.gif*

Danke für eure Antworten.

:)

 

Das sollte das Ereignis "Nach Aktualisierung" der Checkbox sein.

Versuchs's mit dem Formular-Ereignis "Beim Anzeigen".


Es wird allerdings schwierig, die Checkbox zu klicken, wenn Me.AllowEdits=False ist. Du müsstest stattdessen alle anderen Felder, bis auf die Checkbox, sperren/freigeben. Die anderen Felder durchläufst du am besten mit einer Schleife.

 

Vielleicht ist es eine Alternative, die Datensätze in einem Listenfeld (oder alternativ gesperrtem Formular) darzustellen (dort sind sie nicht editierbar) und den ausgewählten Datensätz in einem editierbaren Formular anzuzeigen.

 

Hallo Arne,

vielen Dank für Deine sehr schnelle Antwort.
Es klappt fast : Form_Current() wird einwandfrei ausgeführt, lediglich in blnGesperrt_AfterUpdate() besteht noch ein kleines Problem :
Aktiviert man das Ja/Nein-Feld, so kann man den Datensatz immer noch editieren - est wenn man zum nächsten Datensatz und dann gleich wieder zurück wechselt ist die "Sperre" aktiv. Ich nehme an, dass der Datensatz noch nicht gespeichert ist, solange man ihn bearbeitet !?!? Wie könnte man das lösen (irgendwas mit RecodsetClone oder Bookmark oder Reset o.ä. ?) - Bin leider ein Super-Dau was die MS Access VBA-Syntax angeht *frown.gif*

Es ist übrigens beabsichtigt, dass der Datensatz komplett (in diesem einen Formular !) gesperrt ist !
In anderen Formularen findet ja keine Sperrung statt :-)

Vielen Dank für Deine Hilfe...

 

Nach dem Sperren ein Me.Requery sollte helfen

 

Hallo CptChaos,

diese Idee hatte ich auch bereits, aber nach Me.Requery wird leider wieder der erste Datensatz der Tabelle angezeigt *frown.gif* Ich möchte aber logischerweise auf dem gleichen Datensatz stehen bleiben...

 

Hallo Leute,

vielen Dank für eure Unterstützung.
Gemeinsam hat es nun geklappt ! Nach Me.Requery einfach DonKarls Tip 4.5 anwenden, dann bleibt der aktuelle Datensatz aktiv !

Hier der fertige Code :

<table align="center" border="1" cellpadding="4" cellspacing="1" width="98%"style="border-collapse:collapse;font-family:Arial;font-size:12;"><tbody><tr><td style="background-color:#EBEBEB;"><b>VBA-Code:</b></td></tr><tr><td style="background-color:#FFFFFF;font-family:Courier New;font-size:12;"><FONT COLOR=#0000FF>Option Compare Database</FONT><br /> <br /> <FONT COLOR=#0000FF>Private Sub</FONT> Form_Current()<br />     Me.AllowEdits = (blnGesperrt.Value = 0)<br /> <FONT COLOR=#0000FF>End Sub</FONT><br /> <br /> <FONT COLOR=#0000FF>Private Sub</FONT> blnGesperrt_AfterUpdate()<br />     <FONT COLOR=#0000FF>Dim</FONT> lngStore <FONT COLOR=#0000FF>As Long</FONT><br />     lngStore = Me!ID<br /> <br />     Me.AllowEdits = (blnGesperrt.Value = 0)<br />     Me.Requery<br />     Me.RecordsetClone.FindFirst "Id = " & lngStore<br />     Me.Bookmark = Me.RecordsetClone.Bookmark<br /> <FONT COLOR=#0000FF>End Sub</FONT><br /> <br /> </td></tr><tr><td style="background-color:#EBEBEB;font-size:10;">Code eingefügt mit <b><a *****"http:>Syntaxhighlighter 4.15</a></b></td></tr></tbody></table>

Vielen Dank für die gemeinsame Hilfe !!