Pessoal, eu criei um botão que deverá executar um filtro no subformulário com base em um valor selecionado na combobox. Como faço isso?
Eu preciso que:
1) O valor selecionado na combobox (por exemplo "Augusto") seja usado como base de filtro
2) que esse valor seja filtrado no campo Inquilino no subformulário
3) que o subformulario exiba todos os registros desse Inquilino "Augusto".
Estou usando o código abaixo, mas o filtro não exibe nenhum dado no subformulário.
Dim filtro As String
If Len(Me.txtNome.Value & "") = 0 Then 'Se não há nada digitado, remove o filtro
Me.FiltroParcela.Form.Filter = ""
Me.FiltroParcela.Form.FilterOn = False
Exit Sub
End If
filtro = "[Inquilino] like '*" & Me.txtNome.Value & "*'"
Me.FiltroParcela.Form.Filter = filtro
Me.FiltroParcela.Form.FilterOn = True
Me.FiltroParcela.Visible = True
Eu tambem tentei usar na As String filtro o código abaixo, mas quando executo abre uma caixa pedindo para informar o Me.txtNome.Valor. Eu quero que ele pegue esse valor na combobox.
Dim filtro As String
If Len(Me.txtNome.Value & "") = 0 Then 'Se não há nada digitado, remove o filtro
Me.FiltroParcela.Form.Filter = ""
Me.FiltroParcela.Form.FilterOn = False
Exit Sub
End If
filtro = "[Inquilino] like Me.txtNome.Value "
Me.FiltroParcela.Form.Filter = filtro
Me.FiltroParcela.Form.FilterOn = True
Me.FiltroParcela.Visible = True
Eu preciso que:
1) O valor selecionado na combobox (por exemplo "Augusto") seja usado como base de filtro
2) que esse valor seja filtrado no campo Inquilino no subformulário
3) que o subformulario exiba todos os registros desse Inquilino "Augusto".
Estou usando o código abaixo, mas o filtro não exibe nenhum dado no subformulário.
Dim filtro As String
If Len(Me.txtNome.Value & "") = 0 Then 'Se não há nada digitado, remove o filtro
Me.FiltroParcela.Form.Filter = ""
Me.FiltroParcela.Form.FilterOn = False
Exit Sub
End If
filtro = "[Inquilino] like '*" & Me.txtNome.Value & "*'"
Me.FiltroParcela.Form.Filter = filtro
Me.FiltroParcela.Form.FilterOn = True
Me.FiltroParcela.Visible = True
Eu tambem tentei usar na As String filtro o código abaixo, mas quando executo abre uma caixa pedindo para informar o Me.txtNome.Valor. Eu quero que ele pegue esse valor na combobox.
Dim filtro As String
If Len(Me.txtNome.Value & "") = 0 Then 'Se não há nada digitado, remove o filtro
Me.FiltroParcela.Form.Filter = ""
Me.FiltroParcela.Form.FilterOn = False
Exit Sub
End If
filtro = "[Inquilino] like Me.txtNome.Value "
Me.FiltroParcela.Form.Filter = filtro
Me.FiltroParcela.Form.FilterOn = True
Me.FiltroParcela.Visible = True