Вопрос : Добавьте данные для того чтобы достигнуть Listbox

Я нахожусь в доступе 2007 и имеюсь форму с коробкой списка. Я имею вопрос заселяет listbox первоначально, но хочу добавить значения к ему в VBA также. Я имею судимое .additem но он не работает. Он держит сказать что аргумент не опционн. Под мое code.

lstcount = Me.LstGrants.ListCount
For iий = (Me.LstGrants.ListCount + 1) ((Me.LstGrants.ListCount + 1) + год 4)
= год + grantdesc
1
' Me.LstGrants.AddItem с Me.LstGrants
Do
.AddItem
. Список (I, 0) = grantdesc
. Список (I, 1) = конец With
Next
year
class=

Ответ : Добавьте данные для того чтобы достигнуть Listbox

Возможно это

1: 2: 3: 4: 5: 6:

Для I = (Me.LstRHFGrants.ListCount + 1) к ((Me.LstRHFGrants.ListCount + 1) + 4) год = год + 1 С Me.LstRHFGrants .AddItem (grantdesc & «; » & год) Конец с Затем