ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ВБА-запрос-русские_значения форм
25 сообщений из 76, страница 3 из 4
  3  все
ВБА-запрос-русские_значения форм
    #32263507
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
поменяй нагромождение
[tFiltrastia]![tPraseListVvoda].Form.Recordsourсe
на просто
tPraseListVvoda.Recordsourсe
а набор фраз
Forms![tFiltrastia].SetFocus
Forms![tFiltrastia]![tPriseListVvoda].SetFocus
Forms![tFiltrastia]![tPriseListVvoda].Requery
на просто
tPriseListVvoda.Requery

и напиши на какой строке какую ошибку (подробно) выдает.
...
Рейтинг: 0 / 0
12.09.2003, 12:24
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263510
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Не есть хорошо сменять рекордсорс формы по изменению значения этой самой формы. Но попробуй так:
Eсли proizv - числовое поле:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub proizv_AfterUpdate()
  doCmd.RunCommand acCmdSaveRecord
  if IsNull(me.proizv) then
    me.RecordSource= "SELECT * FROM [тПрайслистВвода];" 
  else
    me.RecordSource= "SELECT * FROM [тПрайслистВвода] "  & _
        "WHERE (тПрайслистВвода.производитель)="  & me![proizv] &  " );" 
  end if
  me.Requery

Если proizv - строковое поле:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub proizv_AfterUpdate()
  doCmd.RunCommand acCmdSaveRecord
  if len(nz(me.proizv, ""))=0  then
    me.RecordSource="SELECT * FROM [тПрайслистВвода]; "
  else
    me.RecordSource=" SELECT * FROM [тПрайслистВвода]  " & _
       " WHERE (тПрайслистВвода.производитель)= """  & me![proizv] &  """ );"
  end if
  me.Requery
...
Рейтинг: 0 / 0
12.09.2003, 12:25
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263523
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
tFiltrastia -таблица с контролом proizv и подчин формой tPraseListVvoda
Это не очень понятно.
+к предыдущему:
Я это не проверял, вижу одну лишнюю скобку перед ";" в строках вторых запросов.
...
Рейтинг: 0 / 0
12.09.2003, 12:28
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263540
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
соответственноесли подч форму завязать на контролл в основной форме путём добавления в конструкторе [Forms]![tFiltrastia]![proizv]
и делаю обновление на контролле -всё работает!!!

Geo Не есть хорошо сменять рекордсорс формы по изменению значения этой самой формы
Нет , я меняю рекордсоурс подчинёной формы....
...
Рейтинг: 0 / 0
12.09.2003, 12:38
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263545
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
к SubForm'е обращаються следующим образом:
[Forms]![tFiltrastia]![tPraseListVvoda].Form.Recordsourse
а не
[tFiltrastia]![tPraseListVvoda].Form.Recordsourse
...
Рейтинг: 0 / 0
12.09.2003, 12:40
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263547
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Виноват. Тогда поправляюсь:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub proizv_AfterUpdate()
  if IsNull(me.proizv) then
    me![tPriseListVvoda].Form.RecordSource= "SELECT * FROM [тПрайслистВвода];" 
  else
    me![tPriseListVvoda].Form.RecordSource= "SELECT * FROM [тПрайслистВвода] "  & _
        "WHERE (тПрайслистВвода.производитель)="  & me![proizv] &  " );" 
  end if
  me.[tPriseListVvoda].Form.Requery
End Sub

Во втором случае аналогично.
...
Рейтинг: 0 / 0
12.09.2003, 12:42
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263551
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
>[Forms]![tFiltrastia]![tPraseListVvoda].Form.Recordsourse
если уж на то пошло, то так
tPraseListVvoda.Form.Recordsourсe
это ведь своя сабформа.
...
Рейтинг: 0 / 0
12.09.2003, 12:44
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263553
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Попробовал- как пишет sasha_1
вылетела табличка -Выражение после обновления, введённое в поле свойства события,вызывает ошибку: Metod or data member not found
...
Рейтинг: 0 / 0
12.09.2003, 12:47
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263561
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
прошу прощения, просмотрел. вместо
tPraseListVvoda.Recordsourсe
надо конечно же
tPraseListVvoda. Form. Recordsourсe
...
Рейтинг: 0 / 0
12.09.2003, 12:52
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263563
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
сделал как пишет....
вылетела ошибка Application-defined or object-defined error
и ошибка останов на строке
[Forms]![tFiltrastia]![tPraseListVvoda].Form.Recordsourse = "SELECT тПрайслистВвода.*, тПрайслистВвода.производитель FROM [тПрайслистВвода] WHERE (((тПрайслистВвода.производитель)=" & [Forms]![tFiltrastia]![proizv] & " ));"
...
Рейтинг: 0 / 0
12.09.2003, 12:53
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263566
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Я правильно понял участников обсуждения, что

1. [tFiltrastia]![tPraseListVvoda].Form.Recordsourse и
2. Forms![tFiltrastia]![tPraseListVvoda].Form.Recordsourse и
3. Forms![tFiltrastia]![tPraseListVvoda].Recordsourse

это одно и тоже?
И при проверке msgbox Forms! [фВводЗначений_все].RecordSource тоже выдает ошибку?
...
Рейтинг: 0 / 0
12.09.2003, 12:54
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263567
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
в Recordsourse вторая с заду буква С
...
Рейтинг: 0 / 0
12.09.2003, 12:55
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263575
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Эт точно RecordSource!! Однако!
...
Рейтинг: 0 / 0
12.09.2003, 12:57
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263578
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
я имел в виду - как пишет Sfagnum....вылетает такая ошибка
если изменить на новое предложение sasha_1 - пишет туже ошибку...
...
Рейтинг: 0 / 0
12.09.2003, 12:59
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263580
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
2 Витал:
строка под номером 1 в твоем списке не имеет смысла и работать не будет.
строка 3 тоже работать не будет.
...
Рейтинг: 0 / 0
12.09.2003, 12:59
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263585
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
2 vlad_707:
может все-таки скажешь на какой строке выскакивает ошибка?
...
Рейтинг: 0 / 0
12.09.2003, 13:00
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263608
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
sasha_1
Дык! Я ж не сам придумал, а скопировал у вопросильника. Надеюсь у него именно вторая строка используется.

Если вставляю значение sss в источник строк и нажимаю конструктор- всё работает
Значит, с селектом порядок. А не порядок - с обращением к форме.
...
Рейтинг: 0 / 0
12.09.2003, 13:10
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263615
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
2 Витал:
конечно с обращением.
он уже постов 10 подряд упорно пишет RecordsourSe
и возмущается, что Ас ругается, что метод не найден.
...
Рейтинг: 0 / 0
12.09.2003, 13:13
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263623
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
sasha_1
Обрати внимание, что и 2 страницы топика пытаются обратиться к форме без Forms! или Forms(""). Почему и вылез я со своим вопросом.
...
Рейтинг: 0 / 0
12.09.2003, 13:17
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263627
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Букву С я уже давно исправил... дело не в этом.......
вчерашние попытки с условием на нуль так же не обвенчались успехом...

Сделал как предложил Geo.......
Исправил 2 опечатки (выделил жирным)...
теперь если нулл, то работает а если ввожу в контролл proizv значение ABB
-вылетает окошко - Введите значение параметра ABB
если ещё раз вводишь производителя-siemon то подформа фильтруется....но снова вылетело окошко....

Private Sub proizv_AfterUpdate()
If IsNull(Me.proizv) Then
Me![tPr a seListVvoda].Form.RecordSource = "SELECT * FROM [тПрайслистВвода];"
Else
Me![tPr a seListVvoda].Form.RecordSource = "SELECT * FROM [тПрайслистВвода] " & _
"WHERE ( (тПрайслистВвода.производитель)=" & Me![proizv] & " ) ;"
End If
Me.[tPr a seListVvoda].Form.Requery
End Sub
...
Рейтинг: 0 / 0
12.09.2003, 13:22
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263632
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
:( Я же привел вариант для строкового поля. Там по-другому немного писать надо. Блин. Ухожу отсюда. Сам думать не хочешь, зачем людям мозг канифолишь?
...
Рейтинг: 0 / 0
12.09.2003, 13:24
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263724
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
вставил на else строку из конструктора (строка2) и всё заработало
объясните в чём разница
строка 1 просит вести производителя
строка2 работает
Else
строка1
Me![tPraseListVvoda].Form.RecordSource = "SELECT * FROM [тПрайслистВвода] WHERE ((тПрайслистВвода.производитель)=" & Me![proizv] & " );"

строка2
Me![tPraseListVvoda].Form.RecordSource = "SELECT тПрайслистВвода.*, тПрайслистВвода.производитель FROM тПрайслистВвода WHERE (((тПрайслистВвода.производитель)=Forms!tFiltrastia!proizv)); "
...
Рейтинг: 0 / 0
12.09.2003, 14:07
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263748
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
Me![proizv] - текст!!!
...
Рейтинг: 0 / 0
12.09.2003, 14:18
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263759
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Если поле текстовое, то добавь апострофы после равно и перед закрывающей скобкой.
Код: plaintext
1.
2.
3.
4.
строка1 
Me![tPraseListVvoda].Form.RecordSource =  "SELECT * 
FROM [тПрайслистВвода] WHERE ((тПрайслистВвода.производитель)= '" 
& Me![proizv] & "' );"
...
Рейтинг: 0 / 0
12.09.2003, 14:26
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32263792
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Всем большое спасибо! на счёт опострофов не знал.......
Один только вопрос у меня остался- почему тогда работает моя строка без апострофов ??????
...
Рейтинг: 0 / 0
12.09.2003, 14:48
| Ответить | Цитировать | Написать  
25 сообщений из 76, страница 3 из 4
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ВБА-запрос-русские_значения форм
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32263545&tid=1679469]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 237ms
total:  417ms
созд. / загр.: 417ms
x
x
Закрыть


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