ΚΟΥΜΠΙ ΕΝΤΟΛΗΣ

[jimrenoir]

Πρώτα από όλα καλημέρα στο φόρουμ.
Προσπαθώ τόσες μέρες να φτιάξω μια φόρμα(fm1) που θα περιλαμβανει ένα κουμπι με τις λειτουργιες στο δειγμα που ανεβάζω(η σειρα εκτέλεσης των εντολών είναι αριθμημένη(1,2,3,4,5
(μακροεντολες και λειτουργικές μοναδες.Επίσης προσπάθησα να ταιριάξω απο τα χρησιμα βοήθηματα της acces την εντολή διαγραφεί πίνακα (RESULT$L3:AE90000_Σφάλματα_εισαγωγ ής)-ολοκληρου του πινακα όχι των δεδομένων) αλλά τα έκανα μπάχαλο).Γίνεται να ενσωματωθεί και αυτό στην εντολή με αριθμο 6.

[kapetang]

Καλημέρα

Δημήτρη, θα μπορούσες να προσαρμόσεις τον παρακάτω κώδικα.

Private Sub cmdRun_Click()
    Dim x As Variant
    '1. Θα εκτελεστεί η μακροεντολή με όνομα NameMacro1
    DoCmd.RunMacro "NameMacro1"
    '2. Θα εκτελεστεί η συνάρτηση με όνομα IMportFromXLsheet()
    x = IMportFromXLsheet()
    '3. Θα εκτελεστεί η συνάρτηση με όνομα ImportFromXL()
    x = ImportFromXL()
    '4. Θα εκτελεστεί η συνάρτηση με όνομα IMportFromXLsheet()
    x = IMportFromXLsheet()
    '5. Θα εκτελεστεί η μακροεντολή με όνομα NameMacro5
    DoCmd.RunMacro "NameMacro5"
    '6. Θα διαγραφεί ο πίνακας με όνομα tblName
    DoCmd.DeleteObject acTable, "tblName"
End Sub

Η συνάρτηση «IMportFromXLsheet» δεν πρέπει να υπάρχει σε δύο λειτουργικές μονάδες.
Αν πρόκειται για διαφορετικές δώσε διαφορετικά ονόματα.

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