Não exibir as informações mais recentes em seu aplicativo de banco de dados pode ser um problema se os dados apresentados é usado para tomar decisões críticas . Você pode usar um controle de caixa de lista para exibir informações de uma tabela do banco de dados através do uso de uma consulta. A propriedade " Requery " atualiza a consulta usada no controle de caixa de lista para exibir as últimas informações. É uma boa prática para atualizar os dados em um controle de programação em vez de reiniciar o aplicativo para atualizar seus dados. Coisas que você precisa
dados Adamastor
Show Mais instruções
1

Abra o banco de dados Northwind , clique no menu "Criar" e clique em " Form Design" nos "Formulários " painel . Clique na aba " Design" e ​​selecione " Caixa de lista" , no painel " Controles " . Clique no botão " Form" na área " Detail" e arraste o mouse , mantendo o botão do mouse para desenhar um novo controle de caixa de listagem . Clique em " Button" e usar a mesma técnica para desenhar um novo botão no formulário.
2

botão direito do mouse seu novo controle de caixa de lista e clique em " Propriedades". Clique na aba " Format" e digite "5" ao lado de " Contagem de coluna ".
3

Clique na guia "Dados" , e copiar e colar o código SQL listados abaixo ao lado de " Fonte Row " :

Selecione Customers.Company , Clientes [Last Name ] , Clientes [ Nome ], Clientes [E- mail] , Clientes [ Job Título ] FROM Clientes ;
. . . .
4

botão direito do mouse o novo botão no formulário e clique em " Propriedades". Clique na aba " Evento " e escolha " [Procedimento de evento ]" ao lado de " On Click. " Clique nas reticências para criar um novo procedimento " button_click " e abra a janela do Microsoft Visual Basic
5

Copie e cole o código abaixo dentro do procedimento botão para criar duas variáveis: .

dbs as Database Dim Dim strSQL

as String
6

Copie e cole o código abaixo para definir o banco de dados atual como o banco de dados para usar:

Set dbs = CurrentDb
7

Copie e cole o código abaixo para inserir um novo cliente na tabela " clientes " :

strSQL = " INSERT INTO clientes (empresa, [Last Name ], [ nome] , [Endereço de e -mail ], [ Cargo ] ) "

strSQL = strSQL &" VALUES (' Compnay 1', ' Smith ', ' John ', ' johnsmith @ yahoo . com ',' Manager ' ); "

dbs.Execute ( strSQL )
8

Copie e cole a seguinte linha de código para atualizar a consulta no controle de caixa de lista e exibir o novo cliente adicionado :

List0.Requery
9

Volte para a janela do Microsoft Access e clique no ícone "Exibir" . Clique no botão para executar seu código. Desça até a caixa de lista, e você vai ver o novo cliente adicionado .