Υπάρχει ο πίνακας Χ στην τρέχουσα εφαρμογή;

[Meteora]

Καλησπέρα σε όλους σας

Σε μια εφαρμογή επιθυμώ να εκτελεστεί ο κώδικας ως εξής :
...
If πίνακας Χ υπάρχει στην εφαρμογή Then
Εκτέλεση πακέτου (Ι) εντολών
Else
Εκτέλεση πακέτου (ΙΙ) εντολών
End If
...
Η δυσκολία ειναι τεράστια και έχω φτάσει στο ...κόκκινο!

Ευχαριστώ θερμά όποιο φίλο (-η) διαθέσει λίγο απο τον χρόνο του για τη λύση του ερωτήματος που έθεσα.

Με εκτίμηση
Νίκος

Φίλε μου Νίκο καλησπέρα!
Σ εξυπηρετεί ο παρακάτω κώδικας;

Option Compare Database
Option Explicit

Function TableExists(TblName$) As Boolean
    Dim tbl As DAO.TableDef
    For Each tbl In CurrentDb.TableDefs
        If tbl.Name = TblName Then TableExists = True: Exit For
    Next
End Function

Sub test()
    If TableExists("x") Then
        DoCmd.RunMacro "Macro1"
    Else
        DoCmd.RunMacro "Macro2"
    End If
End Sub

Με εκτίμηση
Τάσος

[Meteora]

Καλησπέρα...
Κομψότατος ο κώδικας! Λειτουργεί. Ειναι ο επιθυμητός.

Φίλτατε Τάσο θερμά ευχαριστώ.
Νίκος

Νάσαι καλά φίλε Νίκο!
Καλό βράδυ!
Τάσος