powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Update
9 сообщений из 34, страница 2 из 2
Update
    #32870679
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а нету 2000 - лови 97
- заметь устройство запроса правого списка - в нем есть Where
...
Рейтинг: 0 / 0
Update
    #32870703
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DeliyaПонятно....
Но там столько всего написанно.... Куда конкретно вставлять то....

После того как нажали "Программа" у вас открывается код VBA, если не сложно то скопируйте его и вставьте в пост (Ctrl-C), не забудьте дать имя поля...

Так выглядет необходимый код

Private Sub Qty_AfterUpdate()

End Sub


где красным выделено имя того поля, где и нужно произвести обновление, т.е. если имя поля, где Вы выбираете Project1000 или другие имеет имя "Проекты", то код будет выглядеть так:

Private Sub Проекты_AfterUpdate()

End Sub


Вот и вставляйте DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 в середину, т.е.

Private Sub Проекты_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

End Sub
...
Рейтинг: 0 / 0
Update
    #32870726
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так, отлично.
Это все я поняла, у меня примерно так и сделано.
Наверное лучше эсли я конкретно покажу....
...
Рейтинг: 0 / 0
Update
    #32870737
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shuhard!
А зачем в твоем примере код, что он делает? (это для расширения кругозора для меня)
Me![SP_L] = Me![SP_L].ItemData(0)
В частности, что делает ItemData(0)?

Кстати, как в моем варианте применить Requery?

Private Sub Проекты_AfterUpdate()
Me![????].Requery
End Sub



Жизнь не перестает меня удивлять!!!
...
Рейтинг: 0 / 0
Update
    #32870754
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ukraina - Сделала:

Private Sub Subproject_ID_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

И все рабно не обновляет...
...
Рейтинг: 0 / 0
Update
    #32870771
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В данном случае

Private Sub ProjectID_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Просмотрите на свойстве поля ProjectID "после обновления"

Жизнь не перестает меня удивлять!!!
...
Рейтинг: 0 / 0
Update
    #32870775
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не в том поле сделали, см. выше и приложенный файл
Жизнь не перестает меня удивлять!!!
...
Рейтинг: 0 / 0
Update
    #32870786
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АААААААААА!!!!!! УРА!!!!!!!

ЗАРАБОТАЛО!!!!! Какая программа классная!!!!
СПАСИБО ОГРОМНОЕ!!!

Hugs!
...
Рейтинг: 0 / 0
Update
    #32870790
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
UkrainaShuhard!
А зачем в твоем примере код, что он делает? (это для расширения кругозора для меня)
Me![SP_L] = Me![SP_L].ItemData(0)
В частности, что делает ItemData(0)?

засеивание списка - при открытие позиционируемся на первую строку(если она есть)
ItemData(0)- возвращает значение ключевого столбца списка для первой строки
...
Рейтинг: 0 / 0
9 сообщений из 34, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Update
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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