[Resolvido]Cálculo utilizando um campo vazio

Bom dia!
Sou nova no fórum e no access. Fiz uma pesquisa mas não encontrei o que buscava. Por esta razão solicito ajuda dos amigos.

Tenho um formulário onde:
ValorTotal=[Quantidade]*[Comprimento]*[PrecoVenda]

O campo "Comprimento" é uma caixa de seleção com vários valores.

Gostaria de acrescentar uma condição que, se eu não selecionar nada no campo comprimento, ele multiplique por 1.

Isso é possível?
Grata
Rosemar

Bom Dia
Seja Bem vinda ao forum

Tente no Evento ao perder o foco do campo

Private Sub Comprimento_LostFocus()
If IsNull(Me.Comprimento) Then
Me.Comprimento = 1
End If
End Sub


Abraços

Obrigado Celso!
Funcionou direitinho.

Porém, há uma forma de eu ocultar o número 1?
É que no meu formulário podem ficar visíveis todas as demais medidas selecionadas, menos o número 1.

Boas

Tente
Vai deixar nº 1 na cor branca
Se fundo do campo for outra cor então tem que mudar o ForeColor para a mesma cor do fundo

Private Sub Comprimento_LostFocus()
If IsNull(Me.Comprimento) Then
Me.Comprimento = 1
Me.Comprimento.ForeColor = RGB(255, 255, 255)
End If
End Sub

Abraços

Já havia tentado mudar a cor, mas não tem jeito. Continua em preto.
Testei seu código e também não deu certo.

Boas

Mas é para dar certo!!

Tem como postar seu bd para ver oque acontece?

Aguardo

Abraços

Olá

Sendo Caixa de seleção tente no eventto após atualizar

Aguardo

Tentei no evento após atualizar e também não deu certo.
Segue BD
É no FrmVendas
Grata pela ajuda

Olá

Por favor envie no formato 2007, esta dando incompativel

Aguardo

Desculpe minha ignorância, mas não consegui salvar em uma versão anterior.
Minha versão é 2010.

Olá

Abra bd
no botão office
salvar como
Escolha salvar banco de dados no office 2007
salve cópia

Abraços

Celso, não consegui. A opção para salvar em 2007 não aparece. Já tentei de várias formas.
Até aparecem as opções 2000 e 2002, mas ele não deixa salvar.
Obrigadão pela força.
Vou continuar minha busca e se conseguir uma solução posto aqui.
Abraços

Olá

Algum outro amigo pode Ajudar e converta para 2007 ou anterior

Aguardamos

Celso, conseguimos resolver!
Usei o código que você me passou no evento "ao perder foco"

Private Sub Comprimento_LostFocus()
If IsNull(Me.Comprimento) Then
Me.Comprimento = 1
End If
End Sub

Depois acrescentei ao campo "Comprimento" uma formatação condicional que diz que:
Se o valor do campo for igual a 1, a cor será branca.

Enfim funcionou!!!
Obrigada pela sua ajuda e interesse em solucionar meu problema.
Abraço

Olá

Perfeito!!!

O Fórum agradece seu retorno

Precisando....., Estamos por aqui

Abraços e Sucesso