[nisgia]

Καλησπέρα guys!

Ένας ακόμη τρόπος να γίνει το ζητούμενο είναι και η χρήση εξειδικευμένων συμβάντων (events).

Δηλαδή στην ενότητα δηλώσεων της αρχικής φόρμας έχουμε την εξής δήλωση:

Option Compare Database
Option Explicit

Public Event CashAfterUpdate(ByVal FormName As String, _
        ByVal ControlName As String, ByVal LastName As String)

Ενώ η διαδικασία συμβάντος Υπηρεσία1_AfterUpdate μετατρέπεται σε:

Private Sub Υπηρεσία1_AfterUpdate()

    Dim strFormName As String
    Dim strCtrlName As String
    Dim strLastName As String

    If Not IsNull(Me.OptWeekDays) Then
        If Not IsNull(Me.Υπηρεσία1) Then
            strFormName = Choose(Me.OptWeekDays, "ΥΠ_ΚΑΘ", "ΥΠ_ΣΑΒ")
            strCtrlName = Array("k1", "k2", "k3")(Me.Υπηρεσία1.ListIndex)
            DoCmd.OpenForm strFormName
            RaiseEvent CashAfterUpdate(strFormName, strCtrlName, Me.Επώνυμο)
            Me.SetFocus
        End If
    End If
End Sub

Από την πλευρά των φορμών "ημέρας" έχουμε:

Option Compare Database
Option Explicit

Private WithEvents MainForm As Form_ΣΕΝΤΟΝΙ
'
Private Sub Form_Load()
    Set MainForm = Forms("ΣΕΝΤΟΝΙ")
End Sub

Private Sub MainForm_CashAfterUpdate(ByVal FormName As String, _
        ByVal ControlName As String, ByVal LastName As String)

    If Me.Name = FormName Then
        On Error Resume Next
        Me.Controls(ControlName) = LastName
    End If
End Sub
'
'...More code here...
'

Στο συνημμένο θα βρείτε και την πρακτική εφαρμογή της παραπάνω θεωρίας.

Υ.Γ.
Πάντως φίλε Παντελή, αν συνεχίσεις να δίνεις ελληνικά ονόματα στα αντικείμενα της Access,
...δεν θα τα πάμε καθόλου καλά!