ник: АлаяЗаря
вот мой код:
Option Compare Database
Function paswd()
Dim strSelect As String
Dim strFrom As String
Dim strWhere As String
strSelect = "SELECT "
strSelect = strSelect & "pas.id, pas.idparol, pas.iduser"
strFrom = " FROM pas"
strWhere = " WHERE True"
qqq = Forms![avtorizaciy]![Пароль]
www = Forms![avtorizaciy]![Логин]
If Nz(Forms!avtorizaciy!Пароль, 0) > 0 Then strWhere = strWhere & " AND (pas.idparol = " & (qqq) & ")"
If Nz(Forms!avtorizaciy!Логин, 0) > 0 Then strWhere = strWhere & " and (pas.iduser = " & (www) & ")"
strSQL = strSelect & strFrom & strWhere
CurrentDb.QueryDefs("password").SQL = strSQL
paswd = strSQL
End Function
Проблема тут
|
If Nz(Forms!avtorizaciy!Пароль, 0) > 0 Then strWhere = strWhere & " AND (pas.idparol = " & (qqq) & ")"
If Nz(Forms!avtorizaciy!Логин, 0) > 0 Then strWhere = strWhere & " and (pas.iduser = " & (www) & ")"
|
код работает нормально, только в запросе значения "qqq" и "www" берет в квадратные скобки и при открытии запроса спрашивает ввести значения вместо того чтобы по ним сортировать...
Гдето ошибка =(((