itens de caixa de lista Manipulando em um aplicativo de banco de dados Microsoft Access não é tão complicado um processo como se poderia pensar. No Access, você pode usar o Visual Basic for Applications - ou VBA - para ajudá-lo a automatizar processos como mover itens de uma lista para outra. O método " AddItem " é usado para adicionar novos itens a um controle de caixa de listagem . A propriedade " ListCount " determina o número de linhas em uma caixa de listagem , eo método " RemoveItem " remove um item da lista de valores exibidos em uma caixa de listagem . Instruções
1

Clique na aba " Criar" e clique em " Form Design ". Clique em " Caixa de lista" no painel de controles , e clique no formulário para adicionar um novo controle de caixa de lista. Crie uma segunda caixa de listagem e um botão usando a mesma técnica.
2

botão direito do mouse a primeira caixa de lista, clique em " Propriedades" e clique na guia "Dados" . Selecione " Lista de Valores ", ao lado de Origem da Linha Type. Faça o mesmo para a segunda caixa de lista.
3

botão direito do mouse no formulário, clique em "Propriedades " e selecione " Form" em "Tipo de seleção. " Clique na aba " Evento " e escolha " [Procedimento de evento ]" ao lado de On Load . Clique nas reticências para criar evento de carregamento de forma
4

Copie e cole o seguinte código para adicionar quatro itens para o controle de caixa de lista : .

Me.List1.AddItem ( " o item 1 " )

Me.List1.AddItem ( item" 2 ")

Me.List1.AddItem ( item" 3 ")

Me.List1.AddItem ( item" 4 ")
5

botão direito do mouse no botão de comando , clique em" criar evento " e escolha" Construtor de código "para criar um evento de clique de botão.
6

Copiar e cole o seguinte código para mover todos os itens da primeira caixa de lista para a segunda caixa de lista quando o botão é clicado :

Dim xCntr as Integer

Me.List4.SetFocus

Por xCntr = 0 To Me.List1.ListCount - 1

Me.List4.AddItem ( Me.List1.ItemData ( xCntr ) )

Próxima xCntr

Para xCntr = 0 To Me.List1.ListCount - 1

Me.List1.RemoveItem (0)

Próxima xCntr
7

Volte para o banco de dados Microsoft Access janela, e clique no ícone "Exibir" no painel de Views. Clique no botão de comando para mover os itens da primeira caixa de lista para o outro.