ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не работает DoCmd.OpenForm
17 сообщений из 17, страница 1 из 1
Не работает DoCmd.OpenForm
    #34993417
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
Всем привет!
Для редактирования данных отображаемых в запросе (сам запрос в форме) использую код:
Код: plaintext
1.
2.
3.
Private Sub НомерЗаказа_DblClick(Cancel As Integer)
    DoCmd.OpenForm "ф-РедактированиеЗаказов", , , "Код=" & Me.Код
End Sub
Кликая по данным в столбце "Номер заказа" форма для редактирования должна загрузить запись именно с нужным номером. Но выдается сообжение:
Compile error:
Method or data member not found
Если просто дать такую команду:
Код: plaintext
DoCmd.OpenForm "ф-РедактированиеЗаказов"
то форма грузится, но на первой записи! :(
Самое интересное, что я уже применял несколько раз такой код и все работает. А тут как специально... Я не могу понять, в чем причина.
В таблице с данными "Номер заказа" - индексированное поле, совпадения не допускаются.
Применяю немного другую команду:
Код: plaintext
1.
2.
3.
Private Sub НомерЗаказа_DblClick(Cancel As Integer)
    DoCmd.OpenForm "ф-РедактированиеЗаказов", , , "НомерЗаказа=" & Me.НомерЗаказа
End Sub
имеем:
Run-time error '2501':
Прервано выполнение макрокоманды OpenForm.
Что я не так делаю?
...
Рейтинг: 0 / 0
07.12.2007, 11:10
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993449
профан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
профан
Гость
Я делаю так и все выходит:

Private Sub Договор_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Договор"

stLinkCriteria = "[ИдентКод]=" & "'" & Me![ИдентКод] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub
...
Рейтинг: 0 / 0
07.12.2007, 11:20
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993465
профан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
профан
Гость
Плохо видно, почему-то, но между двойными кавычками - одиночная, т.е. " ' " :-)
...
Рейтинг: 0 / 0
07.12.2007, 11:24
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993480
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
профанПлохо видно, почему-то, но между двойными кавычками - одиночная, т.е. " ' " :-)
Я про это подозревал, всматриваясь и протирая оптику... :) Сейчас попробую код.
...
Рейтинг: 0 / 0
07.12.2007, 11:28
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993524
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
профанПлохо видно, почему-то, но между двойными кавычками - одиночная, т.е. " ' " :-)
Вот, попробовал несколько вариантов:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub НомерЗаказа_DblClick(Cancel As Integer)
'    DoCmd.OpenForm "ф-РедактированиеЗаказов", , , "НомерЗаказа=" & Me.НомерЗаказа
Dim stDocName As String
Dim stLinkCriteria As String
   stDocName = "ф-РедактированиеЗаказов"
   stLinkCriteria = "[НомерЗаказа=]" & "'" & Me![НомерЗаказа] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
имеем:
Run-time error '3075':
Ошибка синтаксиса (пропущен оператор) в выражении запроса
'[НомерЗаказа=]'782655''.
Собственно, такого и ожидал и такаю ошибку наблюдал ранее, т.к. сейчас применялся код с более подробным описанием, т.е. "составной".
...
Рейтинг: 0 / 0
07.12.2007, 11:42
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993537
че ета?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
че ета?
Гость
...а=]
?
...
Рейтинг: 0 / 0
07.12.2007, 11:46
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993541
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
Попробовал по коду записи
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub НомерЗаказа_DblClick(Cancel As Integer)
'    DoCmd.OpenForm "ф-РедактированиеЗаказов", , , "НомерЗаказа=" & Me.НомерЗаказа
Dim stDocName As String
Dim stLinkCriteria As String
   stDocName = "ф-РедактированиеЗаказов"
'  stLinkCriteria = "[НомерЗаказа=]" & "'" & Me![НомерЗаказа] & "'"
   stLinkCriteria = "[Код=]" & "'" & Me![Код] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Run-time error '3075':
Ошибка синтаксиса (пропущен оператор) в выражении запроса
'[Код=]'14''.
Аналогичное сообщение... Где-то собака зарыта, а вот где?
...
Рейтинг: 0 / 0
07.12.2007, 11:47
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993550
<>
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
<>
Гость
Alex37
Аналогичное сообщение... Где-то собака зарыта, а вот где?
шутите?
...
Рейтинг: 0 / 0
07.12.2007, 11:49
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993551
профан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
профан
Гость
Сорри, забыла сказать, что ИдентКод у меня текстовый!
...
Рейтинг: 0 / 0
07.12.2007, 11:49
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993557
<>
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
<>
Гость
че ета?
'[Код=]'14''.
...
Рейтинг: 0 / 0
07.12.2007, 11:50
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993559
профан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
профан
Гость
И еще, почему "[Код=]"? Должно быть "[Код]="...
...
Рейтинг: 0 / 0
07.12.2007, 11:50
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993574
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
профанСорри, забыла сказать, что ИдентКод у меня текстовый!
Ну это понятно, если указываете As String
У меня номер также текстовый...
...
Рейтинг: 0 / 0
07.12.2007, 11:55
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #34993598
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
профанИ еще, почему "[Код=]"? Должно быть "[Код]="...
Ура. Запустилось!!!
Спасибо ребята, помогли. Я понял свою ошибку. Всё заработало! :)
...
Рейтинг: 0 / 0
07.12.2007, 12:01
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Не работает DoCmd.OpenForm
    #40070032
Юрисконсульт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юрисконсульт
Гость
Добрый день, помогите пожалуйста открыть форму с фильтром по полю [Specialist] равному пустому значению Null (Найти клиентов где поле [Specialist] не заполнено)
Код: vbnet
1.
2.
3.
4.
5.
Private Sub OldClients_Click()
Dim stLinkCriteria As String ' здесь вообще тип данных в случае Null нужен?
stLinkCriteria = "[Specialist]=" & Null
DoCmd.OpenForm "Old_Clients", , , stLinkCriteria
End Sub



Так тоже не даёт
Код: javascript
1.
2.
3.
Private Sub OldClients2_Click()
DoCmd.OpenForm "Old_Clients", , , "[Specialist] = Null"
End Sub



В VBA слабоват, понимаю что что-то делаю не правильно, но понять пока не хватает знаний, пока открываю форму запросом где в условии отбора по полю указано "Is Null"
...
Рейтинг: 0 / 0
13.05.2021, 15:54
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #40070037
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
Юрисконсульт
пока открываю форму запросом где в условии отбора по полю указано "Is Null"
если у тебя в запросе Is Null, то что ж ты в фильтре пишешь = :)
...
Рейтинг: 0 / 0
13.05.2021, 16:04
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #40070040
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Юрисконсульт,
попробуйте так
Код: vbnet
1.
2.
3.
Private Sub OldClients2_Click()
DoCmd.OpenForm "Old_Clients", , , "len('' & [Specialist])=0"
End Sub
...
Рейтинг: 0 / 0
13.05.2021, 16:07
| Ответить | Цитировать | Написать  
Не работает DoCmd.OpenForm
    #40070084
Юрисконсульт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юрисконсульт
Гость
ПЕНСИОНЕРКА,
Ура!!! Заработало!
Огромное спасибо!
...
Рейтинг: 0 / 0
13.05.2021, 17:29
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не работает DoCmd.OpenForm
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=34993480&tid=1609692]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 144ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 13ms
total:  248ms
созд. / загр.: 248ms
x
x
Закрыть


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