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.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2