powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как выбрать из одного поля со списком другое?
4 сообщений из 4, страница 1 из 1
Как выбрать из одного поля со списком другое?
    #32428754
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня есть два поля со списком поле1 и поле2. По полям организован поиск, который происходит следующим образом:
В поле1 выбираем текущее значение параметра, а в поле2 соответственно отображаются все значения для выбранного текущего параметра.
В общем все нормально работает, только мне нужно, чтобы я в поле2 тоже мог независимо выбирать данные не привязываясь к полю1, т.е. сейчас я могу выбрать значение в поле2, только после того, как выберу значение в поле1, а нужно, чтобы я мог выбирать значения в поле2 в зависимости от выбранного значения в поле1 и не зависимо от поля1.
Код для поля1(на после обновления):
Private Sub recordFind()
Dim rst As Recordset, frm As Form, s As String
On Error GoTo 999
Set frm = Me.форма.Form
Set rst = frm.RecordsetClone
s = "название_ поле1='" & Me.поле1 & "' AND название_ поле2'" & Me. поле2 & "'"
rst.FindFirst s
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
Else
MsgBox "Нет данных!"
End If
Exit Sub
999:
MsgBox "Введите правильно данные?"
End Sub

Код для поля2(на после обновления):
Private Sub поле2_AfterUpdate()
recordFind
End Sub
Код для поля2(на вход):
Private Sub поле2_Enter()
Me! поле2. RowSource = "SELECT название_ поле2 FROM таблица WHERE название_ поле1='" & CStr(Me.поле1) & "';"
End Sub

Я извиняюсь за то, что так много написал, просто сам никак не могу разобраться, помогите пожалуйста!!!
...
Рейтинг: 0 / 0
Как выбрать из одного поля со списком другое?
    #32428764
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код ведь не обладает телепатическими способностями, ему нужно сообщить о желании выбирать так или эдак. Если это произвольно, только от желания юзера, можно сделать чекбокс, и в зависимости от его состояния на входе поля2 менять RowSource.
...
Рейтинг: 0 / 0
Как выбрать из одного поля со списком другое?
    #32428767
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я понимаю, что поле не обладает телепатическими способностями, но не совсем понял как поле обучить телепатическим способностям, можно, пожалуйста, какой-нибудь простой примерчик (я не являюсь спецом в VBA, я не волшебник, я еще только учусь :-)
...
Рейтинг: 0 / 0
Как выбрать из одного поля со списком другое?
    #32428769
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
делаем на форме чекбокс (флажок) chkboxMy, по умолчанию значение - Тrue

Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub поле2_Enter() 
If chkboxMy=true then
Me! поле2. RowSource =  "SELECT название_ поле2 FROM таблица WHERE название_ поле1='" & CStr(Me.поле1) & "';"  
else
Me! поле2. RowSource =  "SELECT название_ поле2 FROM таблица;"  
end if
End Sub 
Флажок поставлен - с условием по полю1
Юзер отключил- без условия
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как выбрать из одного поля со списком другое?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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