[Resolvido]Atualizar campos da tabela com critério

Senhores, boa tarde.

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



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.

ARGONZALE boa tarde.

Dá uma olhada no anexo, veja se te atende.

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

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

Bom dia,

luissiscone,

Matou a pau. Era esse o código.

O exemplo do Noobezinho também é show.

Muito Obrigado.

Tópico encerrado.

Noobezinho ficou excelente. Parabéns e Obrigado!

Ótimo, amigos

Boa sorte a todos

Balem