[Resolvido]Como editar somente registros filtrados nos subform

Olá pessoal
Tenho um Form com alguns controles que servem para filtragem dentro de um SubForm baseado numa tabela.
Consigo filtrar perfeitamente, mas não consigo editar somente os registros filtrados.
Tentei o código abaixo mas ele altera todos os registros da tabela.
Se alguem puder me ajudar agradeço muito.

=========================
CODIGO PARA APLICAR O FILTRO:
Dim j As Boolean, filtro As String
If IsNull(Me.DataInicial) Then j = True
If IsNull(Me.DataFinal) Then j = True
If j = True Then
MsgBox "Informe o período de data antes antes de Executar...", vbInformation, "Aviso"
Me!DataInicial.SetFocus
Exit Sub
End If

FormPesquisaCheSub0.Form.Filter = _
" che_DataEmissao >= #" & Format(Me.DataInicial, "mm/dd/yyyy") & "#" _
& "And che_DataEmissao <= #" & Format(Me.DataFinal + 1, "mm/dd/yyyy") & "#"
FormPesquisaCheSub0.Form.FilterOn = True

=========================
CODIGO PARA EDITAR REGISTROS FILTRADOS:
Dim strSql As String
Dim Banco As DAO.Database
Set Banco = CurrentDb


strSql = "UPDATE Tbl_Cheques SET Tbl_Cheques.Che_Baixado = Yes;"

Banco.Execute strSql
=========================

Faltou a condição "where"=onde na consulta

strSql = "UPDATE Tbl_Cheques SET Tbl_Cheques.Che_Baixado = Yes;"onde "um campo individual pode ser o id do cheque"= forms !seufrm!seuCampo

mais ou menos isto


dica
crie a consulta que voce esta usando no modo estrutura na linha de criterio adicione
por exemplo no campo idCheque = forms !seufrm!seuCampo

depois abra esta consulta em modo SQL para ver a escrita


ate mais

Ola scandinavo, obrigada pela resposta.
Fiz exatamente como vc indicou mas da o seguinte erro:

"Erro em tempo de execuçao 3142
Caracteres encontrados apos o final da instruçao SQL"

O que pode ser?
Segue abaixo link dropox caso vc queira me ajudar melhor
https://www.dropbox.com/s/paan3zspb6boei5/CHEQS.rar?dl=0

Fiz algumas alterações mas não consegui atraves do VBA.


mas esta funcionando

testa ai

Amigo scandinavo, deu certo!! mt obrigada pelas preciosas dicas

Valeu pelo retorno mas ainda estou tentando achar uma solução para o problema em VBA. rsrsrsrsrs



Ate mais

Consegui


Dim strSql As String

DoCmd.SetWarnings False
strSql = "UPDATE Tbl_Cheques SET " _
& "Tbl_Cheques.che_Baixado = True " _
& "WHERE (((Tbl_Cheques.che_Baixado)=False) AND ((Tbl_Cheques.che_DataEmissao) Between [forms]![FormPesquisaCheq0]![DataInicial] And [forms]![FormPesquisaCheq0]![DataFinal]) AND ((Tbl_Cheques.che_Descontado)=False) AND ((Tbl_Cheques.che_Devolvido)=False) AND ((Tbl_Cheques.che_Desativado)=False) AND ((Tbl_Cheques.Marcar)=False))"
Debug.Print "SQL string: " & strSql
DoCmd.RunSQL strSql


DoCmd.SetWarnings True 'Habilita mensagem padrao do Access
Me.FormPesquisaCheSub0.Requery


'codigo retirado do livro MS Access 2007 VBA Bible.pdf Pagina 411

Amigo vc é fera!!, Mt bacana
Qual a diferença entre executar essa operação pela consulta de atualização ou por esse código vba?

Tambem não sei, rsrsrsrsrsrsr

mas dizem que através do VBA é mais rápido


se alguém tiver uma explicação melhor por favor esclareça.

kkkkkkkkkkkk
blza

Amigo, abri um novo tópico: "CONTROLE DE ESTOQUE COM SALDO FINAL"
Será q tem como vc da uma olhada p v se pode me ajudar?
Obrigada

não encontrei o poste.