[Resolvido]Cálculo de campos via if

Prezados boa noite.

Tenho uma dúvida que para os crânios em access será fichinha...

Estou em meu Form comparando dois campos, ValorPedido e TotaldoPedido

A condição conforme descrita abaixo é que caso o campo ValorPedido seja maior ou igual ao TotaldoPedido breque cum msgbox.

If Me.[ValorPedido].Value > [TotaldoPedido] And [ValorPedido].Value = [TotaldoPedido] Then

Consegui fazer isto, porém quando corrijo os campos de modo diferente as condições descritas acima e clico no botão onde está o código a msgbox novamente aponta como se os campos não estivessem corrigidos.

Tenho que realizar algum comando de atualização dos campos antes de rodar novamente o código?

Aguardo retorno.

Muito Obrigado.

Felipe Sagres

Tente:

If Me.[ValorPedido].Value > [TotaldoPedido] And [ValorPedido].Value = [TotaldoPedido] Then
Me.Refresh

Mesmo com o me.refresh o erro continua.

Poste seu bd, assim fica melhor...

No evento após atualizar de cada campo tente:

Me.requery

A instrução está mal feita.

Por outro lado deve estar no evento VBA do currente do seu formulario;


Private Sub Form_Current()
If Nz(Me.[ValorPedido].Value, 0) >= Nz(Me.[TotaldoPedido].Value, 0) Then
MsgBox "teste"
Exit Sub
Else
'não faz nada
End If
End Sub

JPaulo

Primeiramente obrigado pela ajuda e aos demais também.

Mas ao colocar no Curent não deu certo, esta instrução pode ser colocada no evento click?

Aguardo retorno.

Obrigado

Felipe Sagres

Agradeço a colaboração dos crânios em Access, consegui estruturar o if no comando click.

Obrigado

Felipe Sagres

O Fórum agradece o retorno

Bom trabalho.

Então, Resolvido