Для открытия формы нужно выбрать в ListBox значение
Хочу открыть несколько записей одновременно, то есть нужно выбрать
несколько значений одновременно
Как это сделать?

Обьясните пожалуйста програмисту-чайнику подоходчивей,
перефразирую вопрос:
У меня есть 3 поля листБокс, выбрав значение в одном (одно или несколько)
в другом у меня появляются значения из запроса, если Мльтиселект=none,
то все хорошо работает(за исключением того,что я немогу выбрать несколько значений одновременно), а когда я начинаю играться с Мультиселект, то второй л-бокс не показывает значения из запроса, даже если я выбрал только одно значение в первом???

Кто нибудь помогите!

где этот ItemSelected ?

Это то,что уменя есть и как это починить?

Private Sub cmdOpen_Click()
On Error GoTo Err_cmdOpen_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmSupplier"
stLinkCriteria = ("Supplier = """ & LboxSupplier.Value & """ and Nomer = """ & lboxNomer.Value & """")
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdOpen_Click:
Exit Sub

Err_cmdOpen_Click:
MsgBox Err.Description
Resume Exit_cmdOpen_Click

End Sub

Private Sub LboxSupplier_AfterUpdate()

lboxDate = Empty
lboxNomer = Empty
lboxDate.Requery
lboxNomer.Requery

End Sub

Private Sub lboxDate_AfterUpdate()

lboxNomer = Empty
lboxNomer.Requery
End Sub

Private Sub LboxSupplier_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmSupplier"
stLinkCriteria = ("Supplier = """ & LboxSupplier.Value & """ ")
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Private Sub lboxDate_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
Dim dat As Date
dat = lboxDate.Value
stDocName = "frmSupplier"
stLinkCriteria = ("DatePost = """ & Format(dat, "dd/mm/YYYY ") & """")
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Private Sub lboxNomer_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmSupplier"
stLinkCriteria = ("Supplier = """ & LboxSupplier.Value & """ and Nomer = """ & lboxNomer.Value & """")
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Но у меня физически не получается выбрать 2 значения одновременно в lboxDate
как это сделать?

кто нибудь может подсказать?

когда малтиселект = тру,то после выбора значения в первом боксе
второй бокс не выдает никаких значений

Я знаю как пробежаться в цикле по записям из таблицы, а мои листБоксы привязаны только к запросам
по ним тоже можно бегать? Если да, то тогда что нужно select from???

Я наверное что-то не так спрашиваю
с запросами и открытием форм проблем нет
У меня есть поставщик, выбрав его имя из Бокс1 в Боксе2 высвечиваются даты поставки, если я выбираю одну дату, то в боксе3 высвечивается номер накладной и через кнопку открывается форма Накладной по этому номеру, а если я хочу открыть две накладные по двум датам, то при включенном мультиселект Бокс3 не перезапрашивается даже если я выбрал только одну дату

Дмитрий БасовскийВ поле типа ListBox имеется такое свойство: Несвязное выделение (MultiSelect). Оно может принимать три значения: "Отсутствует" (обычно выделяется только одно значение в списке), "Простой" (выделение/снятие выделения происходит по клику на конкретное значение), "Со связным выбором" (Выделение происходит с использованием клавиш Ctrl или Shift).

Считывание значений из поля ListBox происходит следующим образом:
1. При выборе в свойстве "Несвязное выделение" значения "Отсутствует":

2. При выборе в свойстве "Несвязное выделение" значения "Простой" или "Со связным выбором":


пишу это на АфтерАпдейт ЛистБокс,но что-то не получается (но никаких ошибок не выдает)

иеще не пойму зачем здесь Print Me

так ничего и не получается

выбрав из первого бокса значение-я
не получается увидеть что либо во втором боксе

For Each varItem In Me.lboxDate.ItemsSelected
Debug.Print Me.lboxDate.Column(Me.lboxDate.BoundColumn - 1, varItem) & ",";
Next varItem

вот это персчитывает мне кол-во записей в боксе,а что с ними делать далше,как увидеть конкретный текст ведь мультиселект возвращает Нул

туго, но начинает доходить
с помощью свойства СЕЛЕКТ я определяю какие строки списка1 = Тру, но список уменя постоянно меняющийся по запросу
в запрос для списка2 мне нужно вставить конкретный текст
как мне его вытащить из списка1 ?

продолжаю беседовать сам с собой

With lboxDate
For Each varItem In .ItemsSelected
strList = strList & .Column(0, varItem)
Next varItem
End With
с помощью этого я вытащил текстовое значение ЛистВокса, теперь мучаюсь как этот strList вставить в запрос ?

спокойной ночи ! Надеюсь завтра кто-нибудь поможет

вот это уже конкретные ответы
всем спасибо , особенно Victoshe
теперь буду пробовать внедрять это в жизнь

опять не получается
написал код на lstSupplier_AfterUpdate()

Dim varItem
Dim varStr

varStr = Null
For Each varItem In Me.lstSupplier.ItemsSelected
varStr = varStr + ","
varStr = varStr & "'" & Replace(lstSupplier.Column(0, varItem), "'", "''") & "'"
Next

lstDate = Empty
lstNomer = Empty
lstDate.Requery
lstNomer.Requery

в lstDate должны появиться даты поставок выбранного поставщика
создал простой запрос по двум полям Supplier и DatePost
в RowSource для DatePost вставил это выражение

select * from qryDatePost where qryDatepost.Supplier in (" & varStr & ")

выходит окно и запрашивает значение для qryDatepost.Supplier
помогите исправить

alef120опять не получается
написал код на lstSupplier_AfterUpdate()

Dim varItem
Dim varStr

varStr = Null
For Each varItem In Me.lstSupplier.ItemsSelected
varStr = varStr + ","
varStr = varStr & "'" & Replace(lstSupplier.Column(0, varItem), "'", "''") & "'"
Next

lstDate = Empty
lstNomer = Empty
lstDate.Requery
lstNomer.Requery

в lstDate должны появиться даты поставок выбранного поставщика
создал простой запрос по двум полям Supplier и DatePost
в RowSource для DatePost вставил это выражение

select * from qryDatePost where qryDatepost.Supplier in (" & varStr & ")

выходит окно и запрашивает значение для qryDatepost.Supplier
помогите исправить
???

помогите кто-нибудь!!!

Kelmeу тебя поле Supplier точно присутствует в qryDatepost?

конечно,но даже когда я вручную ввожу значение в ВОХ, который запрашивает условие для qryDatepost.Supplier

все равно lstDate- пустой

Kelmecкинь значение varStr
",'Topstone'"

сделал как ты сказал

For Each varItem In Me.lstSupplier.ItemsSelected
If Not IsNull(varStr) Then

varStr = varStr + ","
varStr = varStr & "'" & Replace(lstSupplier.Column(0, varItem), "'", "''") & "'"

End If

Next


но у меня проблема не в If Not IsNull
varStr видит правильное значение, я просто не момогу передать его в запрос

Kelmeя это всё к тому, что меня запятая смущает в ",'Topstone'", у тебя проверка идёт не на "'Topstone'", а на ",'Topstone'"

If Not IsNull(varStr) Then varStr = varStr + "," дает тот же результат
но опять же даже если я ввожу запрашиваемый параметр для qryDatepost.Supplier :Topstone, то lstDate никак не реагирует

Kelmeпопробуй ввести 'Topstone' (вместе с ковычками), что будет?

тоже самое никакой реакции
и еще не знаю может так и должно быть, но Вох который запрашивает параметр для qryDatepost.Supplier выскакивает еще до открытия формы ,хотя этот запрос должен перезапрашиваться на lstSupplier_AfterUpdate

кто-нибудь может помочь закрыть уже этот вопрос