Olá senhores, venho recorrer uma ajuda de filtro em um subformulario carregado pela função ADO
Bem é o seguinte, tenho um formulário desacoplado chamado "CAD_Cliente" e nele um subformulário que também é desacoplado chamado "DetCliente"
Meu subformulário em carrego através da função:
No meu formulário "CAD_Cliente", tenho um campo chamado "TxtBuscar", gostaria de ao digitar nesse campo, fosse filtrando meu subformulário pelo nome do cliente que é o campo "Cliente_Nome" que esta no subformulário
Bom pessoal seria isso, desde já agradeço.
* Por ser ADODB, não estou conseguindo fazer funcionar esse filtro
Bem é o seguinte, tenho um formulário desacoplado chamado "CAD_Cliente" e nele um subformulário que também é desacoplado chamado "DetCliente"
Meu subformulário em carrego através da função:
- Código:
Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.AccessConnection
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM TblCliente"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing
End Sub
No meu formulário "CAD_Cliente", tenho um campo chamado "TxtBuscar", gostaria de ao digitar nesse campo, fosse filtrando meu subformulário pelo nome do cliente que é o campo "Cliente_Nome" que esta no subformulário
Bom pessoal seria isso, desde já agradeço.
* Por ser ADODB, não estou conseguindo fazer funcionar esse filtro