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

#2 08-09-09, 20:36

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

Κώδικας:

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

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

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