[ Πίνακες ] Διαγραφή πίνακα στην Access με Vba

[Αναστάσιος Αναγνωστάκης]

Καλησπέρα.
θα ήθελα την βοήθεια σας, γιατί παρόλο που έχω ψάξει αρκετά στο forum, δεν μπορώ να βρω λύση στο πρόβλημα μου.
Έχω δημιουργήσει στην δουλειά μου μια βάση δεδομένων με το όνομα ImportData.
Ο σκοπό της είναι να τραβάω δεδομένα από ένα αρχείο .txt, που παίρνω από την Xvan πώληση.
Με Vba Code δημιουργώ περίπου 11 πίνακες και 8 ερωτήματα, γιατί χρειάζεται να κάνω διάφορους διαχωρισμούς δεδομένων, και όλα αυτά για το ένα αρχείο, υπάρχουν 9 αρχεία.
Η δομή είναι η εξής:
Σύνδεση με το εξωτερικό αρχείο,
Δημιουργία πινάκων,
Δημιουργία ερωτημάτων, (ενημέρωσης, προσάρτησης, διαγραφής),
Παραλαβή από το εμπορικό πρόγραμμα, (Erp).
Μέχρι εδώ όλα δουλεύουν όπως τα θέλω.

Εδώ τώρα έχω τα εξής προβλήματα:

Α) θέλω να σβήνω πρώτα τα ερωτήματα, (με κώδικα πάντα), αφού πρώτα τσεκάρει ο κώδικας ότι υπάρχουν, (γιατί υπάρχει η περίπτωση να έχει σβηστεί).
Β) Μετά θέλω να σβήνω τους πίνακες, (με κώδικα πάντα), αφού πρώτα τσεκάρει ο κώδικας ότι υπάρχουν, (γιατί υπάρχει η περίπτωση να έχει σβηστεί).΄
Με αυτό τον τρόπο καθαρίζει η βάση από πίνακες και ερωτήματα που δεν χρειάζονται.
Έχω δοκιμάσει με διάφορους τρόπους να σβήσω πίνακες και ερωτήματα, αλλά δεν τα καταφέρνω γιατί όταν δεν βρει το ερώτημα ή τον πίνακα, "κρεμάει" ο κώδικας.
Δηλαδή δεν ξέρω να γράψω με κώδικα πως θα "δει" η vba αν υπάρχει ο πίνακας ή το ερώτημα, για να προχωρήσει στην διαγραφή του αλλιώς να προχωρήσει παρακάτω.


Σας ευχαριστώ.

Φιλικά
Αναστάσιος

[pctechdr]

Πάρε αυτό το module και κάντο εισαγωγή στην βάση σου!

Determine if a Table Exists.zip

[vraxnakisg]

Καλησπέρα και από εμένα.
Δες το συνημμένο.

[Αναστάσιος Αναγνωστάκης]

Σας ευχαριστώ πολύ Χρήστο και Γιώργο για τις άμεσες απαντήσεις.
θα τσεκάρω αμέσως αυτά που μου στείλατε, και θα σας ενημερώσω.

Φιλικά
Αναστάσιος

[Αναστάσιος Αναγνωστάκης]

Καλησπέρα και πάλι.

Οι λύσεις που προτείνατε και οι δύο, ήταν εξίσου δυνατές και λειτουργικές. Η προσέγγιση ήταν πάνω κάτω η ίδια, οπότε κάνωντας τις απαραίτητες προσαρτήσεις στον κώδικα μου, δούλεψε άψογα!!!!!!!!!!!!!:thumbu p1:

Να είστε καλά παιδιά...
Εχω κάνει αρκτετή δουλειά, και θα ήταν κρίμα να μείνει αυτό το κομμάτι άλυτο.

Σας ευχαριστώ και πάλι.

Φιλικά
Αναστάσιος.