ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ВБА-запрос-русские_значения форм
25 сообщений из 76, страница 1 из 4
  1  все
ВБА-запрос-русские_значения форм
    #32262850
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Народ в ВБА можно ли писать русские названия форм и как это правильно сделать???
хочу- если поле со списком не нулл- фильтровать(в запросе поставить условие отбора) иначе - оставить запрос как есть
и.. нужны ли 2 последние строки с setfocus и requery
подскажите плз...

Private Sub раздел _AfterUpdate()

Dim fld As Variant
fld = Forms!фВводЗначений_все!раздел

If Not IsNull(fld) Then

фВводЗначений_все.Form.RecordSource = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) And ((тСвязкаЗначРаздел.кодРаздел)=Forms!фВводЗначений_все!раздел)) ORDER BY тЗнач.значТ;"

Else:
фВводЗначений_все.Form.RecordSource = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) ORDER BY тЗнач.значТ;"
End If


Forms![фВводЗначений_все].SetFocus
Forms![фВводЗначений_все].Requery

End Sub
...
Рейтинг: 0 / 0
11.09.2003, 18:27
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262856
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
конечно можно русские.
только если в слове есть буковка "ч", то название надо брать в скобки [ ],
также как с пробелом.
по поводу второго.
имхо: setfocus не надо. requery обязательно.
...
Рейтинг: 0 / 0
11.09.2003, 18:31
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262857
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
>Народ в ВБА можно ли писать русские названия форм
можно но не нужно.

могут быть проблемы у клиентов с английскими версиями OS и офиса.
...
Рейтинг: 0 / 0
11.09.2003, 18:32
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262858
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
1) В хелпе есть "соглашение об именах" - там все подробно. Упоминается лишь пробел и символы с кодами аски < 30 с гаком. Про буковку "ч", наверное, так и есть, но это недокументировано, кажется. :)

2) Сделай поиск поиск на форуме по чему-нибудь типа "русские наименования". Узнаешь много интересного..
...
Рейтинг: 0 / 0
11.09.2003, 18:35
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262864
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
со скобочками
[фВводЗначений_все].Form.RecordSource
так же пишет ошибку в этой строке.....-(((
в базе уже много завязано...... русский придётся оставить.....-(
...
Рейтинг: 0 / 0
11.09.2003, 18:40
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262872
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
А попробуй выкинь Form... Или лучше, опиши строку полностью (загляни в фак "как обратиться...")
...
Рейтинг: 0 / 0
11.09.2003, 18:44
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262880
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
2 vlad_707
д.б. так
Forms![фВводЗначений_все]!раздел
...
Рейтинг: 0 / 0
11.09.2003, 18:50
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262885
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
блин, торможу :)
все мои наставления касаются SQL, в ВБА скобочки ненадо.
...
Рейтинг: 0 / 0
11.09.2003, 18:52
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262888
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Выкинуть .Form не помогло тоже............
...
Рейтинг: 0 / 0
11.09.2003, 18:57
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262890
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
найди отличия от певоначального

фВводЗначений_все.Form.RecordSource = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) And ((тСвязкаЗначРаздел.кодРаздел)=" & Forms!фВводЗначений_все!раздел & ")) ORDER BY тЗнач.значТ;"

Else:
фВводЗначений_все.Form.RecordSource = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) ORDER BY тЗнач.значТ;"
...
Рейтинг: 0 / 0
11.09.2003, 19:01
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262891
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
А что в ошибке-то?
...
Рейтинг: 0 / 0
11.09.2003, 19:02
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262894
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Без скобок пишет- Variable not defined
со скобками пишет- не удаётся найти поле 'l'
...
Рейтинг: 0 / 0
11.09.2003, 19:04
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262898
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
А
msgbox [фВводЗначений_все].RecordSource
дает ошибку?
...
Рейтинг: 0 / 0
11.09.2003, 19:09
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262899
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
А
msgbox [фВводЗначений_все].RecordSource
дает ошибку?
...
Рейтинг: 0 / 0
11.09.2003, 19:09
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262900
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
2vlad_707
внимательно посмотри
...
Рейтинг: 0 / 0
11.09.2003, 19:11
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262901
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Совсем дурацкий вопрос: а форма [фВводЗначений_все] в момент возникновения ошибки открыта?
...
Рейтинг: 0 / 0
11.09.2003, 19:11
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262902
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
2GEO
ну тебе то уж надо быть внимательным....
...
Рейтинг: 0 / 0
11.09.2003, 19:13
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262906
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
А я что - я болею :) Меня даже сама мысль страшит - искать отличия в четырех абзацах нерусского похожего текста! :)
...
Рейтинг: 0 / 0
11.09.2003, 19:14
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262907
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
не совсем хорошо програмирую
я
msgbox [фВводЗначений_все].RecordSource
вставил перед
[фВводЗначений_все].Form.RecordSource = "SELECT .....
то ошибка останавливается на msgbox [фВводЗначений_все].RecordSource
...
Рейтинг: 0 / 0
11.09.2003, 19:17
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262910
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
форма открыта.........
А я что - я болею :) Меня даже сама мысль страшит - искать отличия в четырех абзацах нерусского похожего текста! :) - это вы про что???
...
Рейтинг: 0 / 0
11.09.2003, 19:22
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262911
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Хорошо. А форма такая открыта?
...
Рейтинг: 0 / 0
11.09.2003, 19:22
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262913
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
WHERE ((Not (тЗнач.значТ) Is Null) And ((тСвязкаЗначРаздел.кодРаздел)=" & Forms!фВводЗначений_все!раздел & ")) ORDER BY
...
Рейтинг: 0 / 0
11.09.2003, 19:23
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262921
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Нет " & ...... &" это тоже не помогает.... этот запрос
SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) And ((тСвязкаЗначРаздел.кодРаздел)=Forms!фВводЗначений_все!раздел)) ORDER BY тЗнач.значТ;
нормально работает , когда стоит в "источник данных"
а вот когда пытаюсь улучшить программу и сделать это программно отслеживая Null контролла - всё рушнуло.......
...
Рейтинг: 0 / 0
11.09.2003, 19:35
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262925
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
попробуй
Private Sub раздел _AfterUpdate()

dim sss as string
Dim fld As Variant
fld = Forms!фВводЗначений_все!раздел

If Not IsNull(fld) Then

sss = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) And ((тСвязкаЗначРаздел.кодРаздел)=" & Forms!фВводЗначений_все!раздел & ")) ORDER BY тЗнач.значТ;"

Else:
sss = "SELECT тЗнач.кодЗнач, тЗнач.значТ, тЗнач.значЧ, тЗнач.кодЕдИзм, тЗнач.кодРаздел, тЗнач.кодУровеньОсн, тЗнач.кодУровеньПоиск, тЗнач.проект_категория, тЗнач.производитель, тСвязкаЗначРаздел.кодРаздел FROM тЗнач INNER JOIN тСвязкаЗначРаздел ON тЗнач.кодЗнач=тСвязкаЗначРаздел.кодЗначение WHERE ((Not (тЗнач.значТ) Is Null) ORDER BY тЗнач.значТ;"
End If
debug.print sss

фВводЗначений_все.Form.RecordSource=sss - сделай точку остановки

в окне отладки (ctrl G) скопируй строку - то что вывелось
создай запрос
в режиме sql вставь из буфера
перейди в режим конструктора(если получится -должно получиться)
произведи анализ
сделай выводы
Forms![фВводЗначений_все].SetFocus
Forms![фВводЗначений_все].Requery

End Sub
...
Рейтинг: 0 / 0
11.09.2003, 19:45
| Ответить | Цитировать | Написать  
ВБА-запрос-русские_значения форм
    #32262928
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlad_707
Участник
Хелп, хелп, хелп!!!!!!
правда у меня была похожая беда.........я ставил на поле
AfterUpdate()
Forms![фВводЗначений_все].SetFocus
Forms![фВводЗначений_все].Requery
, хотел обновлять таблицу при переходе на другое значение в другой таблице.....
обновления не было.......
таблица стала обновляться только при нажатии кнопки на этой же таблице или при нажатии кнопки вперёд или назад с тем же кодом на другой таблице..........
Может у меня аксесс глючный...(не дистрибутив) или всё таки руки...???
...
Рейтинг: 0 / 0
11.09.2003, 19:52
| Ответить | Цитировать | Написать  
25 сообщений из 76, страница 1 из 4
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ВБА-запрос-русские_значения форм
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32262850&tid=1679469]:
 0ms
get settings:
 4ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 187ms
total:  327ms
созд. / загр.: 327ms
x
x
Закрыть


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