Office: (Office 2016) Farbe Textfelder ändern wenn gesperrt/entsperrt

Lanz Rudolf · 27. Juni 2019

Hallo
habe vergessen die Muster*boah

Lanz Rudolf · 28. Juni 2019

Hallo
Sorry wollte Schreiben:
habe vergessen die Muster DB anzuhängen !
doch auf einmal konnte ich nichts mehr eingeben *frown.gif*

also hier der link:
https://www.dropbox.com/s/f6z11zyee1...lNeuZ.zip?dl=0

grundkursbesucher · 29. Juni 2019

Hallo Alfred

Du hast natürlich recht. Dieses Feld habe ich nicht gesehen. Sorry!
Jetzt funktioniert die bedingte Formatierung wie gewünscht.

Danke nochmals für die Unterstützung. Ihr seit Top!

grundkursbesucher · 23. Juli 2019

Hallo zusammen

Ich bins nochmal..
Nachdem die DB im Alltag einige Tage genutzt wurde ist noch ein kleines, aber feines Details aufgetaucht. Und zwar wenn der Button "neuer Datensatz hinzufügen" geklickt wird sperrt sich das Formular gleich.
Es soll aber wie folgt funktionieren:
1. Formular gesperrt öffen = funktioniert
2. Datensatz bearbeiten = Button "bearbeiten" klicken = funktioniert
3. Neuer Datensatz hinzufügen, Formular nicht gesperrt = funktioniert nicht

Hat jemand eine Idee wie ich das lösen kann?

Kyron9000 · 24. Juli 2019

Hallo,

mit einem eigenen Button [btnNew]...
Code:

Option Compare Database
Option Explicit

Private Sub btnNew_Click()
DoCmd.GoToRecord , , acNewRec
sperren_Click
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.AllowEdits = False
Me.ufoTest.Form.AllowEdits = False
If Me.NewRecord Then Me.AllowEdits = False
SetCaption
End Sub

Private Sub sperren_Click()
If Me.NewRecord Then
Me.AllowEdits = True
Me.ufoTest.Form.AllowEdits = True
Else
Me.AllowEdits = Not Me.AllowEdits
Me.ufoTest.Form.AllowEdits = Not Me.ufoTest.Form.AllowEdits
End If
SetCaption
End Sub

Private Sub SetCaption()
Me.sperren.Caption = IIf(Me.AllowEdits, "Sichern", "Bearbeiten")
Me.sperren.Caption = IIf(Me.ufoTest.Form.AllowEdits, "Sichern", "Bearbeiten")
Me.ufoTest.Form.xSperren = IIf(Me.ufoTest.Form.AllowEdits, "Sichern", "Bearbeiten")
Me.ufoTest.Form.Requery
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

knobbi38 · 24. Juli 2019

Hallo Grundkursbesucher,
ein Accessformular kennt die Eigenschaften NewRecord und Dirty. Diese solltest du bei der Routine zum Ändern des Sperrstatus auswerten und ggf. berücksichten, ob in dem Moment ein Sperren/Freigeben zulässig ist oder nicht.

Am besten machst du eine Debugausgabe in der entsprechenden Routine und läßt dir diese Stati anzeigen zusammen mit dem gewünschten neuen Sperrstatus. Daraus bildest du dir dann eine Wahrheitstabelle und kannst diese dann als Bedingung in deine Routine einbauen.

Damit solltest du das Problem mit neuen DS in den Griff bekommen und könntest eventuell sogar auf den btnNew verzichten, der m.E. dir später nur noch mehr Probleme bereiten wird, weil ein neuer DS an vielen Stellen erzeugt werden kann, die bei deiner Lösung alle unterbunden werden müßten.

Gruß Ulrich

grundkursbesucher · 24. Juli 2019

Hallo zusammen

Danke für die Tipps. Die Lösung von Alfred hat das gewünschte Resultat gebracht.

Gruss
Fabian

Office: (Office 2016) Farbe Textfelder ändern wenn gesperrt/entsperrt

Farbe Textfelder ändern wenn gesperrt/entsperrt

Farbe Textfelder ändern wenn gesperrt/entsperrt

Farbe Textfelder ändern wenn gesperrt/entsperrt

Farbe Textfelder ändern wenn gesperrt/entsperrt - Similar Threads - Farbe Textfelder ändern

Intelligente Tabellen – eigene Formatvorlagen mit Rahmen und Farben erweitern?

Benutzerdefinierte Designfarben

Zeile Einfügen mit Bedingung Farbe der letzten Beschriebenen Zeile

56 Benutzerdefinierte Farben in die Farbpalette integrieren

Ändern der Farben in einem Textfeld oder in einer Form

Textfeld beiFokus-Erhalt Farbe ändern

Endlosformular Textfeld-Farbe ändern