1) покажи текст запроса qryDatepost
2) покажи полный текст lstSupplier_AfterUpdate

(с выражением лица)

1) строка VarStr в lstSupplier_AfterUpdate не может формироваться верно .

Надо либо переделать цикл, либо вернуть все к первоначальному виду:


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

2) varStr не участвует в формировании текста какого-либо запроса.

Поэтому обновление
lstDate.Requery
lstNomer.Requery

не может дать новых значений контролов по завершению процедуры.

3) ошибка авторзапрашивает параметр для qryDatepost.Supplier
вероятно связана с текстом запроса qryDatePost.
Скорее всего в окне запросов как самостоятельный он не отработает и выдаст
ту же просьбу о значении параметра. Проверьте и исправьте (имена полей) в тексте запроса.


4) выражение GROUP BY tblSupplier.DatePost, tblSupplier.Supplier
в запросе выглядит как ненужное...

PS
<...>
Находясь в некотором смущении, признаю, что в действительности -
я не знаю, как Вам помочь.

автори все заработало

судя по тексту, это Вам просто причудилось...

alef120 Victosha автори все заработало

судя по тексту, это Вам просто причудилось...

что это значит?

1)

вот это

Dim varItem As Variant
Dim varStr As String

varStr = Null
- не может быть выполнено не при каких обстоятельствах.

2) вот здесь

For Each varItem In Me.lstSupplier.ItemsSelected

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


у Вас обязательно будет лишняя запятая в конце - 'трам','пам','пам',

Запрос с такой подстановкой не выполнится.

Так что - код этот не в порядке.
Если что-то и заработало и в порядке - то оно выглядит иначе - не так как Вы написали.