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 : 219
    Registrado : 21/05/2015

    [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?

    [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 : 178
    Registrado : 16/02/2011

    [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
    [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 20 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

    [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
    [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 : 4144
    Registrado : 29/06/2012

    [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
    [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 22 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 : 219
    Registrado : 21/05/2015

    [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

    [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 : 4144
    Registrado : 29/06/2012

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

      Data/hora atual: 18/9/2021, 18:25