Guten Morgen,
da ich leider noch ein blutiger Anfänger in VBA Programmierung bin, hoffe ich, dass mir jemand bei meinem Problem helfen kann.
Ich habe ein Hauptformular erstellt, in denen die Daten von Wohnungssuchenden erfasst werden. Ist der Wohnungssuchende Rollstuhlfahrer, so wird in einem Kontrollkästchen "Rollstuhlfahrer" ein Häckchen gesetzt und oben im Hauptformular wird ein Hinweis "Achtung Rollstuhlfahrer!" sichtbar gemacht.
Das selbe funktioniert auch wunderbar mit anderen Kriterien des Wohnungssuchenden.
' Hinweise oben am Bildschirm ausblenden und einblenden wenn Häkchen gesetzt sind
Me.marker_rollstuhl.Visible = False
Me.marker_senior.Visible = False
Me.marker_alleinerziehend.Visible = False
Me.marker_schwanger.Visible = False
Me.Besonderheit.BackColor = RGB(255, 255, 255)
If rollstuhlfahrer_in_haushalt.Value = True Then Me.marker_rollstuhl.Visible = True
If Me.senioren_wunsch.Value = True Then Me.marker_senior.Visible = True
If alleinerziehend.Value = True Then Me.marker_alleinerziehend.Visible = True
If schwanger.Value = True Then Me.marker_schwanger.Visible = True
If dringend.Value = True Then Me.Besonderheit.BackColor = RGB(255, 48, 48)
Jetzt zum Problem:
Im Hauptformular "frmSuchendenkartei" ist ein Unterformular "ufrmfamilienmitglieder" eingebunden.
Im Unterformular werden sämtliche Familienmitglieder aufgelistet und auch hier kann man bei jedem Familienmitglied ein Kontrollkästchen "Rollstuhlfahrerfaml" anklicken.
Jetzt möchte ich, dass wenn bei einem der Familienmitglieder das Kästchen aktiviert ist, auch der Warnhinweis "Achtung Rollstuhlfahrer" im Hauptformular sichtbar gemacht wird.
Zum einen müssten ja die evtl. mehreren Datensätze (wenn es mehrere Angehörige sind) im Unterformular auf dieses Kriterium überprüft werden und dann muss im Hauptformular der Hinweis auf sichtbar gesetzt werden.
Für jede Hilfe wäre ich dankbar :-))
Hallo,
ohne Kenntnis der Tabellen und deren Schlüsselfelder:
If Me!rollstuhlfahrer_in_haushalt or DSum("Rollstuhlfahrerfaml","tbl_familienmitglieder","WohnungssuchendeID= " & [WohnungssuchendeID]) Then
Me!marker_rollstuhl= True
else
Me!marker_rollstuhl= False
End If
.
.
.
Hallo Franz,
Danke!!! für deine schnelle Antwort.
Funktioniert sehr gut!!!
Das einzige Problem was ich noch habe, das er den Rollstuhlfahrer erst beim nächsten Aufruf des Datensatzes im Hauptformular anzeigt.
Hallo,
der (angepasste) Code sollte (auch) in eine geeignete Ereignis-Prozedur platziert werden....z. B. im Form_Afterupdate()-Ereignis des Unterforms.
Passt!!!
Danke für die schnelle und kompetenten Antworten @ Franz!!!! :D