[Resolvido]Critério inserir dado em campo utilizando dados de outra tabela.

No form de cadastro tem uma caixa de combinação que é critério para outro campo.

Se utilizar uma instrução abaixo no evento ao alterar do campo. ficarei preso ao código no visual basic caso queira acrescentar mais cargo
terei alterar também o código.

ex.

Código:

If left(Me.CODIGOCARGO, 4) = "2681" Then
        Me.CARGO = "ARTIFICE DE MANUTENÇÃO"
End If

Tem outra forma de podermos pegar o dados da tabela para alimentar o campo sem que seja necessário alterar o código do campo?

a Tabela Cargo tem o seguinte campos
CODIGOCARGO
CARGO
SITCARGO
NIVELESCOLARIDADE


Está tabela serve de base para o campo CODIGOCARGO da tabela RelacaoGeral.

Olá Renato,

Use a função DLookup.


Dim nCod As Integer

nCod = Forms!NomedoForm!Codigo 'Sendo que Codigo é uma caixa de texto não acoplada onde vc vai inserir códigos aleatórios de sua escolha
SeuCampo = DLookup("Cargo", "SuaTabela","CodigoCargo = " & nCod)

Valeu! good guy

Deu Certinho, quando eu coloco o código do cargo automaticamente aparece o nome do cargo, como eu estava precisando.

Sem necessário alterar o código a cada novo cargo inserido na tabela cargos.

Olá Renato,

O fórum todo agradece,

Se puder passa lá no Facebook e curta minha página para melhor divulgação e compartilhe entre seus amigos..

https://www.facebook.com/EduardoMachado

Não deixe de visitar meu site:

www.goodguyaccessvba.com.br

Baixe aplicativos gratuitos e como forma de contribuição apenas clique em meus anúncios.
Baixe se desejar aplicativos comerciais, alguns são profissionalizantes.
Baixe jogos de entretenimento educacional totalmente gratuitos.
Baixe apostilas para estudo.
Leia e copie dicas de Access VBA minhas e de outros colegas.