авторизация

[cvetanet]

доброе всем времени суток!
Помогите пожалуйста разобраться с формой авторизацией средствами VBA .. задача стоит что бы были пользователи и пароли соответственно! вроде бы нашел как сделать

Private Sub Кнопка0_Click()
Const sQ = "select * from tblUsers where sName = '", sQ2 = "' and sPWD = '"
Dim d As DAO.Database, r As DAO.Recordset, s1$, s2$
s1 = Поле1 & "" 'чтение поля с именем
s2 = Поле2 & "" 'чтение поля с паролем
If Len(s1) * Len(s2) = 0 Then Exit Sub 'не введены учетные данные
Set d = CurrentDb
Set r = d.OpenRecordset(sQ + s1 + sQ2 + s2 + "'")
If r.EOF Then 'записей с введенными данными нет
DoCmd.Quit 'покидаем (закрываем) MS Access
End If
r.Close
Set r = Nothing: Set d = Nothing
End Sub

но после таких манипуляций логин работает а пароль можно ввести совершенно любой подскажите как исправить проблемку...((

[gluk_fm]

Я думаю что если переписать рекордсет то должно помочь. Что то вроде:

Set r = d.OpenRecordset(запрос по параметрам c условиями отбора по полям логин и пароль)
if r.count=0 then
DoCmd.Quit 'покидаем (закрываем) MS Access
end if

[cvetanet]

Сообщение от gluk_fm

Я думаю что если переписать рекордсет то должно помочь. Что то вроде:

Set r = d.OpenRecordset(запрос по параметрам c условиями отбора по полям логин и пароль)
if r.count=0 then
DoCmd.Quit 'покидаем (закрываем) MS Access
end if

пишет ошибку в r.count и выделяет желтым Private Sub Кнопка0_Click()

[gluk_fm]

Тогда можно как то так, вместо этой строки:


kl=1
Do Until r.EOF
kl=kl+1
loop

if kl <>0 then go to l1 ' и продолжение функции как нашло пароль

[gluk_fm]

Не забудь l1:

[cvetanet]

Сообщение от gluk_fm

Не забудь l1:

если не трудно напиши полностью ка кдолжно быть я не селен в VBA~((
+ тоже самое подчеркивает желтым

[gluk_fm]

Напишите, что получилось у вас с новым рекордсетом или выложите базу только в 2003 формате (не выше)

[cvetanet]

Сообщение от gluk_fm

Напишите, что получилось у вас с новым рекордсетом или выложите базу только в 2003 формате (не выше)

вот выкладываю логин и пароль должен быть test test а сейчас имеем логин test и все что угодно

[gluk_fm]

В приложении, но Вам ещё много играться для создания. Так не работает кнопка по закрытию базы и нет модуля снятия ограничений и т.д

[cvetanet]

Сообщение от gluk_fm

В приложении, но Вам ещё много играться для создания. Так не работает кнопка по закрытию базы и нет модуля снятия ограничений и т.д

Спасибо огромнейщее!!