[Resolvido]Consulta acrescimo sobre dados de formulario continuo filtrado

Amigos, boa noite;

Tenho um formulario continuo e em alguns campos coloquei a função de filtragem apos clicar duas vezes sobre o valor deste campo. Ele tambem esta filtrando em cascata, e ate ai tudo bem. Mas o que eu quero a partir desse evento, é que ao clicar em um botão, uma consulta acrescimo rode, baseada nos dados filtrados. Criei uma macro pra esse botão que executa esse procedimento, mas ele me retorna todos os registros sem o filtro. Por favor, podem me orientar quanto a isso? Um grande abraço, e desde ja agradeço

Leonardo

Mostre o código que vc utiliza para filtragens.

Aguardamos

Bom dia Avelino,

Estou enviando o codigo com as filtragens que funcionam em quase todos os campos do formulario, e o codigo do botao que deveria executar a consulta acrescimo que citei, sobre os daods filtrados.

Código:


Option Compare Database
Option Explicit

Private Sub Bairro_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Cidade_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Comando91_Click()
Dim MyDB As Database
Dim MyRS As Recordset
Set MyDB = Currentdb
Dim TheCelular As String
Dim strsql
Set MyRS = Me.RecordsetClone
DoCmd.OpenQuery "AtualizaloteSMS"


TheCelular = ""

Do Until MyRS.EOF
    If TheCelular = "" Then
        TheCelular = MyRS![TelefoneCelular]
    Else
        TheCelular = TheCelular & "; " & MyRS![TelefoneCelular]
    End If
    MyRS.MoveNext
Loop


End Sub

Private Sub Email_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub
Private Sub BtEnviar_Click()

End Sub

Private Sub EstadoCivil_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub


Private Sub Filhos_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Form_Load()
'Call fncMontaEventos(Me)
'Call fncPermissões(Me)
 End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

Private Sub Genero_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Indicacao_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub


Private Sub Netos_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto63_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto65_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto68_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto70_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto71_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto72_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto73_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto80_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub

Private Sub Texto81_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub


Private Sub Texto83_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdFilterBySelection
End Sub


Agradeço pela atenção.Tenham um otimo domingo
Leonardo

Onde no codigo eu poderia encaixar isso Avelino? Desculpe, mas eu nao sou muito conhecedor de SQL, pode me ajudar? To te mandando o codigo SQL da consulta pra vc analisar, por gentileza

Código:


INSERT INTO loteSMS ( Código, Nome, TelefoneCelular, Enviar )
SELECT ConsultaEleitorado2.Código, ConsultaEleitorado2.Nome, ConsultaEleitorado2.TelefoneCelular, ConsultaEleitorado2.Enviar
FROM ConsultaEleitorado2;


Obrigado

P.S.: coloquei a instruçao me.filter, como vc descreveu e nao funciounou

Avelino;

Consegui amigo, me esqueci de colocar a instrução WHERE no final da instrução...ficou perfeito. Voce é o cara.

Um abraço

Leonardo