Formular - Vorlage / Schreibschutz

[MzKlMu]

Hallo,
welchen Namen hat das Kombifeld das die Kundennr_F anzeigt ?

[kingwambi]

Hallo - das wars - Kombinationsfeld28 - dann ging es - Danke!
beim duplizieren kommt nun eine Fehlermeldung "Unzulässsige Verwendung von Null" - wie soll ich hier vorgehen? LG

[MaggieMay]

Füge den folgenden Befehl als ersten ins Current-Ereignis ein:

Code [Auswählen] Erweitern

    If Me.NewRecord Then Exit Sub


[kingwambi]

nichts - wenn ich den (Schreibschutz)Code lösche geht's wieder - LG

[MaggieMay]

Ich hatte meine Antwort nochmal geändert - falls du es nicht bemerkt hast, s.o.

[kingwambi]

Hallo - ja hab ich übersehen - Danke. So richtig? Wenn ja, dann kommt
"Der Befehl oder die Aktion einfügen ist zurzeit nicht verfügbar" - aber nur beim gerade schreibgeschützten.

Private Sub Form_Current()

If Me.NewRecord Then Exit Sub

        Me.AllowEdits = Not Left(Kombinationsfeld28.Column(1), 1) = "9"
                 

End Sub

[MaggieMay]

Dann musst du halt den Schreibschutz vor dem Kopieren aufheben oder das Kopieren in dem Fall unterbinden.

[kingwambi]

Datensätze mit Kundenummer beginnend 9 sollen nicht geändert werden können - darum der Schreibschutz. Erst nach dem duplizieren soll das neu erstellte beliebig geändert werden können.
Welche Idee hättest du hierfür?

[kingwambi]

ich hab vor den Befehl "Me.AllowEdits = True" gesetzt - das funktioniert nun. Ich meld mich gleich wegen meinem nächsten Problem, das sich sicher gleich zeigt. Danke- LG

[MaggieMay]

Also musst du vor dem Kopieren den evtl. vorhandenen Schreibschutz entfernen.

Aber ändern kannst du den Datensatz nicht, weil die Kundennummer weiterhin mit 9 beginnt, da musst du dir also noch etwas anderes ausdenken.

[kingwambi]

Hi - nein funktioniert perfekt. Dem neuen Datensatz kann ich nach dem duplizieren eine andere Kundennummer geben und weiter bearbeiten. Das einzige was mir nun noch fehlt ist wie ich den Schreibschutz per Funktionstaste aufheben könnte. Danke - LG

[MaggieMay]

Wie du den Schreibschutz aufhebst weißt du doch, was genau ist dein Problem?

Übrigens ist der Schreibschutz direkt nach dem Kopieren noch gar nicht wieder gesetzt, du kannst also sofort ändern - aber auch nur dann.

[kingwambi]

Hallo - ich möchte zb mit der F3 Taste den Schreibschutz aufheben. Wie formuliere ich dies? LG

[kingwambi]

Hallo - was an dem Code zum entsperren mit der F3 Taste stimmt nicht? LG Jürgen

Private Sub Form_Current()

If Me.NewRecord Then Exit Sub

        Me.AllowEdits = Not Left(Kundennr.Column(1), 1) = "9"
       
        Application.OnKey "{F3}", "Me.AllowEdits = True"
End Sub

[MaggieMay]

Hi,

was an dem Code [...] stimmt nicht?

was sagt denn der Compiler dazu?! ;-)

Zur Belegung von Tasten mit Befehlen erstellt man ein Makro mit dem Namen "AutoKeys". Näheres dazu sollte sich in der Access-Hilfe finden lassen.