Ενεργοποίηση εντολής στην κυρίως φόρμα μετά απο ενημέρωση πεδίου σε υποφόρμα

[γιώργοςΚ]

Αγαπητοί φίλοι γειά σας,

Παραθέτω ένα παράδειγμα στο οποίο θα ήθελα εφόσον γίνει update ένα πεδίο που βρίσκεται στην υποφόρμα, αυτόματα να πατιέται και το command που βρίσκεται στην κυρίως φόρμα.

Την βοήθεια σας διότι "κόλλησα"

Ευχαριστώ εκ προτερων

[Spirosgr]

Το κουμπί στην κύρια φόρμα, «τρέχει» κάποια εντολή.
Επομένως, στο AfterUpdate του πεδίου υποφόρμας, θα «τρέχει» η ίδια εντολή.

Έχεις αυτό

Private Sub cmd1_Click()
    MsgBox "Σας ευχαριστώ πολύ", vbInformation, "Πάτησε με"
End Sub

Το μετατρέπεις σε

Private Sub cmd1_Click()
    test
End Sub

Σε μια module

Sub test()
    MsgBox "Σας ευχαριστώ πολύ", vbInformation, "Πάτησε με"
End Sub

Sto AfterUpdate του πεδίου

Private Sub Field1_AfterUpdate()
    test
End Sub

Έτσι click & update κάνουν την ίδια ενέργεια

[Spirosgr]

Παράδειγμα

[γιώργοςΚ]

Σπύρο γειά σου και σε ευχαριστώ φίλε μου,

Ωστόσο, δεν είναι ακριβώς αυτο που θέλω διότι στο παράδειγμα απλά έβαλα ένα μήνυμα να εμφανίζεται, Στην πραγματική βάση τα πράγματα είναι εντελώς διαφορετικά διότι εφόσον πατήσω το κουμπί εκτελούνται μια σειρά απο διαδικασίες που δεν σχετίζονται με το μήνυμα..

Θέλω απλά μια γραμμή κώδικα (απλά δεν το θυμάμαι) έτσι ώστε εφόσον γίνει update το πεδίο να πατιέται το κουμπί και απο εκεί και πέρα θα μπορούν να εκτελούνται αρκετά IIF.....

Πάντως σε ευχαριστώ πολύ

[Spirosgr]

Σαφώς και το msgbox είναι παραδειγματικό αλλά:

Η διαδικασία αυτή, ισχύει και απλοποιεί πολλές ενέργειες.
Για να γίνει κατανοητό:

Έστω ότι έχεις τους κώδικες:
test1(), test2(), test3()....testν()
και τις συναρτήσεις:
Function1(), Function2()...Functionν()
σε module / s

Μπορείς να καλείς από κουμπιά ή συμβάντα ό, τι θέλεις από αυτά, με την χρήση μόνο του τίτλου.
Παράδειγμα:

Private Sub cmd1_Click()
    test1
    test3
    Function2
End Sub

με το κλικ τρέχουν οι κώδικες test1, test3 και η Function2,
που περιλλαμβάνονται στο συμβάν Click.

Όμοια και σε κάποιο update...

[Spirosgr]

Θεωρώ (και αυτό κάνω εγώ) ότι ο προηγούμενος τρόπος είναι καλύτερος για πολλούς λόγους.

Παρ' όλα αυτά μπορείς να:

Μετατρέψεις την εντολή σε Public

Public Sub cmd1_Click()
    MsgBox ""
End Sub

και να χρησιμοποιήσεις αυτόν τον κώδικα στο update.

Private Sub Field1_AfterUpdate()
    Forms![ΌνομαΦόρμας].cmd1_Click
End Sub

[γιώργοςΚ]

Καλησπέρα Σπύρο

Με κάλυψες απόλυτα και σε ευχαριστώ πάρα πολύ. Όπως πάντα εκτός από αρκετά κατατοπιστικός είσαι παρόλα αυτά και επιμορφωτικός!

Νάσαι καλά και σε ευχαριστώ πάρα πολύ