Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / кто подскажет? (осуществить проверку существования таблицы) / 5 сообщений из 5, страница 1 из 1
12.07.2004, 10:58:37
    #32599214
Nikolay Gerasimov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кто подскажет? (осуществить проверку существования таблицы)
Подскажите пожалуйста, как можно осуществить проверку существования таблицы в accesse средствами VBA?????
...
Рейтинг: 0 / 0
12.07.2004, 11:02:02
    #32599228
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кто подскажет? (осуществить проверку существования таблицы)
...
Рейтинг: 0 / 0
12.07.2004, 11:06:49
    #32599238
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кто подскажет? (осуществить проверку существования таблицы)
Можно Dlookup'ом посмотреть в таблице MsysObject.
...
Рейтинг: 0 / 0
12.07.2004, 11:12:26
    #32599250
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кто подскажет? (осуществить проверку существования таблицы)
через ADOX:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function XTblTest(mycat As Object, tblName As String) As Boolean
' проверка существования таблицы tblName вернёт true/false
Dim Mytable As ADOX.Table
XTblTest = False
For Each Mytable In mycat.Tables
  If Mytable.Name = tblName Then
    XTblTest = True
    Exit For
  End If
Next Mytable
End Function
вызов
Код: plaintext
1.
2.
3.
4.
Dim mycat As ADOX.Catalog
Set mycat = New ADOX.Catalog
mycat.ActiveConnection = CurrentProject.Connection
If XTblTest(mycat, "Tcorp") Then MsgBox ("Есть corp контакт")
...
Рейтинг: 0 / 0
12.07.2004, 11:23:03
    #32599272
Nikolay Gerasimov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кто подскажет? (осуществить проверку существования таблицы)
все ясно, спасибо
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / кто подскажет? (осуществить проверку существования таблицы) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]