[Resolvido]Apenas carregar Dados de Formulario continuo após Filtro.

Galera,

Boa Tarde,

Seguinte tenho uma consulta com algumas formulas, e um form sobre essa consulta para verificação dos dados.
Acontece que a consulta é gigante e acaba demorando para abrir inteira no formulario.

Eu gostaria que esse form, que é continuo abrisse sem carregar os dados.
E apenas ao efetuar uma pesquisa me mostrasse os dados da pesquisa.

Conseguiram entender?

O Cod pra aplicar o filtro no form é esse:

Código:

Private Sub aplicarfiltrobtn_Click()
Dim bco As String
Dim CC As String
Dim ag As String
Dim vlr As String
Dim cheque As String
Dim stLinkCriteria As String


If IsNull(Me.bancotxt) Or IsNull(Me.agenciatxt) Then
MsgBox "Banco Ou Agencia sem valores, por favor insira valor para continuar a Busca!", , "ERRO NA BUSCA"
DoCmd.CancelEvent

Else
   
    bco = "'*" & Me.bancotxt & "*'"
    ag = "'*" & Me.agenciatxt & "*'"
    stLinkCriteria = "banco Like " & bco & " And agencia Like " & ag
   
    If Not IsNull(Me.cc6txt) Then
        CC = "'*" & Me.cc6txt & "*'"
        stLinkCriteria = stLinkCriteria & " And CC6 Like " & CC
    End If
   
    If Not IsNull(Me.nchequetxt) Then
        cheque = "'*" & Me.nchequetxt & "*'"
        stLinkCriteria = stLinkCriteria & " And numerocheque Like " & cheque
    End If
   
    If Not IsNull(Me.vlrtxt) Then
        vlr = Me.vlrtxt
        stLinkCriteria = stLinkCriteria & " And valor = " & vlr
    End If

    DoCmd.ApplyFilter , stLinkCriteria
   
End If

End Sub

Up....

Up....
Ninguem ai pra dar uma força?

Avelino,

Muito Bom,

Apliquei a estrutura funcionou direitinho.
O tempo de abertura caiu drasticamente...
Obrigado mesmo.