234 / 14 / 1
Регистрация: 07.12.2012
Сообщений: 208
1

Событие на кнопке

23.05.2016, 09:06. Показов 346. Ответов 3
Метки нет (Все метки)

Добрый день
В предоставленной процедуре в событие на кнопке ищется
запись по совпадению по двум полям.
Этого добился и это работает,
но не могу допилить что бы при отсутствии записи выполнялась какая нибудь другая процедура-
к примеру появлялась месага об отсутствии такой записи
Код
 Dim s
    Dim rst
    s = "SELECT tbl1.id,tbl1.f3,[f1] & [f2] AS ff FROM tbl1"
    Set rst = CurrentDb.OpenRecordset(s)
    Do Until rst.EOF
        If rst("ff") = Me.Поле0 & Me.Поле1 Then
            If MsgBox("Запись с таким именем существует", vbQuestion + vbYesNo, "Подтверждение") = vbNo Then    
                Else
                rst.Edit
                rst!f3 = rst!f3 + Me.Поле9
                rst.Update
        End If
    End If
    rst.MoveNext
    Loop
    rst.Close
    CurrentDb.Close
    Forms![frmMain]![sf1].Requery
    Forms![frmMain]![sf1].Form.Recordset.MoveLast
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2016, 09:06
Ответы с готовыми решениями:

Обработка ошибки вставки в таблицу на кнопке, не портируется макрос кнопки в VBA событие
Была кнопка, на ней был следующий макрос, он работал хорошо, пока не понадобилось при нажатии...

Событие по кнопке
Здравствуйте решил сделать событие по кнопке Enter что бы отправлялось сообщение. Прочитал про...

Событие по кнопке
Доброго времени суток подскажите как можно реализовать такую конструкцию $table.= "<td...

Событие клика по кнопке
Всем привет! что то не догоняю как отловить событие клика по кнопке? вот код моей программы ...

3
Эксперт MS Access
26705 / 14385 / 3190
Регистрация: 28.04.2012
Сообщений: 15,783
23.05.2016, 09:12 2
Цитата Сообщение от markusdod Посмотреть сообщение
при отсутствии записи выполнялась какая нибудь другая процедура-
к примеру появлялась месага об отсутствии такой записи
Отрывок кода
Visual Basic
1
2
3
4
5
6
7
8
    Set rst = CurrentDb.OpenRecordset(s)
'Сюда вставляем
    If rst.EOF Then
        msgbox "Нет данных"
        Exit Sub
    End If
'Конец вставки
    Do Until rst.EOF
1
Эксперт MS Access
6728 / 4325 / 269
Регистрация: 12.08.2011
Сообщений: 12,672
23.05.2016, 09:58 3
а до этого:
Visual Basic
1
2
Dim rst
* * s = "SELECT tbl1.id,tbl1.f3,[f1] & [f2] AS ff FROM tbl1 where [f1] & [f2] = '" & Me.Поле0 & Me.Поле1 & "'"
2
234 / 14 / 1
Регистрация: 07.12.2012
Сообщений: 208
23.05.2016, 12:06  [ТС] 4
Доп.паёк от alvk был вовремя!Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2016, 12:06

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Событие по клику на кнопке
На форме есть MenuStrip создаваемый через код, нужно чтобы на каждую кнопку повесилось событие...

Не срабатывает событие на кнопке
Здравствуйте! Имеется вот такой код: function addPlaceInMap(response) { for (var i = 0; i <...

Как привязать событие к кнопке.?
Собственно хотел спросить, как сделать так. чтобы при нажатии на кнопку, выводилось событие из js...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.