Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не открывается запрос в событии формы / 11 сообщений из 11, страница 1 из 1
27.10.2015, 14:24
    #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:28
    #39088051
vmag
vmag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не открывается запрос в событии формы
antipod,

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

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

а если Да, то где выполнение запроса ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2015, 14:33
    #39088064
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не открывается запрос в событии формы
еще не дошел до этого
ошибка на строке
Код: vbnet
1.
RecFio.Open "KvitanzijaReestr", CurrentProject.Connection
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2015, 14:35
    #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:37
    #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:43
    #39088085
vmag
vmag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не открывается запрос в событии формы
antipodповторяю самостоятельно он открывается

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

WHERE (((ReestrKvitanziy.CodReestrKvitanziy)= [Forms]![FVrach]![KodZap]) );
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2015, 15:17
    #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
| Ответить | Цитировать | Написать  
28.10.2015, 06:54
    #39088578
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не открывается запрос в событии формы
Константы vbYes я тогда не знал
а событие нажатие кнопки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не открывается запрос в событии формы / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 631ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1614364]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 224ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 316ms
total:  631ms
x
x
Закрыть


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