| |
 16 Кб. |
|
| | Хочу сделать привязку БД к компьютеру на котором она установлена. "Разрешенных" компьютеров может быть несколько.
Функция DriveSerial возвращает номер (некий уникальный идентификатор) логического раздела жесткого диска на котором установлена БД.
Для хранения идентификаторов есть таблица tblKey.
Идея была такая:
При запуске приложения, рекордсетом пробегаюсь по этим идентификаторам и если хоть один совпадает с результатом выполнения функциии DriveSerial - приложение продолжает работу (сейчас это сообщение "Доступ разрешен"), если ни один не совпадает - закрываем access (сейчас это сообщение "Доступ запрещен").
Однако сейчас получается, что если первый в таблице идентификатор не совпадет с результатом выполнения функции DriveSerial - access закроется и до "правильного" идентификатора просто не дойдет :(
Возможно ли как то реализовать логику:
Проверяем все идентификаторы - если хоть один совпадает с результатом выполнения функциии DriveSerial - продолжаем работу, если ни один не совпадает - закрываем access
???
Результаты извращений во вложении. Гляньте, кому не лень. | |
| |
| |
| |
|
|
| |
if dcount("*", "[tblKey]","[ПолеСКлючем]='" & DriveSerial & "'") > 0 then
' есть ключ
else
' нет ключа
end if
|
| |
| |
| |
| |
|
|
| | Как всегда - Большое Спасибо! :) | |
| |
| |
