MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    [Resolvido]Atualizar campos da tabela com critério

    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty [Resolvido]Atualizar campos da tabela com critério

    Mensagem  ARGONZALE 14/5/2021, 17:08

    Senhores, boa tarde.

    Poderiam me ajudar com um código que atualiza um campo da tabela de acordo com o critério?

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Img11

    Preciso que o campo Motoboy receba os dados do campo "Escolha o motoboy" se a checkbox estiver marcada como sim e se estiver em branco não receba nada.

    Este critério deve ser aplicado somente no dia de hoje (para que não mude na tabela o que já foi lançado.

    Se alguém souber como fazer isso me dê uma ajudinha por favor.

    Desde já agradeço.


    .................................................................................
    Att.

    Alexandre Gonzales

    nanocardoso gosta desta mensagem

    luissiscone
    luissiscone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 184
    Registrado : 16/02/2011

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty Re: [Resolvido]Atualizar campos da tabela com critério

    Mensagem  luissiscone 14/5/2021, 19:12

    ARGONZALE boa tarde.

    Dá uma olhada no anexo, veja se te atende.
    Anexos
    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 24 vez(es)

    nanocardoso gosta desta mensagem

    avatar
    nanocardoso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 04/01/2017

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty Aqui não funcionou

    Mensagem  nanocardoso 15/5/2021, 19:46

    Olá luissiscone,

    Estou com um problema parecido com o do amigo ARGONZALE. Baixei seu exemplo e utilizei o código mas ele não atualiza os registros marcados. Olha como ficou:



    Private Sub Comando3_Click()
    On Error GoTo m
            If IsNull(Me.percentual) Or Me.percentual.Value = "" Then
            MsgBox "Percentual é obrigatório.", vbOKOnly + vbInformation, "Atenção !"
            Me.percentual.SetFocus
         Exit Sub
         End If
         
         Me.SubFormAtualizaPlano1.Requery
         
       
        If MsgBox("O Percentual está correto?", vbInformation + vbYesNo, "Atenção !") = vbYes Then
        Dim rst1 As Recordset  
        Set rst1 = Me.SubFormAtualizaPlano1.Form.Recordset
        rst1.MoveFirst
        Do While Not rst1.EOF  
        With rst1
     
       
         '------------------------------------------------------------------------
         If Forms!FormulárioAtualizaPlano1!SubFormAtualizaPlano1.Form![seleciona] = -1 Then
               Forms!FormulárioAtualizaPlano1!SubFormAtualizaPlano1.Form![ValorDoVidroRev] = Forms!FormulárioAtualizaPlano1!SubFormAtualizaPlano1.Form![ValorDoVidroRev] + Forms!FormulárioAtualizaPlano1!SubFormAtualizaPlano1.Form![ValorDoVidroRev] * Me.percentual / 100
         End If
         '------------------------------------------------------------------------
         
       
       .MoveNext                                  
       End With                                      
       Loop                                          
       rst1.MoveFirst                                
       Set rst1 = Nothing                        
                                                           
       Me.SubFormAtualizaPlano1.Requery
       End If    
                                         
       

    m:
    End Sub



    Se comentar esses blocos que estão em azul aí funciona mas só atualiza o último registro marcado no checkbox.

    Saberia dizer no que estou errando?

    Obrigado desde já!

    Segue o arquivo anexo
    Anexos
    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério AttachmentBD1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 9 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty Re: [Resolvido]Atualizar campos da tabela com critério

    Mensagem  Noobezinho 16/5/2021, 00:16

    Adriano

    Eis teu exemplo de projeto.

    Mudei o nome da caixa de opção seleciona para Op_seleciona.

    Creio que servirá para os dois.

    { }'s

    Balem
    Anexos
    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério AttachmentBDNoobezinho.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 29 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    nanocardoso gosta desta mensagem

    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty Re: [Resolvido]Atualizar campos da tabela com critério

    Mensagem  ARGONZALE 17/5/2021, 13:02

    Bom dia,

    luissiscone,

    Matou a pau. Era esse o código.

    O exemplo do Noobezinho também é show.

    Muito Obrigado.

    Tópico encerrado.


    .................................................................................
    Att.

    Alexandre Gonzales

    nanocardoso gosta desta mensagem

    avatar
    nanocardoso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 04/01/2017

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty Re: [Resolvido]Atualizar campos da tabela com critério

    Mensagem  nanocardoso 18/5/2021, 00:38

    Noobezinho ficou excelente. Parabéns e Obrigado!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty Re: [Resolvido]Atualizar campos da tabela com critério

    Mensagem  Noobezinho 19/5/2021, 11:43

    Ótimo, amigos

    Boa sorte a todos

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    atualizar automaticamente - [Resolvido]Atualizar campos da tabela com critério Empty Re: [Resolvido]Atualizar campos da tabela com critério

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:17