powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как при открытии ADP выдавать свое окно логина?
4 сообщений из 4, страница 1 из 1
Как при открытии ADP выдавать свое окно логина?
    #32148418
RV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RV
Гость
Доброго времени суток
Создал проэкт ADP.
Теперь хочу при открытии ADP выдать свое окно логина (а не стандартное)?
Спасибо!
...
Рейтинг: 0 / 0
Как при открытии ADP выдавать свое окно логина?
    #32148607
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Примерно так:
Выводишь форму с полями uname - логин, pass - пароль

На нажатие кнопки "ОК"

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub btnOK_Click()
Dim pas As String, strForm As String
On Error GoTo ErrLogin
uid = Nz(Me.uname.Value,  "")
pas = Nz(Me.pass.Value, "  ")
CurrentProject.OpenConnection " provider=sqloledb;persist security info=true;data source= " _
    & CurrentProject.Connection.Properties(" data source ") & _
    " ;initial catalog=MyDatabase ", Trim(uid), Trim(pas)
Exit Sub

ErrLogin:
      MsgBox " Неверное имя или пароль!!! "
      Me.uname.Value = "  "
      Me.pass.Value = " "
      Me.uname.SetFocus
End Sub
MyDatabase - имя базы.
...
Рейтинг: 0 / 0
Как при открытии ADP выдавать свое окно логина?
    #32149307
SM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Только еще надо делать при закрытии проекта отсоединение от сервера
Код: plaintext
CurrentProject.OpenConnection  "provider=" 
Иначе при следующем открытии Access будет выводить стандартный диалог User/Password
...
Рейтинг: 0 / 0
Как при открытии ADP выдавать свое окно логина?
    #32149486
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Интересно, почему у меня не выводит...
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как при открытии ADP выдавать свое окно логина?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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