Olá pessoal boa noite tudo bem ? alguém poderia me ajudar ?
Estou com uma certa dificuldade de concluir um fomulário de pesquisa. Bom criei um formulário, onde em uma
[size=10]caixa de testo, digito o código que procuro e na tabela do sub formulário, este fará a pesquisa procurando o numero digitado.
Abaixo o código que estou usando na caixa de pesquisa mas não está dando certo.
Private Sub Texto1_Change()
Dim C As String
Dim X As String
X = Me.Texto1.Text
C = " where Numero_MVM like '*" & X & "*' or Numero Packlist like '*" & X & "*'"
Me.tab_Expedicao_Vasilhame_subformulário.Form.RecordSource = " select * from tab_Expedicao_Vasilhame " & C
Me.tab_Expedicao_Vasilhame_subformulário.Requery
End Sub
Segue o link do Dropbox.
https://www.dropbox.com/s/11eld8f47ti70a7/TESTE%20DE%20FILTROS.accdb?dl=0
Estou com uma certa dificuldade de concluir um fomulário de pesquisa. Bom criei um formulário, onde em uma
[size=10]caixa de testo, digito o código que procuro e na tabela do sub formulário, este fará a pesquisa procurando o numero digitado.
Abaixo o código que estou usando na caixa de pesquisa mas não está dando certo.
Private Sub Texto1_Change()
Dim C As String
Dim X As String
X = Me.Texto1.Text
C = " where Numero_MVM like '*" & X & "*' or Numero Packlist like '*" & X & "*'"
Me.tab_Expedicao_Vasilhame_subformulário.Form.RecordSource = " select * from tab_Expedicao_Vasilhame " & C
Me.tab_Expedicao_Vasilhame_subformulário.Requery
End Sub
Segue o link do Dropbox.
https://www.dropbox.com/s/11eld8f47ti70a7/TESTE%20DE%20FILTROS.accdb?dl=0