Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Πρόβλημα μεταφοράς δεδομένων απο φόρμα σε φόρμα με μακροεντολή (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1453-problima-metaforas-dedomenon-apo-forma-se-forma-me-makroentoli.html)

alex 24-10-11 14:58

Πρόβλημα μεταφοράς δεδομένων απο φόρμα σε φόρμα με μακροεντολή
 
1 Συνημμένο(α)
Καλησπέρα σέ όλους τους φίλους

Αντιμετωπίζω πρόβλημα με το πάτημα κουμπιού εντολής της φόρμας T_Booking θέλω να μεταφέρω με μακροεντολή <Ενημέρωση> τα δεδομένα απο το πεδίο GuestName της φόρμας T_Booking στο πεδίο GuestName της φόρμας F_DataEntrySub_A η οποία και είναι υποφόρμα της F_DataEntryMain
Στην μακροεντολή έχω βάλει άνοιγμα της φόρμας F_DataEntryMain και ορισμό τιμής:

Στοιχειο [Forms]![F_DataEntryMain]![F_DataEntrySub_A].[Form].[GuestName]
Εκφραση [Forms]![T_Bookings]![GuestName]
Γνωρίζει κάποιο μέλος τι πρέπει να κάνω ή την διόρθωση αν γίνεται.Ανεβάζω συνημμένο.

Φιλικά?Αλέξανδρος

Meteora 24-10-11 18:36

Καλησπέρα

1. Φτιάχνεις μια public μεταβλητή στη module M_01
Κώδικας:

Public varepiteto As String
2. Στο συμβάν "με το τρέχον" της φόρμας "Πελατολόγιο" γράψε
Κώδικας:

Private Sub Form_Current()
    varepiteto = Me.GuestName
End Sub

3. Στο συμβάν "με την είσοδο" στο πεδίο της φόρμας που κάνεις καταχώρηση γράψε ( Η επιλογή του συμβάντος "με την είσοδο" είναι ενδεικτική και όχι η καλύτερη επιλογή...)
Κώδικας:

Private Sub GuestName_GotFocus()
    Me.GuestName = varepiteto
End Sub

Με τον τρόπο αυτό διαβάζεται το περιεχόμενο του πεδίο μιας φόρμας και περνά σε άλλο πεδίο μιας άσχετης -με την προηγούμενη- φόρμας. Απο μακροεντολές δεν γνωρίζω παρά λίγα στοιχειώδη...

Με εκτίμηση

Νίκος Δ.

Υστερολόγιο: Διέγραψε τη μακροεντολή...

alex 25-10-11 03:00

Eυχαριστώ Νίκο

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

Με εκτίμηση
Αλέξανδρος


Η ώρα είναι 21:42.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2