Somar valores da caixas de combinação com condição

A dúvida é:

Somar os valores das caixas de combinação e armazenar em um campo da tabela.

Se o campo setor="CASA" mostre 0 caso contrario some as caixas de combinação1+combinação2+combinação3

If 'setor'.value = "CASA" then
me.'campoquevaireceberovalor'.value = "0"
Else
me.'campoquevaireceberovalor'.value = me.'caixacombinação1'.value + me.'caixacombinação2'.value + me.'caixacombinação3'.value
End If


onde tem ' vc apaga a ' e coloca o nome do campo
onde tem " vc deixa como está

Acho que seria isso amigo.

Teste ai e me diga se deu certo.

Blz, obrigado pela atenção.

Criei o código abaixo porém não retorna nada.

Private Sub NOTA_BeforeUpdate(Cancel As Integer)
If SETOR.Value = "CASA" Then
Me.NOTA.Value = "0"
Else
Me.NOTA.Value = Me.DESVL.Value + Me.ORDVL.Value
End If
End Sub

Leandro.

Seu evento está no "Antes de atualizar" (BeforeUpdate)
Tente usa-lo no "Depois de atualizar" (AfterUpdate)

Se nao resolver envie o o BD que tento te ajudar.

greini, não consegui enviar o anexo, msg: Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb)

Momentaneamente estou abortando o projeto, Obrigado pela atenção,

Leandro

Use o : http://ge.tt/

Basta apenas arrastar o arquivo para lá...e depois copiar e colar o link aqui.

ou entao o dropbox ou onedrive


Abraços

Han, blz então.

segue link:
aparece 2 link

http://ge.tt/3HKaxKR2/v/0?c

http://ge.tt/3HKaxKR2/v/0

Obrigado

envia de novo pq deu erro

This file is not available, because the upload was interrupted.
You will not be able to download the file.
Contact the owner if you need the file.


qndo terminar copia o link da barra de endereços

Ok, segue
http://ge.tt/2jIzXNR2/v/0

Não estava funcionando pq as caixas de combinações não estavam nomeadas.

Nas que vc citou eu renomeei e funcionou.

Além disso coloquei o mesmo evento para a caixa ORDVL e DESVL para que quando vc atualizar esses valores ele atualize a a soma.

Eu nomeei as caixas que nao estavam nomeadas de acordo com a legenda delas, caso queira so alterar.

Segue o arquivo.

http://ge.tt/4JtSdNR2/v/0?c


Qualquer duvida é só falar!

Ok, valeu muito obrigado pela atenção.
Deu certo

Obrigado pelo retorno.


Qqr dúvida é só falar.


Ps: Marque o tópico como resolvido por favor.


Abraços