Adicionar uma simples caixa de pesquisa para um formulário do Microsoft Access

Um passo-a-passo para adicionar uma simples caixa de pesquisa para um formulário do Microsoft Access.

recentemente, desenvolvi um banco de dados no Microsoft Access; uma ferramenta realmente poderosa para pesquisar e consultar dados.

criei um formulário (chamado Project_Metadata que é baseado em uma tabela com o mesmo nome, mas precisava adicionar uma caixa de pesquisa para que eu pudesse identificar projetos específicos em meu banco de dados pelo código do projeto. Os códigos do projeto estão contidos em uma coluna dentro da tabela Project_Metadata chamada project_code.

veja como criei a caixa de pesquisa:

Etapa 1

abra o formulário ao qual deseja adicionar a caixa de pesquisa e selecione “Exibição de Design” no menu por meio da faixa de opções “Design”.

Etapa 2

insira uma caixa de texto na seção de cabeçalho do formulário arrastando-a do painel “Controles”.

captura de tela da faixa de Opções Controles no Microsoft Access
clique no botão” caixa de texto ” para inserir uma caixa de texto na seção Cabeçalho do formulário Microsoft Access.

Etapa 3

renomeie a legenda da caixa de texto para “pesquisar ID do projeto” (ou outro texto significativo).

Etapa 4

clique com o botão direito do mouse na caixa de texto e selecione “Propriedades” para revelar a “folha de propriedades”.

Passo 5

Vá para After Update e selecione “”:

Dentro da Folha de Propriedades para a caixa de pesquisa, clique em “Após a Atualização” e selecione .

Etapa 6

vá para a guia” outro “na” folha de Propriedades “e renomeie a caixa de texto para algo significativo (por exemplo,”search_project_ID”).

altere o nome da caixa de pesquisa para algo significativo. Este nome será referenciado no código Visual Basic posterior.

Etapa 7

volte para a guia “Evento” e clique em ... ao lado After Update. Isso abrirá uma janela do Visual Basic no Access.

clique no símbolo ” … “ao lado de” after Update ” na folha de Propriedades para acessar o editor de código do Visual Basic.

Passo 8

Substitua todo o texto com a seguinte:

Option Compare DatabasePrivate Sub Search_Exp_AfterUpdate()If search_project_ID <> "" Then query = "SELECT * FROM Project_Metadata WHERE project_code='" & search_project_ID & "'" & "" Me.RecordSource = query Me.RefreshElse Me.RecordSource = "SELECT * FROM Project_Metadata" Me.RefreshEnd IfEnd Sub

Você precisará personalizar o código acima para o seu próprio banco de dados. No exemplo acima:

  • search_project_ID é o nome da caixa de texto que renomeamos na Etapa 6.
  • Project_Metadata é o nome da tabela que contém os dados que precisamos pesquisar.
  • project_code é a coluna em nossa tabela que precisamos pesquisar.

os comandos Me representam o formulário que está atualmente em foco e cujo código está sendo executado, e é por isso que é usado aqui.

Etapa 9

verifique se sua caixa de pesquisa funciona em seu formulário. Agora você deve ser capaz de inserir um termo e retornar todos os registros que contêm a string que você digita.

um exemplo de parte de uma seção de cabeçalho em um formulário do Microsoft Access, mostrando a caixa de pesquisa que foi criada (ao lado de outros botões).

Leave a Reply

Deixe uma resposta

O seu endereço de email não será publicado.