[Tasos]

Παντελή, αν κατάλαβα καλά τότε στην αρχική φόρμα βάζεις:

Private Sub Combo_AfterUpdate()
    Dim FormOpemArgs$, TargetTextBoxName$
    If IsNull(Me.OptWeekDays) And Not IsNull(Me.Combo) Then Exit Sub
    Select Case Me.Combo
        Case "ΤΑΜ1"
            TargetTextBoxName = "k1"
        Case "ΤΑΜ2"
            TargetTextBoxName = "k2"
        Case "ΤΑΜ3"
            TargetTextBoxName = "k3"
        Case "ΤΑΜ4"
            TargetTextBoxName = "k4"
            'κοκ......
        Case Else
            TargetTextBoxName = "...KapoioAlloPedio"
    End Select
    FormOpemArgs = TargetTextBoxName & ";" & Me.eponymo
    strForname = Choose(Me.OptWeekDays, "MON", "TUS", "WED", "THU")
    DoCmd.OpenForm strForname, , , , , , FormOpemArgs
End Sub

Στη φόρμα που θα ανοίξει:

Private Sub Form_Load()
    Dim MyValues() As String
    If Not IsNull(Me.OpenArgs) Then
        MyValues = Split(Me.OpenArgs, ";")        'TargetTextBoxName & ";" & Me.eponymo
        Me.Controls(MyValues(0)) = MyValues(1)
    End If
End Sub

όπου MyValues(0) ) = πχ. K1
και MyValues(1) = Eponymo

Τάσος