Office: (Office 2003) Formular schreibgeschützt öffnen, bearbeiten, speichern

Hallo,

Im Zuge meines Access-Datenbankabenteuers muss ich mich wieder einmal vertrauensvoll an euch wenden *Smilie

1. Teil der Frage:

Ich habe ein Startformular, u.a. mit einem Button, der das Datenbankhauptformular öffnet. Der zugehörige (nicht von mir geschriebene) Code für dieses Ereignis lautet wie folgt:

Code:

Ich möchte nun, dass das Datenbankformular schreibgeschützt geöffnet wird. Ich weiß nur ganz abstrakt, dass das irgendwie mit dem Code allow.Edit = false zu tun hat, aber sicher bin ich mir nicht. War ich da auf der richtigen Fährte? An welcher Stelle muss ich den Code (und vor allem, welchen Code?) einbauen, der die Anweisung gibt, das Formular schreibgeschützt zu öffnen?

2. Teil der Frage:

Auf dem nun offenen und schreibgeschützten Datenbankformular möchte ich nun auch eine "Datensatz-bearbeiten" Befehlsschaltfläche einbauen, die es dem Anwender erlaubt, den Schreibschutz aufzuheben und Änderungen vorzunehmen. Wie lautet der Code für dieses Ereignis?

3. Teil der Frage:

Nachdem der Anwender den Schreibschutz aufgehoben und Änderungen vorgenommen hat, möchte ich schlussendlich noch eine "Daten speichern" Schaltfläche einbauen, die die Änderungen einerseits speichert und vor allem den Schreibschutz wieder aktiviert. Wie mache ich das?

Vielen Dank im Voraus für eure Antworten!

:)

 

Hi,

Teil 1 und 2 der Frage sind schnell beantwortet: mit Forms!frmSitzung.AllowEdits = True lässt du Änderungen zu, mit Forms!frmSitzung.AllowEdits = False verhinderst du sie.

Teil 3 wird schwieriger. Typische Accessformulare speichern die geänderten Daten in dem Moment, wo der Cursor den Datensatz (die "Zeile") verlässt. Ganz ohne Zutun. Wenn du dieses Schema durchbrechen willst und einen "expliziten Speicherbutton" willst, sind ziemliche Umbauten erforderlich, die für einen Anfänger nicht einfach werden.

 

Herzlichen Dank für die schnelle Antwort und Hilfestellung! Ich werde gleich mal versuchen, das umzusetzen *Smilie

Zum 3. Teil:

Ich würde die automatische Speicherung gar nicht ausschalten wollen, sondern dem Benutzer (der in der Regel gar nicht wissen wird, dass Access das automatisch macht) einfach gerne eine zusätzliche und vor allem ihm bekannte Möglichkeit bieten, den Datensatz mit den Änderungen durch aktives Tun zu speichern.

Der Speichen-Button soll also keine ausschließliche, sondern einfach eine zusätzliche Möglichkeit sein. Ist das dann immer noch so kompliziert?

 

"Manuell speichern" kannst du auslösen durch Me.Dirty = False. Aber wenn die User rausfinden, dass Access auch eigenmächtig speichert, werden sie vermutlich irritiert.

Ein Knopf, wo "Engine Start" draufsteht, sollte ja auch der einzige Weg sein, den Motor zu starten. *wink.gif*

 

Vielen Dank, werde es gleich ausprobieren *Smilie

Beim Schreibschutz ist allerdings folgendes, vermutlich aber nur kleines Problem eingetreten:

Das Formular, das geöffnet wird, besteht auch aus einem Unterformular. Auf dieses erstreckt sich der Schreibschutz leider nicht. Wie kann ich das beheben?

 

Du kannst AllowEdits auch darauf anwenden. Aus Sicht das Hauptforms ist das Ufo aber ein "Kind", so dass du diesen nachkommen besondern ansprechen musst:

Code:

NameDesUfoControls ist der Name des Ufo-"Rechtecks" im Hauptform. Der Name des Formulars im Ufo kann davon abweichen.

 

Vielen Dank! Es tut mir so leid, auf diesem recht primitiven Thema herumzureiten, aber leider habe ich jetzt folgende Fehlermeldung erhalten:

"MS Access kann das in Ihrem Ausdruck angesprochene Feld "Unterformular" nicht finden"

Ich habe in dem Code den Namen des Ufos im Hauptformular eingegeben ("Unterformular")

Der gesamte Code für den Button "Datenbank öffnen" sieht so aus:

Code:

Wo kann der Fehler liegen?

 

Hi,

der Code ist ok. Hat die Eigenschaft "Name" des Ufo-Rechtecks wirklich den Wet "Unterformular"? Zeig ggf. mal ein Screenshot des Euigenschftsfensters her, während das Ufo-"Rechteck" markiert ist.

 

Vielen Dank für deine Bemühungen!

Soweit ich das beurteilen kann, ja. Anbei der Screenshot.

 

Ein Kaffee hat geholfen: Das Form, das das Ufo enthält, wird ja erst geöffnet, daher ist es nicht "ich" (Me....), sondern muss namentlich angesprochen werden.

Code:

 

Nun funktioniert alles einwandfrei! *Smilie

Vielen herzlichen Dank für die sehr professionelle, verständliche und nette Hilfestellung!! *Smilie