Checkbox Status von Form zu Form

Computer: Software & Programmierung Microsoft Access
#1

Hallo…

ich habe Folgende Problemstellung. Ich habe 2 Formular und möchte den Status der Checkboxen aus Form1 („Stat1“) an die Checkboxen in Form2 ("Stat2) übergeben.

Leider funktioniert das ganze nicht so richtig. Ich erhalte zwar keine Fehlermeldung aber alle Checkboxen sind in Form 2 deaktiviert. Ich habe mir zu Kontrolle auch eine MsgBox angelegt, in der die Werte der Checkbox ausgelesen werden sollen. In der MsgBox wird alles korrekt dargestellt.

Hier ein Auszug aus dem VBA-Code des Button-OnClick-Events:

DoCmd.OpenForm "Stat2"

For i = 1 To 20
Forms!Stat1("Kontroll\_" & i) = Forms!Stat2("xKontroll\_" & i)
Next i
#2

Nun löse doch das etwas anders.
Du schreibst den Code in Stat1 (Formular).
Stat2 ist das andere Formular.

docmd.openform „stat2“ 'Formular2 öffnen
forms!stat2.chkbox1.value = me.chkbox2.value
'chkboxX sind die Checkboxen der Formulare
'Am Ende kommt der folgende Code für die Speicherung
forms!stat2.refresh

Grüsse Sebastian

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Nun löse doch das etwas anders.
Du schreibst den Code in Stat1 (Formular).
Stat2 ist das andere Formular.

docmd.openform „stat2“ 'Formular2 öffnen
forms!stat2.chkbox1.value = me.chkbox2.value
'chkboxX sind die Checkboxen der Formulare
'Am Ende kommt der folgende Code für die Speicherung
forms!stat2.refresh

Grüsse Sebastian

das prob ist… es sind 20 chkboxen … da würd ich den code gern etwas kürzen :x

#4

das prob ist… es sind 20 chkboxen … da würd ich den code
gern etwas kürzen :x

Dim lpm_ctl_FormCtrl As Control
For Each lpm_ctl_FormCtrl In Forms!FormName.Controls
If lpm_ctl_FormCtrl.ControlType=VbCheckBox Then
’ …
End If
Next

Dieses Fragment durchläuft alle Checkboxen im Formular.

Gruß Eillicht zu Vensre