[atlasgr]

θα ελεγα απο τυχη την βρηκα την λυση
ειναι τοσο απλη και εγω εψαχνα στα δυσκολα
απλα δηλωνεις στην ρουτινα την μεταβλητη σαν control και ολα ειναι οκ

Σας δινω ενα παραδειγμα που ισως βοηθησει καποια ατομα
η πρωτη ρουτινα εχει τους παραμετρους και οι υπολοιπες ρουτινες καλουνε την πρωτη καθε φορα με διαφορετικα πεδια


Private Sub AFTER_P(met1 As Control, met1p As Control)
If met1 = "00000" Then met1p = -1
If met1p = -1 Or met1 = "00000" Then met1p.BackColor = 16777215
If met1p = 1 And met1 <> "0000" Then
met1p.BackColor = 65280
MsgBox "kataxwrhsh kinhshs"
End If
If met1p = 0 And met1 <> "0000" Then
met1p.BackColor = 255
MsgBox "kataxwrhsh akyrwshs"
End If
If met1p = -1 Or met1 = "00000" Then
met1p.BackColor = 16777215
met1p.Locked = False
Else
met1p.Locked = True
End If
End Sub




Private Sub A01P_AfterUpdate()
Call AFTER_P(Me.A01, Me.A01P)
End Sub
Private Sub B01P_AfterUpdate()
Call AFTER_P(Me.B01, Me.B01P)
End Sub
Private Sub C01P_AfterUpdate()
Call AFTER_P(Me.C01, Me.C01P)
End Sub
Private Sub D01P_AfterUpdate()
Call AFTER_P(Me.D01, Me.D01P)
End Sub
Private Sub E01P_AfterUpdate()
Call AFTER_P(Me.E01, Me.E01P)
End Sub



ελπιζω να βοηθησα

καλη σας νυχτα