[Resolvido]Update - Formulário contínuo

Tenho o formulário contínuo “frmIndividuos” baseado na tabela “tblIndividuos” com um campo “Selecionado” de valores Sim/Não.
No formulário tenho alguns tipos de filtros e gostaria de realizar um UPDATE (Selecionado = -1) somente aos registros filtrados no formulário.

Exemplo de aplicação:

If Me.Recordset.RecordCount > 0 Then
' Fazer um UPDATE em todos os registros filtrados no formulário contínuo, deixando o campo "Selecionado" = -1
Else
MsgBox "Não há indivíduos listados.", vbInformation, "Aviso"
End If

Amigo, o UPDATE ocorre nos campos da tabela ta....

A principio devera construir o Update Tabelaxxx set CAMPO=-1 WHERE .... Construa aqui o mesmo filtro construido no formulario... assim nao atualizara registros que nao devem ser atualizados...

O problema é que o filtro do formulário é baseado em Case com a seguinte função:

Dim parteNome As String
   Dim tipoFiltro As String
   
   parteNome = Me.Texto204
   tipoFiltro = Me.Texto290
   
   If parteNome <> "" Then
       Select Case tipoFiltro
           Case "Código"
               Me.Filter = "Código Like '*' & '" + parteNome + "' & '*'"
               Me.Form.FilterOn = True
           Case "Nome"
               Me.Filter = "Nome Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.Form.FilterOn = True
           Case "Alcunha"
               Me.Filter = "Alcunha Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.FilterOn = True
           Case "RG"
               Me.Filter = "RG Like '*' & '" + parteNome + "' & '*'"
               Me.FilterOn = True
           Case "Código Detento"
               Me.Filter = "[Código Detento] Like '*' & '" + parteNome + "' & '*'"
               Me.FilterOn = True
           Case "Situação"
               Me.Filter = "Situação Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.FilterOn = True
           Case "Documentos"
               Me.Filter = "[Docs Exp/Rec] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.FilterOn = True
           Case "Logradouro"
               Me.Filter = "[Endereço] & [Endereço 2] & [Endereço 3] & [Endereço 4] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.FilterOn = True
           Case "Bairro"
               Me.Filter = "[Bairro] & [Bairro 2] & [Bairro 3] & [Bairro 4] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.FilterOn = True
           Case "Cidade"
               Me.Filter = "[Cidade] & [Cidade 2] & [Cidade 3] & [Cidade 4] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.FilterOn = True
           Case "Emendas"
               Me.Filter = "Emendas Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.Form.FilterOn = True
           Case "Veículos"
               Me.Filter = "[Veículos utilizados] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.Form.FilterOn = True
           Case "Carac. Peculiares"
               Me.Filter = "[Características peculiares] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.Form.FilterOn = True
           Case "Indivíduos Selecionados"
               Me.Filter = "(Selecionado = -1) and ([Código] & [Nome] & [Alcunha] & [RG] & [DN] & [Código Detento] & [Mãe] & [Emendas] & [Veículos utilizados] & [Situação] & [Casa Prisional] & [Regime da Pena] & [Docs Exp/Rec] & [Endereço] & [Endereço 2] & [Endereço 3] & [Endereço 4] & [Bairro] & [Bairro 2] & [Bairro 3] & [Bairro 4] & [Cidade] & [Cidade 2] & [Cidade 3] & [Cidade 4] & [Características peculiares] Like '*' & '" + TodosAcentos(parteNome) + "' & '*')"
               Me.Form.FilterOn = True
           Case "Foragidos e Procurados"
               Me.Filter = "([Situação] = 'PROCURADO' Or [Situação] = 'FORAGIDO') and ([Código] & [Nome] & [Alcunha] & [RG] & [DN] & [Código Detento] & [Mãe] & [Emendas] & [Veículos utilizados] & [Casa Prisional] & [Regime da Pena] & [Docs Exp/Rec] & [Endereço] & [Endereço 2] & [Endereço 3] & [Endereço 4] & [Bairro] & [Bairro 2] & [Bairro 3] & [Bairro 4] & [Cidade] & [Cidade 2] & [Cidade 3] & [Cidade 4] & [Características peculiares] Like '*' & '" + TodosAcentos(parteNome) + "' & '*')"
               Me.Form.FilterOn = True
           Case "Indivíduos Recolhidos"
               Me.Filter = "([Situação] = 'RECOLHIDO') and ([Código] & [Nome] & [Alcunha] & [RG] & [DN] & [Código Detento] & [Mãe] & [Emendas] & [Veículos utilizados] & [Casa Prisional] & [Regime da Pena] & [Docs Exp/Rec] & [Endereço] & [Endereço 2] & [Endereço 3] & [Endereço 4] & [Bairro] & [Bairro 2] & [Bairro 3] & [Bairro 4] & [Cidade] & [Cidade 2] & [Cidade 3] & [Cidade 4] & [Características peculiares] Like '*' & '" + TodosAcentos(parteNome) + "' & '*')"
               Me.Form.FilterOn = True
           Case "Atualização"
               Me.Filter = "[Atualizado em] Like '*' & '" + parteNome + "' & '*'"
               Me.Form.FilterOn = True
           Case "Todos"
               Me.Filter = "[Código] & [Nome] & [Alcunha] & [RG] & [DN] & [Código Detento] & [Mãe] & [Emendas] & [Veículos utilizados] & [Situação] & [Casa Prisional] & [Regime da Pena] & [Docs Exp/Rec] & [Endereço] & [Endereço 2] & [Endereço 3] & [Endereço 4] & [Bairro] & [Bairro 2] & [Bairro 3] & [Bairro 4] & [Cidade] & [Cidade 2] & [Cidade 3] & [Cidade 4] & [Características peculiares] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.Form.FilterOn = True
           Case "Escolha um critério"
               Me.Filter = "[Código] & [Nome] & [Alcunha] & [RG] & [DN] & [Código Detento] & [Mãe] & [Emendas] & [Veículos utilizados] & [Situação] & [Casa Prisional] & [Regime da Pena] & [Docs Exp/Rec] & [Endereço] & [Endereço 2] & [Endereço 3] & [Endereço 4] & [Bairro] & [Bairro 2] & [Bairro 3] & [Bairro 4] & [Cidade] & [Cidade 2] & [Cidade 3] & [Cidade 4] & [Características peculiares] Like '*' & '" + TodosAcentos(parteNome) + "' & '*'"
               Me.Form.FilterOn = True
       End Select
   Else
       Me.FilterOn = False
   End If

Posta aqui o exemplo para facilitar amigo...

Segue o exemplo. Não consegui converter para versão anterior...

Amigo, faça assim:

No Botão coloque isso:


Dim rs As Recordset
Set rs = Me.Recordset
rs.MoveFirst
Do While Not rs.EOF
With rs
CurrentDb.Execute "UPDATE [Dados Pessoais] SET Selecionado = -1 WHERE [Código]= " & rs![Código] & ""
rs.MoveNext
Me.Recalc
End With
Loop
Set rs = Nothing




Deverá Funcionar amigo!!!

Fera, sem palavras. Funcionou perfeitamente.
Obrigado.

Grato pelo retorno! Até a próxima se Deus quiser!