Caixa de listagem via VBA

Moderador: Avelino Sampaio

Rébio
Mensagens: 1
Registrado em: 19 Dez 2018, 10:32

Caixa de listagem via VBA

Mensagempor Rébio » 19 Dez 2018, 10:53

Olá, Avelino,
Bom dia, por gentileza podeira me informar se é possível criar uma pesquisa através do visual basic, vi outro dia esse exemplo e achei interessante (abaixo), pois não existe a necessidade de criar um formulário.

Esse é o comando:

Código:
Private Sub Comando70_Click()
On Error GoTo Err_Comando70_Click
Dim a As String
Dim strsql As String
Dim nlocaliza As Variant
nlocaliza = InputBox("Qual a referência que deseja procurar?", "Procura por Referência")

a = DCount("[REF]", "produtos inserir", "[ref] LIKE '*" & nlocaliza & "*'")

If nlocaliza <> "" Then
If a > 0 Then

strsql = "SELECT * FROM [produtos inserir] WHERE ref LIKE '*" & nlocaliza & "*'"
Me.Form.RecordSource = strsql
Else:
MsgBox "Não encontrei registos.", vbExclamation, "Erro!!!"
Exit Sub
End If
End If

Exit_Comando70_Click:
Exit Sub

Err_Comando70_Click:
MsgBox Err.Description
Resume Exit_Comando70_Click
End Sub


Ele cria uma msgBox onde consigo consultar dados da tabela. Segue anexo do bd.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante