Access процедура обработки событий

[Elvis]

Редактор скриптов в Access - нужно в кнопке прописать процедуру, которая при запуске запроса в случае неверно введенного значения на выборку, выдавала бы сообщение об ошибке Если более подробно то нужно реализовать систему персональных шифров доступа к базе при осуществлении через запрос))

[Денис]

Так. Еще раз. И поподробнее. Что за шифры? Они идут параметром запроса?

[Roman Koff]

Совет. Ищи более правильные, стандартные и простые решения ...
Не изобретай велосипед ...

[Elvis]

Private Sub Baton_Enter_Click()
On Error GoTo Err_Baton_Enter_Click

Dim stDocName As String
Dim stLinkCriteria As String

DoCmd.Close
stDocName = "f_welcome"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Baton_Enter_Click:
Exit Sub

Err_Baton_Enter_Click:
MsgBox Err.Description
Resume Exit_Baton_Enter_Click

End Sub
Как расписать процедуру чтобы при выборке равной 1 происходил переход к одной форме, а при пустой выборке к другой форме......Если осуществить через IF Else Then то надо как-то обозначить запрос в виде переменной...как это сделать о_0 не разу с VBA и VBScript не сталкивался.....

[dormouse]

Это чтоже получается?
открываем запрос с параметром. пользователь вводит значение параметра напрямую через стандартный даилог. запрос выполняется. и только теперь мы выясняем, что ввёл пользователь? и реагируем на "ошибку" показом заданного даилога?

если я это понял правильно, то надо делать так:

делаем форму со свободным полем, куда пользователь пишет значение. проверяем его на "ошибки". потом открываем запрос с критерием из того поля. Т.е. в точности всё наоборот

[Elvis]

Хммммм....конструктивно о_0
Нашел еще способ, но что-то косяк какой-то всплывает

Код: Выделить всё

Private Sub poL01_AfterUpdate() ' после ввода кода пользователя
On Error GoTo Err_AfterUpdate
' контроль правильности кода пользователя
    Dim vc As ADODB.Connection, rcD1 As New ADODB.Recordset, sT As String
    Dim Tip1 As Integer
   
    giWhUser = Me![pol01]      ' присвоение номера пользователя
    Tip1 = 0
    Set vc = CurrentProject.Connection
        vc.BeginTrans           ' запуск транзакции
    DoCmd.Hourglass True        ' включить знак песочные часы
sT = "SELECT s.nUser, s.urDop, s.sFam, s.sNam, s.sOtch, s.sOtdel, s.uParol FROM sprUser AS s WHERE (((s.uParolID)<>0));"
rcD1.Open sT, vc, adOpenKeyset, adLockOptimistic
    rcD1.MoveFirst              ' переход в начало - первая запись в наборе данных
    Do Until rcD1.EOF
      If rcD1![nUser] = giWhUser Then
'        если номер найден , присвоить значения переменным
        giWhUrDop = rcD1![urDop]
        gsWhNamUser = rcD1![sFam] & " " & rcD1![sNam] & " " & rcD1![sOtch]
        gsWhNmOtdel = rcD1![sOtdel]
        gsWhUserPar = rcD1![uParol]
        Tip1 = 1
        Exit Do
      End If
    rcD1.MoveNext
    Loop
        vc.CommitTrans          ' всё закончить транзакцию
        vc.Close                ' закрыть подключение
    Set vc = Nothing            ' очистить значение переменной
    DoCmd.Hourglass False       ' выключить знак песочные часы
' если не нашли то выводим сообщение и закончили
    If Tip1 = 0 Then
        MsgBox "Код пользователя : " & giWhUser & " не верен !!! ", vbCritical, "КОД пользователя"
        Me![pol01] = Tip1
        Exit Sub
    End If
' при правильном коде - открываем элементы на форме
    Me![pol02] = gsWhNamUser
    Me![nad02].Visible = True: Me![pol02].Visible = True
    Me![nad03].Visible = True: Me![pol03].Visible = True
    Me![pol03].SetFocus     ' установка фокуса ввода на поле pol03
   
Exit_AfterUpdate:
    Exit Sub

Err_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_AfterUpdate


при проверке правильности ввода постоянно выдает сообщение о не правильно введенном шифре

Ошибка

Безымянный.jpg (32.69 Кб) Просмотров: 1031

Где-то в выборке косяк, а вот где именно не пойму. ....все базы с кодами есть

[dormouse]

зачем так сложно? нельзя сразу в запросе написать условие? При том, что выборка SQL работает всегда быстрее, чем последующий перебор в VB-коде

Код: Выделить всё

sT = "SELECT nUser, urDop, sFam, sNam, sOtch, sOtdel, uParol FROM sprUser AS s WHERE (nUser=" & giWhUser & ");"

и в случае затруднений с результатами запроса проверяй запрос в конструкторе. напиши в конструкторе любое правильное условие и посмотри, как оно записалось в SQL-виде. потом только подставленное условие заменишь на

Код: Выделить всё

" & имяПеременной & "

и вставишь в VB-код

[alibek]

При том, что выборка SQL работает всегда быстрее, чем последующий перебор в VB-коде

Затраты на выполнение запроса ты учел?

[Elvis]

Всем спасибо, господа - все уже сделал............о_0 Roman Koff велосипед не стал изобретать.....