Boa noite Pessoal, e minha primeira vez que participo..
Estou criando um sistema igual uma Biblioteca virtual
Criei um Formulário de cadastro blz
Estou com dificuldade no Formulário que vou consultar
no Formulário FrmPesquisa contem subformulário com o nome do arquivo e o Anexo.
no FrmPesquisa uma caixa de combinação e uma caixa de texto para fazer a pesquisa no SubFormulário
na caixa de texto contem o seguinte codigo:
Mas quando faço a pesquisa escolhendo o filtro e Nome mostra vazio. não sei aonde estou errando...
Se tiver outro jeito mais eficiente na pesquisa que busca junto o anexo eu agradeço qualquer ajuda.
Estou criando um sistema igual uma Biblioteca virtual
Criei um Formulário de cadastro blz
Estou com dificuldade no Formulário que vou consultar
no Formulário FrmPesquisa contem subformulário com o nome do arquivo e o Anexo.
no FrmPesquisa uma caixa de combinação e uma caixa de texto para fazer a pesquisa no SubFormulário
na caixa de texto contem o seguinte codigo:
- Código:
Private Sub CaixaCombinacao_Change()
Dim parteNome As String
Dim tipoFiltro As String
parteNome = CaixaCombinacao.Text
tipoFiltro = ComboCombinacao
If parteNome <> "" Then
Select Case tipoFiltro
Case "Começa com"
Me.FrmSuperbBusca.Form.Filter = "nome Like '" & parteNome & "*'"
Me.FrmSuperbBusca.Form.FilterOn = True
Case "Termina com"
Me.FrmSuperbBusca.Form.Filter = "nome Like '*" & parteNome & "'"
Me.FrmSuperbBusca.Form.FilterOn = True
Case "Contem"
Me.FrmSuperbBusca.Form.Filter = "nome Like '*" & parteNome & "*'"
Me.FrmSuperbBusca.Form.FilterOn = True
Case "Não Contem"
Me.FrmSuperbBusca.Form.Filter = "nome Not Like '*" & parteNome & "*'"
Me.FrmSuperbBusca.Form.FilterOn = True
End Select
Else
Me.FrmSuperbBusca.Form.FilterOn = False
End If
End Sub
Mas quando faço a pesquisa escolhendo o filtro e Nome mostra vazio. não sei aonde estou errando...
Se tiver outro jeito mais eficiente na pesquisa que busca junto o anexo eu agradeço qualquer ajuda.