Befehlsschaltfläche beim öffnen aktiviert?!

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen :smile:
Ich habe eine Datenbank erstellt, bei der ich per Befehlsschaltfläche die Datensätze sperren kann. und zwar mit diesem Code:

Private Sub Befehl69_Click()

If Me.AllowEdits Then
Me.AllowEdits = False
Me!Befehl69.Caption = „Entsperren“
Else
Me.AllowEdits = True
Me!Befehl69.Caption = „Sperren“
End If
End Sub

Das funktioniert auch bisher gut. Das einzige Problem, das ich habe ist, dass ich es brauche, dass die Datensätze beim Öffnen des Formulars schon gesperrt sind, und der Button eher eine Entsperrfunktion haben soll…

Wenn ich aber bei den Eigenschaften vom Formular die Daten sperre, klappt an sich gar nichts mehr… der Button funktioniert nicht mehr und ich kann keine neuen Daten eingeben…

Weiss jemand vielleicht eine Lösung??

Vielen Dank :smile:

vg Michaela

#2

Hallo,

„Wenn ich aber bei den Eigenschaften vom Formular die Daten sperre“

WIE machst Du denn das? Welche Eigenschaften setzt Du und auf welchen Wert?

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

„WIE machst Du denn das? Welche Eigenschaften setzt Du und auf welchen Wert?“

Indem ich das Formular öffne, auf ein entsprechendes Textfeld rechts-klicke und die Eigenschaften auswähle. In der Reisterkarte „Daten“ den Eintrag „Gesperrt“ auf „ja“ stelle.

Ist falsch, ne? :wink:

#4

Hallo,

Indem ich das Formular öffne, auf ein entsprechendes Textfeld
rechts-klicke und die Eigenschaften auswähle. In der
Reisterkarte „Daten“ den Eintrag „Gesperrt“ auf „ja“ stelle.

Ist falsch, ne? :wink:

Ja…

setz die Daten-Eigenschaft des Forms „Bearbeitungen zulassen“ auf „nein“.

Genau Diese Eigenschaft („AllowEdits“) steuerst Du ja mit dem Code.

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#5

Hey, super, jetzt klappts!!!

Vielen lieben Dank Dir! Da hätte ich wohl ewig rumprobiert, wenn ich es überhaupt jemals gefunden hätte…
Echt vielen Dank, das hat mir wirklich sehr geholfen!!!

Wünsche Dir noch einen schönen Tag.

Liebe Grüsse aus Basel :smile: