Pergunta : Adicionar dados para alcançar Listbox

Eu estou no acesso 2007 e tenho um formulário com uma caixa de lista. Eu tenho uma pergunta que povoe o listbox inicialmente, mas quero-a adicionar-lhe também valores em VBA. Eu tentei .additem mas não está trabalhando. Mantem-se dizer que o argumento não é opcional. Abaixo está meu code.

lstcount = Me.LstGrants.ListCount
For i = (Me.LstGrants.ListCount + 1) ((Me.LstGrants.ListCount + 1) + ano do
de 4) = ano + grantdesc
de 1
' Me.LstGrants.AddItem com Me.LstGrants
Do
.AddItem
. Lista (i, 0) = grantdesc
. Lista (i, 1) = extremidade With
Next
 do year
class= do

Resposta : Adicionar dados para alcançar Listbox

Talvez isto
1:
2:
3:
4:
5:
6:

Para i = (Me.LstRHFGrants.ListCount + 1) a ((Me.LstRHFGrants.ListCount + 1) + 4)
    ano = ano + 1
    Com Me.LstRHFGrants
      .AddItem (grantdesc & “; ” & ano)
    Extremidade com
Em seguida
Outras soluções  
 
programming4us programming4us