ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не открывается запрос в событии формы
11 сообщений из 11, страница 1 из 1
Не открывается запрос в событии формы
    #39088044
antipod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antipod
Участник
Вот такой код, еще не доделал но уже ошибка инструкции SQL
ошибка при открытии запроса, сам запрос прекрасно открывается, в нем используются данные формы.
код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
   Set RecFio = New ADODB.Recordset
   RecFio.Open "KvitanzijaReestr", CurrentProject.Connection
   Otv = MsgBox("Удалить запись!" & Chr(13) & _
       FioSokr(RecFio.Fields("Fam"), RecFio.Fields("Imja"), RecFio.Fields("Otch")) _
       & Chr(13) & "Продолжить?", vbYesNo)
     If Otv <> 6 Then
       RecFio.Close
       Set RecFio = Nothing
       Exit Sub
     End If
   RecFio.Close
   Set RecFio = Nothing
...
Рейтинг: 0 / 0
27.10.2015, 14:24
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088051
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
antipod,

Что такое 6 ???

Otv <> 6
...
Рейтинг: 0 / 0
27.10.2015, 14:28
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088056
antipod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antipod
Участник
Если не нажато "ДА"
6 константа равная нажатию кнопки да
...
Рейтинг: 0 / 0
27.10.2015, 14:30
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088058
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
antipod,

а если Да, то где выполнение запроса ?
...
Рейтинг: 0 / 0
27.10.2015, 14:31
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088064
antipod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antipod
Участник
еще не дошел до этого
ошибка на строке
Код: vbnet
1.
RecFio.Open "KvitanzijaReestr", CurrentProject.Connection
...
Рейтинг: 0 / 0
27.10.2015, 14:33
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088067
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
antipodВот такой код, еще не доделал но уже ошибка инструкции SQL
ошибка при открытии запроса, сам запрос прекрасно открывается, в нем используются данные формы.
код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
   Set RecFio = New ADODB.Recordset
   RecFio.Open "KvitanzijaReestr", CurrentProject.Connection
   Otv = MsgBox("Удалить запись!" & Chr(13) & _
       FioSokr(RecFio.Fields("Fam"), RecFio.Fields("Imja"), RecFio.Fields("Otch")) _
       & Chr(13) & "Продолжить?", vbYesNo)
     If Otv <> 6 Then
       RecFio.Close
       Set RecFio = Nothing
       Exit Sub
     End If
   RecFio.Close
   Set RecFio = Nothing


А где запрос?
...
Рейтинг: 0 / 0
27.10.2015, 14:35
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088071
antipod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antipod
Участник
"KvitanzijaReestr"
повторяю самостоятельно он открывается

Код: sql
1.
2.
3.
SELECT ReestrKvitanziy.CodReestrKvitanziy, DOCTOR.FIO AS DrFio, ReestrKvitanziy.Fam, ReestrKvitanziy.Imja, ReestrKvitanziy.Otch, [Kolvo]*[zena] AS [Sum]
FROM (DOCTOR INNER JOIN ReestrKvitanziy ON DOCTOR.KVR = ReestrKvitanziy.KVR) INNER JOIN (CodeUsl INNER JOIN ZapReestra ON CodeUsl.Код = ZapReestra.Usl) ON ReestrKvitanziy.CodReestrKvitanziy = ZapReestra.KodReestra
WHERE (((ReestrKvitanziy.CodReestrKvitanziy)=[Forms]![FVrach]![KodZap]));
...
Рейтинг: 0 / 0
27.10.2015, 14:37
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088085
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
antipodповторяю самостоятельно он открывается

Чтоб пропустить сразу лишние телодвижения:
1. Сделайте по быстрому отчет мастером на базе вашего запроса
2. Вставьте в форму мастером кнопку на открытие этого отчета...
...
Рейтинг: 0 / 0
27.10.2015, 14:43
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088088
antipod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antipod
Участник
все сам понял, в теле запроса нельзя использовать было FORMS а только vba функции

WHERE (((ReestrKvitanziy.CodReestrKvitanziy)= [Forms]![FVrach]![KodZap]) );
...
Рейтинг: 0 / 0
27.10.2015, 14:45
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088131
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
antipod
Код: vbnet
1.
2.
3.
4.
   Otv = MsgBox("Удалить запись!" & Chr(13) & _
       FioSokr(RecFio.Fields("Fam"), RecFio.Fields("Imja"), RecFio.Fields("Otch")) _
       & Chr(13) & "Продолжить?", vbYesNo)
     If Otv <> 6 Then


Почему не по-простому
Код: vbnet
1.
If vbYes <> MsgBox(...) Then


?
antipodНе открывается запрос в событии формы
Вы уж указывайте, в КАКОМ ИМЕННО событии... поскольку
antipodв теле запроса нельзя использовать было FORMS
то, вероятно, это было Form_Open...
...
Рейтинг: 0 / 0
27.10.2015, 15:17
| Ответить | Цитировать | Написать  
Не открывается запрос в событии формы
    #39088578
antipod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antipod
Участник
Константы vbYes я тогда не знал
а событие нажатие кнопки
...
Рейтинг: 0 / 0
28.10.2015, 06:54
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не открывается запрос в событии формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39088058&tid=1614364]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 66ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 12ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]