Hallo Leute,
ich habe folgendes Problem. Ich hatte eine Access Datenbank erstellt die bisher mit Makros super funktioniert, allerdings hatte ich teilweiße mit Makros und VBA gearbeitet. Nun möchte ich alles auf VBA umstellen, damit das ganze verträglicher ist. Die meisten Funktionen waren kein Problem. Folgende Funktion allerdings schon.
Ich habe eine listbox in meinem Hauptformular und dieses hatte bisher über screen.activecontrol einen ausgewählten Wert an ein Unterformular (Makro: SucheNachDatensatz) weitergegeben und diesen Datensatz dann aktualisiert. Bei jedem klick änderte sich somit der im subform sichtbare Datensatz. Ich habe verschiedene Varianten von VBAs probiert. Einige geben keinen Fehler wieder jedoch wird nur der erste Datensatz angezeigt und bei der Auswahl in der listbox passiert nichts.
Dim sub3 As Form
Set sub3 = Forms!mainform!subform.Form
sub3.Visible = True
sub3.RecordsetClone.FindFirst "[GSVB] = " & Me!List126
sub3.Refresh
sub3.Requery
(Hier hatte ich ausprobiert ob refresh vielleicht andere Ergebnisse liefert und ob die Definition von sub3 irgendwas ändert)
Forms!mainform!subform.Form.Visible = True
Forms!mainform!subform.Form.Recordset.FindFirst "[GSVB] = " & Me!List126
Forms!mainform!subform.Form.Requery
(Hier hatte ich Me! ausgeschrieben und activecontrol ersetzt)
Me!subform.Visible = True
Me!subform.Recordset.FindFirst "[GSVB] = " & Nz(Screen.ActiveControl, 0)
Me!subform.Form.Requery
(So sah es anfänglich aus und hatte ganz am Anfang RecordsetClone statt Recordset stehen)
Ich weiß nicht was hier falsch läuft. Viele Varianten geben keine Fehler aus, ändern tuen sie das Unterformular jedoch nicht.
|