[ Φόρμες ] Από μακροεντολή σε κώδικα

[xristos0718]

Καλησπέρα σε ολη την παρέα.
Εχω μια φορμα και θελω να βαλω ενα κουμπι cmd ωστε να ανοιγω μια αλλη φορμα
αλλα δεν μου βγαζει τον κώδικα στη δόμηση συμβάντων αλλα με παραπεμπη σε μακροεντολη
Πως γινεται να εχω τοκ κώδικα και οχι την μακροεντολη

Εχω access 2010

Ευχαριστω για τον χρονο σας και περιμενω εαν γνωριζει καποις την λυση.

[nasos23]

Καλησπέρα σε όλους.
Χρήστο σε προβολή σχεδίασης->Δεξί κλικ στο κουμπί->Ιδιότητες->Συμβάν->Με το κλίκ
απο το πτυσόμενο [Διαδικασία συμβάντος] μπορείς να γράψεις

Private Sub cmd_Click()
DoCmd.OpenForm "Η φόρμα σου", acNormal
End Sub

[xristos0718]

Καλημέρα Νασο
Ευχαριστώ για την γρήγορη απάντηση σου

Ήταν αυτό που ήθελα ...

Και κάτι ακόμη
εάν θέλω να βάλω και άλλα κουμπιά cmd θα πρέπει να ακολουθώ την ίδια διαδικασία η υπάρχει τρόπος ώστε να αποφύγω ολο αυτο

και παλι ευχαριστω

[kapetang]

Καλημέρα

Χρήστο, απ’ ότι ξέρω ισχύουν τα εξής:

1) Όταν το αρχείο της ΒΔ είναι της μορφής .mdb (access 2003 ή παλιότερη), αν σε μία φόρμα σε προβολή σχεδίασης προσθέσουμε ένα κουμπί, ο οδηγός θα δημιουργήσει διαδικασία συμβάντος (κώδικα VBA), ακόμα και αν ανοίξαμε το αρχείο με access 2007 ή νεότερη.

2) Όταν το αρχείο είναι μορφής .accdb, ο οδηγός δημιουργεί ενσωματωμένη μακροεντολή.

Δεν υπάρχει κάποια ρύθμιση για την αλλαγή της παραπάνω συμπεριφοράς.

Αν θέλουμε διαδικασίες αντί ενσωματωμένες μακροεντολές έχουμε τις επιλογές:

1) Να εργαζόμαστε με αρχεία .mdb.Θα χάσουμε όμως τις δυνατότητες των αρχείων .accdb.

2) Μπορούμε να εργαστούμε με αρχεία .accdb και:

• Να αφήσουμε τον οδηγό να δημιουργήσει ενσωματωμένη μακροεντολή και στη συνέχεια να τη μετατρέψουμε σε διαδικασία, ως εξής:

Σε προβολή σχεδίασης της φόρμας, στην κορδέλα, στην ομάδα Tools (Εργαλεία) πατούμε το κουμπί [convert form’s macros to visual basic] (Μετατροπή μακροεντολών φόρμας…)

• Όταν εκκινεί ο οδηγός να πατήσουμε Cancel για να τον κλείσουμε και να δημιουργήσουμε χειροκίνητα τη διαδικασία (χρειάζονται γνώσεις VBA), όπως υπέδειξε ο Νάσος.

Φιλικά/Γιώργος

[xristos0718]

Ευχαριστω για την αμεση απαντηση