Nie jestem pewna czy dobrze Cię zrozumiałam....
Dim Nazwa_tabeli As String
Nazwa_tabeli = "AEM.xxxxx"
MsgBox Left(Nazwa_tabeli, 4) <> "AEM."
MsgBox Not (Nazwa_tabeli Like "AEM.*")
przy czym przeczytaj Option Compare Statement i ustaw dla modułu w którym jest ten kod...
Ponadto, jeżeli tylko one są przez ODBC, wlaściwość Connect obiektu TableDef zawiera słowo ODBC i po tym możesz też je rozróżnić.
Left$(.Connect, 4) = "ODBC"
nie wspomnę o innych elementach tej właściwości, lecz to chyba wiesz, zapewne masz powody by tak tego nie sprawdzać? |