[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 = "...κάτι άλλο"
      End Select
      FormOpemArgs = Me.Eponymo & ";" & TargetTextBoxName &  ";" & Me.Combo
      strForname = Choose(Me.OptWeekDays, "MON", "TUS", "WED", "THU")
      DoCmd.OpenForm strForname, , , , , , FormOpemArgs
  End Sub

Και στο OnLoad των φορμών που θέλεις να ανοίξεις βάλε:

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

Φιλικά

Τάσος