formario com seimed

Bom dia,
Amigos tenho um formulário  e nesse formulário tenho dois campos.
campos produto e valor do serviço.
no campo produto tenho vários produtos EX: 1, 2, 1/1, 2/2  ETC...
So que cada produto tem um valor do serviço
EX: 1 =70  2=85  etc...
gostaria que ficasse assim ao escolher no campo produto, um dos produtos selecionado se seria  possível que no campo valor do serviço preenchesse automaticamente o valor do serviço referente ao produto.
já usei esse comando...

=SeImed([PRODUTO]="1";"70";"0")

mas deu erro.
alguém poderia me ajudar?
desde já agradeço.

Olá Ademir,

Bem vindo ao fórum.

Se você já tiver uma tabela de produtos com seu valor de serviço especificado, a função que você tem que usar é o DLookup. Chama-se função de domínio agregado.

'****************************************************************************************
Dim x As Currency
Dim nCod As Integer

nCod=CodigoProduto    'Nome genérico de uma caixa de texto que tem o nome do CÓDIGO do produto em seu formulário

x = DLookup("ValorServico","tblProdutos","CodProduto = " & nCod)
'****************************************************************************************

Coloque o código acima no evento Ao Entrar do campo Valor do Serviço de seu formulário. Não esqueça de alterar o formato deste campo para do tipo Moeda ou Padrão com duas casas decimais.

boa tarde,
caro good guy,
muito obrigado acredito que seja isso mesmo  que procuro, eu já tenho uma tabela com uma coluna com os códigos na mesma tabela  tenho o valor de cada cod.
mas a duvida é  onde exatamente eu coloco esse comando?

Dim x As Currency
Dim nCod As Integer
 esse comando
x = DLookup("ValorServico","tblProdutos","CodProduto = " & nCod)
eu coloquei no evento ao  entrar no campo valor serviço do meu formulário.
grato pela força .

Olá Ademir,

Pode ser neste evento sim. Gostaria de saber se funcionou? Há outras possibilidades de estudo como a do mestre Avelino. Estude todas. Sucesso !!!

Detalhe:
Você tem que colocar todo o código com as variáveis declaradas e a variável que recebe o valor do campo e não só a linha com DLookup.

Meu site:
www.goodguyaccessvba.com.br

boa tarde,
good...
não funcionou.
vou explicar com mais detalhes.
CAMPO PRODUTO, DO MEU FORMULARIO.
CAMPOR VALOR DO SERVIÇO DO MEU FORMULARIO.
tenho uma tabela com os cod de produtos e valor serviço.
gostaria que ao escolher um produto no campo PRODUTO, me traga o VALOR SERVIÇO referente ao produto escolhido.
mas uma vez obrigado.

Olá Ademir,

Me informe os nomes dos campos de sua tabela.

opa
Na tabela de cod esta assim.
TAB_COD_DECODER
CAMPOS
COD TV E VALOR SERVIÇO
meu formulário esta assim

CAMPO PRODUTO = COD TV
CAMPO VALOR SERVIÇO
será que ajudou ?
muito obrigado.

'*********************************************************************************************
Dim x As Currency
Dim nCod As Integer

nCod=Nz([COD TV]) 'Nome genérico de uma caixa de texto que tem o nome do CÓDIGO do produto em seu formulário

x = DLookup("[VALOR SERVIÇO]","TAB_COD_DECODER","[COD TV] = " & nCod)

'*********************************************************************************************


Obs: Evite criar campos não justaposicionados e com sinais gráficos de ortografia.

Ideal:

CODTV
VALORSERVICO
TABCODDECODER

MELHOR:

CodTV
ValorServico
tblCodDecoder

não consegui...
mas quero obrigado mesmo não sei onde estou fazendo errado.

esse comando fica assim mesmo
nCod=Nz([COD TV]) 'Nome genérico de uma caixa de texto que tem o nome do CÓDIGO do produto em seu formulário
eu não entendi o que é um nome genérico de uma caixa de de texto que o nome d0 CODIGO do produto em seu formulário.

Olá Ademir,

Às vezes é um pequeno detalhe. Não desista. Preste atenção, normatize os seus campos conforme te mostrei. Posta aí o seu bd que eu corrigirei o que tiver de ser corrigido e posto de volta. OK?