Unterformularauswahl mit zwei ComboBoxen
Karl Donaubauer
Gesendet: 26.06.13 23:11
Betreff: RE: Unterformularauswahl mit zwei ComboBoxen



Elite Veteran

Beiträge: 876
500100100100252525
Ort: Wien
Hallo, Hulpi!

Hulpi - 25.06.13
ich habe ein Unterformular aus dem per Doppelklick der gewählte Datensatz mit den jeweiligen Informationen im Hauptformular geladen werden soll.
Ich hab auch einen Ansatz der anfangs gut funktioniert aber dann einen Fehler ausgibt...

DoCmd.OpenForm "frm_haupt"
Forms.frm_haupt.ComboJahrAuswahl= ""
Forms.frm_haupt.Combo1 = ""
Forms.frm_haupt.Combo2= ""
Forms.frm_haupt.ComboJahrAuswahl= Me!Jahr
Forms.frm_haupt.Combo1 = Me.Name
Forms.frm_haupt.Combo2 = Me!Nummer
Forms.frm_haupt.Combo2.SetFocus
Forms.frm_haupt.Combo2.Dropdown
SendKeys Me!Nummer
SendKeys "{ENTER}"
Me.Requery

Klicke ich nun doppelt auf einen Datensatz im Unterformular wird er in der Hauptmaske geladen. Will ich allerdings anschließend wie zuvor eine Auswahl per ComboBox vornehmen (sollte ja weiterhin möglich sein) verweist er mich auf eine Stelle in der Auwahlprozedur der ComboBox(Private Sub Suche_Satz):
mstrCurrentNummer = Nummer in der anscheinend noch ein alter Wert steht. Scheinbar arbeitet meine Prozedur nicht sauber und überschreibt Werte nur oberflächlich (Code kann ich gerne reinstellen, wenn nötig)...

Wenn es sich um ein Hauptformular mit Unterformular handelt, solltest du die OpenForm-Zeile weglassen können. Warum du einige andere Zeilen drin hast, ist auch nicht ganz klar. Falls du SendKeys verwendest, um das Ereignis "Nach Aktualisierung" des Kombis auszulösen, dann geht das sicherer mit der Verwendung der Text-Eigenschaft als Trick. Ersetze mal testweise deinen Code durch die folgenden Zeilen. Fall das nicht funktioniert, solltest du deinen Code etwas im einzelnen erläutern und auch, was du mit "Auswahlprozedur der ComboBox" meinst und welche Ereignisse du noch verwendest:

Forms!frm_haupt!ComboJahrAuswahl = Me!Jahr
Forms!frm_haupt!Combo1 = Me.Name
Forms!frm_haupt!Combo2.SetFocus
Forms!frm_haupt!Combo2.Text = Me!Nummer
Me.Requery

-----
Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Top of the page Bottom of the page