[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» δεν πρέπει να υπάρχει σε δύο λειτουργικές μονάδες.
Αν πρόκειται για διαφορετικές δώσε διαφορετικά ονόματα.

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