none
UFo per übergebenen Wert füllen lassen

    Frage

  • 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

     

    Dienstag, 17. Mai 2011 09:59