Aus einem Endlosformular übergebe ich an drei
Public-Variablen den Formularnamen, Spaltenname, Feldname
und rufe die Funktion "uebersicht_protokoll" auf
Private Sub dat_r_firma_DblClick(Cancel As Integer)
v_formu_01 = "frm_1_rubrik"
v_colum_01 = "firma"
v_contr_01 = "dat_r_firma"
uebersicht_protokoll
End Sub
In der nachfolgenden Funktion wird der Wert ausgelesen
(v_formu_00 = wird hier noch angefügt weil das Form des Wertes
verschachtelt in "frm_Thema" ist.)
danach wird ein weiteres Endlosformular (frm_protokoll_uebersicht) mit der
Auswahl aus dem übergebenen Wert aufgerufen.
Function uebersicht_protokoll()
v_formu_00 = "frm_Themen"
Forms(v_formu_00)(v_formu_01).Controls(v_contr_01).SetFocus
v_value_01 = Forms(v_formu_00)(v_formu_01).Controls(v_contr_01)
str_frmpr01_ue = "frm_protokoll_uebersicht"
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = str_frmpr01_ue
stLinkCriteria = v_colum_01 & "=" & "'" & v_value_01 & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Form_frm_protokoll_uebersicht.dat_status.SetFocus
Form_frm_protokoll_uebersicht.dat_status.ForeColor = "13209"
Form_frm_protokoll_uebersicht.dat_summe_netto = Format(v_sume_01, "##,##0.00")
End Function
Funktioniert soweit prima. Jetzt musste ich "frm_protokoll_uebersicht" wegen
Darstellungsgründen in ein anderes Formular verschachteltn.
frm_protokoll_uebersicht_H = jetzt das Hauptformular und
frm_protokoll_uebersicht = jetzt das Unterformular
Ich weis nicht wie ich den Aufruf auf das UFo unter stDocName in der Funktion
eintragen muß.
Ich habe es mit nachfolgenden vergeblich versucht:
Forms!frm_protokoll_uebersicht_H.Form!frm_protokoll_uebersicht
oder:
Dim str_frm1, str_frm2 As String
str_frm1 = "frm_protokoll_uebersicht_H"
str_frm2 = "frm_protokoll_uebersicht"
Forms(str_frm1)(str_frm2)
und auch mit dem:
Forms("frm_protokoll_uebersicht_H").Form!frm_protokoll_uebersicht
Wäre nett wenn's einer weiss und mir dabei helfen kann.
Grüße
Andy
