Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Τρόπος ενημέρωσης Access (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/678-tropos-enimerosis-access.html)

alatis 23-07-10 22:17

Τρόπος ενημέρωσης Access
 
1 Συνημμένο(α)
Καλησπέρα
Μπορεί κάποιος με απλά λόγια να μου εξηγήσει πως γίνεται οταν σε μια φορμα δηλώνουμε κάτι σε ένα πεδίο να βγαίνει αυτόματα ένα αλλο δεδομένο? πχ στο συνημμένο που ανέβασα έιναι ο πελάτης τεστ με ματια μεγάλα και θέλω απο κάτω να βγεί το χρώμα
Ξέρω οτι το έχετε κάνει πράξη πολλές φορές σε διάφορα άλλα παραδείγματα αλλά δε το εχω καταλάβει γιαυτο θα σας παρακαλούσα να μου το περιγράψετε αναλυτικά
Ευχαριστώ πάρα πολύ και βασίζομαι στην ανεκτικότητα σας.
Φιλικά
Γιώργος

Tasos 24-07-10 13:04

Γιώργο καλημέρα!
Στο σύνθετο πλαίσιο της φόρμας σου τροποποιείς την προέλευση γραμμής ως εξής:

SELECT test1.Αναγνωριστικό, test1.matia FROM test1 ORDER BY test1.matia;

Κατόπιν στην καρτέλα "Μορφή" άλλαξε το Πλήθος στηλών σε 2 και τα πλάτη στηλών σε:
0εκ.;3εκ.

Στην καρτέλα Συμβάντα, και στο συμβάν "Μετά την ενημέρωση" επίλεξε "[Διαδικασία συμβάντος]" από την πτυσσόμενη λίστα, και πάτησε το κουμπί που βρίσκεται δίπλα της.
Στο παράθυρο VBA που θα εμφανιστεί, θα δεις το εξής:


Κώδικας:

Private Sub matia_AfterUpdate()

End Sub

Άλλαξε το με το παρακάτω και δοκίμασε:

Κώδικας:

Private Sub matia_AfterUpdate()
    If Not IsNull(Me.matia) Then Me.xroma = DLookup("xroma", "test1", "Αναγνωριστικό  = " & Me.matia)
End Sub

Καλή συνέχεια!

Τάσος

alatis 24-07-10 19:08

καλησπέρα και πάλι
ευχαριστώ την εντολή την κατάλαβα και θα την προσαρμόζω όπου θέλω αλλά γενικά αυτές τις εντολές πως μπορώ να τις δημιουργώ ανάλογα με τις ανάγκες μου? Υπάρχει κάποιο καλό βιβλίο ή κάποιος τρόπος για να μπω στο νόημα της access?
Ευχαριστω
Γιώργος

lammis 24-07-10 19:56

1 Συνημμένο(α)
καλησπέρα Γιώργο
εγώ θα σου πρότεινα να κάνεις το εξής:

Κώδικας:

Private Sub matia_AfterUpdate()
Me.[xroma].SetFocus
Me.[xroma] = Me.[matia].Column(1)
End Sub

σου στέλνω και το αρχείο για να το καταλάβεις καλύτερα
Καλή συνέχεια

Στράτος

alatis 25-07-10 15:56

καλησπερα σε όλους σας.
ευχαριστώ πολύ για την άμεση ανταπόκριση. Μπορείτε να μου πείτε πως μπορώ να μπω στο νοημα σχετικά με αυτες τις εντολές? Υπάρχει βιβλίο ή κατι που να μπορώ σιγα σιγα να το κανω και μονος μου?

Tasos 25-07-10 17:58

Γιώργο καλησπέρα!
Θα σου πρότεινα να ξεκινήσεις με τη Βοήθεια και οδηγίες για την Access 2007

Εκει θα βρείς και την ενότητα: Μακροεντολές και δυνατότητα προγραμματισμού

Κατά τη γνώμη μου, αν υπάρχει η θέληση αλλά και ο χρόνος, μπορεί κανείς να αποκομίσει στοιχεία που θα βάλουν θεμέλια στην εξέλιξη του σαν προγραμματιστής Access.

Φιλικά

Τάσος


Η ώρα είναι 02:37.

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


Search Engine Optimization by vBSEO 3.3.2