Office: (Office 2016) Endlosformular und Checkbox

Hallo liebe Forengemeinde,

ich habe mir eine einifache Datenbank erstellt um Materialien zu verwalten. Hierzu habe ich ein Endlosformular über das die Materialien eingegeben werden mit folgenden gebundenen Textboxen :

Artikel - Kiste/Wagen - Anzal - Ablaufdatum - In Monaten (hier errechnet sich die DB selber in wievielen Monaten was abläuft) - danach eine Checkbox welche auf Yes gesetzt wird, wenn die Materialien kein Ablaufdatum haben. Ich möchte es nun so, das die Textboxen "Ablaufdatum" und "In Monaten" gesperrt werden bzw ganz vom Formular verschwinden. Ebenso wäre es ein Traum, wenn im Bericht bei diesen Datensätzen stehen würde "Kein Ablaufdatum" und zwar dort, wo jetzt "Ablaufdatum" erscheint. Die Textbox "In Monaten" kommt im Bericht nicht vor. Gibt es da eine Möglichkeit ?


Ich habe es mit diesem Code versucht :
Code:

Leider sperrt er die ganzen Felder "Ablaufdatum" im Endlosformular....

Viele Grüße

Stadtbub

:)

 

Hallo,

Es wird nicht gesperrt sondern unsichtbar geschalten.
Das bekommst du im Endlosformular nicht hin - sondern nur das Sperren.
Wieso willst du eigentlich das Feld unsichtbar schalten, wenn es ohnehin keinen Inhalt hat?

"ChkBox1" ist (trotz dieses Namens) ein Feld der Tabelle? Dann kannst du mit einer Zusatzspalte in der Abfrage hinbekommen oder als Feldinhalt im Bericht: Code:

 

Dazu eine Ergänzung:
Um Steuerelemente in einem Endlosform abhängig von den jeweiligen Werten pro Datensatz zu (ent)sperren, kann man eine Bedingte Formatierung verwenden.

 

Erstmal vielen Dank für die Antworten - leider klappt das Sperren auch nicht wie gewünscht. Er sperrt alle DS sobald nur ein Häkchen gesetzt ist. Die Idee mit der bedingten Formatierung gefällt mir schon besser nur wüsste ich leider nicht genau was ich da in die Ausdruckspalte schreiben soll. Ich vermute mal es wäre eine "If then Else" Geschichte ?

Die Benutzer möchten, das die Felder gesperrt werden um Fehleingaben zu verhindern *Smilie

Wo kommt dein Code "Abl4Bericht:Wenn(ChkBox1;"KeinAblauf";Ablaufdatum)" genau hin ?? - Sorry ich bin da VBA Noob :/

 

Das wäre ein neues Feld im Abfrageentwurf, das bindest du dann an das entsprechende Berichtsfeld oder du nimmst es als Steuerelementinhalt für ein Berichtsfeld, dann so:
Code:

Es löst allerdings nicht dein Problem mit dem Formular, da die beiden Eingabefelder trotzdem entsperrt bleiben.

Bei der bedingten Formatierung im Formular sollte der Bezug auf ChkBox1 eigentlich reichen.
So in etwa für das Feld Ablaufdatum: Ausdruck ist ChkBox1 = true.

maike

 

Ich hab das jetzt so versucht und es klappt einigermaßen :

Zuerst bedingte Formatierung :

Ausdruck ist [ChkBox1] = Ja dann die Farbe gewählt : Es klappt

Dann Bei "Nach Aktualisierung" ChkBox1 und "Bim Anzeigen" Formular folgender Code :

Code:

Soweit, so gut aaaaber..... leider bleien die Felder "anklickbar" also selbst wenn sie auf dem Formular nimmer zu sehen und gesperrt sind, kann ich sie mit der Maus anklicken und sie erscheinen wieder (trotz dem "enabled" Teil)....

und mit dem o.g. Code von dir fragt er mich beim Bericht Öffnen immer per Textfenster "Parameterwert eingeben ChkBox1" ....... :/

 

Hallo,

Nicht die Farbe anpassen sondern "Aktivieren".
Den anderen Code brauchst du dann nicht mehr.

Dann ist das Feld (der Tabelle) "ChkBox1" dem Bericht unbekannt.

 

Ah-- mein Fehler *frown.gif*

Jetzt klappts...naja bis auf das "Verschwinden" der Felder bei anklicken der Checkbox - das scheint aber Access nicht herzugeben, also belass ichs dabei. Gibts denn wenigstens eine Möglichkeit die Felder auszugrauen ? Mit bedingter Formatierung klappt das leider nicht :/

 

Also bei mir werden deaktivierte Felder automatisch ausgegraut.

 

Nee bei mir nicht - könnte damit Zusammenhängen das ich mehrere Regeln für ein Textfeld habe (z.B. Feldwert Kleiner als Datum()+90) = Hintergrundfarbe Rot etc...

wenn KEINE Regeln mit Farbe präsent sind, werden bei mir die Felder auch automatisch ausgegraut beim Deaktivieren.

OK.....entweder ein Bug oder eine Einstellungssache...KEIN Textfeld wird ausgegraut, wenn ich die bedingte Formatierung nutze ^^

 

Probiere mal, die Reihenfolge der Bedingten Formatierungen zu ändern.

 

Interessant...jetzt macht die bedingte Formatierung garnix mehr -.-

ACC 2016 ist glaub ich jetzt ned so der Renner *frown.gif*

*Edit*

Also jetzt Überall die bedingte Formatierung weg - Neustart PC - Jetzt geht die bed. Formatierung wieder aber immernoch selbiges Problem : Wenn Textfeld deaktiviert bleibt der Hintergrund Weiß - es ändert sich an dem Hintergrund garnichts -.-

 

Kannst du das beim Deaktivieren zusätzlich einstellen (grau)? Das wär zumindest ein Workaround.
maike

 

Servus Stadtbub,
schon mal das Ereignis "Bei Formatübertragen" im Detailbereich probiert?
Dort kann man beliebig viele bedingte Formatierungen per VBA gestalten.
Code:

 

\@ Maike - ja probiert, leider gar keine Änderung

@ Ohrkester - nein, sollte ich dort dann mal die i-then-else Geschichte mal versuchen ?

*Edit*

soo folgendes versucht :

Code:

und

Code:

soweit so gut.....mit einer anderen Farbe klappt es aaber nur wenn kein Häkchen..sobald Häkchen gesetzt werden die Hintergründe wieder weiß....