ник: akkorn
Я бы порекомендовал всегда вверху модуля определять
Option Explicit
эта команда запрещает системе самостоятельно определять тип переменных.
В частности, у вас не известно какого типа переменные qqq и www
команды же
qqq = Forms![avtorizaciy]![Пароль]
www = Forms![avtorizaciy]![Логин]
работают то правильно, но я написал бы так:
[Form_avtorizaciy].Pasw1.Text
[Form_avtorizaciy].Login1.Text
еще один совет, если можно,- не создавайте объекты и именем в кирилице (по-русски).
далее, зачем вы ДВА раза обращаетесь к форме к полям Пароль и Логин? У Вас же эти данные висят в переменных qqq и www :)
потом, насколько я знаю, в конце запроса нужно ставить ; , т.е. команда
strSQL = strSelect & strFrom & strWhere
будет выглядеть как:
strSQL = strSelect & strFrom & strWhere & ";"
Ну раз уж начал, то я бы строки
If Nz(Forms!avtorizaciy!Пароль, 0) > 0 Then strWhere = strWhere & " AND (pas.idparol = " & (qqq) & ")"
поменял бы на
If Nz(qqq, 0) > 0 Then strWhere = strWhere & " AND pas.idparol = " & qqq
и аналогично вторую
Удачи) 