Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ВБА-запрос-русские_значения форм / 25 сообщений из 76, страница 1 из 4
  1  все
11.09.2003, 18:27
    #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:31
    #32262856
sasha_1
sasha_1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
конечно можно русские.
только если в слове есть буковка "ч", то название надо брать в скобки [ ],
также как с пробелом.
по поводу второго.
имхо: setfocus не надо. requery обязательно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 18:32
    #32262857
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
>Народ в ВБА можно ли писать русские названия форм
можно но не нужно.

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

2) Сделай поиск поиск на форуме по чему-нибудь типа "русские наименования". Узнаешь много интересного..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 18:40
    #32262864
vlad_707
vlad_707
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
со скобочками
[фВводЗначений_все].Form.RecordSource
так же пишет ошибку в этой строке.....-(((
в базе уже много завязано...... русский придётся оставить.....-(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 18:44
    #32262872
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
А попробуй выкинь Form... Или лучше, опиши строку полностью (загляни в фак "как обратиться...")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 18:50
    #32262880
sasha_1
sasha_1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
2 vlad_707
д.б. так
Forms![фВводЗначений_все]!раздел
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 18:52
    #32262885
sasha_1
sasha_1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
блин, торможу :)
все мои наставления касаются SQL, в ВБА скобочки ненадо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 18:57
    #32262888
vlad_707
vlad_707
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
Выкинуть .Form не помогло тоже............
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:01
    #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:02
    #32262891
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
А что в ошибке-то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:04
    #32262894
vlad_707
vlad_707
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
Без скобок пишет- Variable not defined
со скобками пишет- не удаётся найти поле 'l'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:09
    #32262898
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
А
msgbox [фВводЗначений_все].RecordSource
дает ошибку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:09
    #32262899
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
А
msgbox [фВводЗначений_все].RecordSource
дает ошибку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:11
    #32262900
вадя
вадя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
2vlad_707
внимательно посмотри
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:11
    #32262901
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
Совсем дурацкий вопрос: а форма [фВводЗначений_все] в момент возникновения ошибки открыта?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:13
    #32262902
вадя
вадя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
2GEO
ну тебе то уж надо быть внимательным....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:14
    #32262906
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
А я что - я болею :) Меня даже сама мысль страшит - искать отличия в четырех абзацах нерусского похожего текста! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:17
    #32262907
vlad_707
vlad_707
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
не совсем хорошо програмирую
я
msgbox [фВводЗначений_все].RecordSource
вставил перед
[фВводЗначений_все].Form.RecordSource = "SELECT .....
то ошибка останавливается на msgbox [фВводЗначений_все].RecordSource
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:22
    #32262910
vlad_707
vlad_707
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
форма открыта.........
А я что - я болею :) Меня даже сама мысль страшит - искать отличия в четырех абзацах нерусского похожего текста! :) - это вы про что???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:22
    #32262911
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
Хорошо. А форма такая открыта?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:23
    #32262913
вадя
вадя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
WHERE ((Not (тЗнач.значТ) Is Null) And ((тСвязкаЗначРаздел.кодРаздел)=" & Forms!фВводЗначений_все!раздел & ")) ORDER BY
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 19:35
    #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:45
    #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:52
    #32262928
vlad_707
vlad_707
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВБА-запрос-русские_значения форм
Хелп, хелп, хелп!!!!!!
правда у меня была похожая беда.........я ставил на поле
AfterUpdate()
Forms![фВводЗначений_все].SetFocus
Forms![фВводЗначений_все].Requery
, хотел обновлять таблицу при переходе на другое значение в другой таблице.....
обновления не было.......
таблица стала обновляться только при нажатии кнопки на этой же таблице или при нажатии кнопки вперёд или назад с тем же кодом на другой таблице..........
Может у меня аксесс глючный...(не дистрибутив) или всё таки руки...???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ВБА-запрос-русские_значения форм / 25 сообщений из 76, страница 1 из 4
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 484ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1679469]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 170ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 76ms
get tp. blocked users:
 1ms
others: 192ms
total:  484ms
x
x
Закрыть


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