MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Update - Formulário contínuo

    avatar
    Betemps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 25/02/2013

    [Resolvido]Update - Formulário contínuo Empty [Resolvido]Update - Formulário contínuo

    Mensagem  Betemps em 6/10/2016, 15:22

    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
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  FabioPaes em 7/10/2016, 02:51

    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...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Betemps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 25/02/2013

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  Betemps em 7/10/2016, 12:22

    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
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  FabioPaes em 7/10/2016, 14:08

    Posta aqui o exemplo para facilitar amigo...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Betemps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 25/02/2013

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  Betemps em 7/10/2016, 14:52

    Segue o exemplo. Não consegui converter para versão anterior...
    Anexos
    [Resolvido]Update - Formulário contínuo AttachmentBD EXEMPLO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (212 Kb) Baixado 24 vez(es)
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  FabioPaes em 7/10/2016, 20:10

    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!!!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Betemps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 25/02/2013

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  Betemps em 7/10/2016, 20:16

    Fera, sem palavras. Funcionou perfeitamente.
    Obrigado.
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  FabioPaes em 7/10/2016, 22:03

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado

    [Resolvido]Update - Formulário contínuo Empty Re: [Resolvido]Update - Formulário contínuo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/6/2019, 22:09