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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Υπάρχει ο πίνακας Χ στην τρέχουσα εφαρμογή; (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/59-yparxei-o-pinakas-x-stin-trexoysa-efarmogi.html)

Meteora

07-09-09 16:47

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

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

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

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

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

Tassos

08-09-09 20:36

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

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

Κώδικας:

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

08-09-09 22:02

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

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

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

Tassos

09-09-09 20:48

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

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

Η ώρα είναι 21:05.

Search Engine Optimization by vBSEO 3.3.2