[Resolvido]Número de Funcionário = Nome

boas,
Gostaria de saber como fazer o seguinte :
Tenho um Campo para colocar o Número do Funcionário gostaria que no campo a seguir aparece-se logo o Nome do mesmo, que esta na Ficha de Funcionário.
Obrigado

Utilize a função DLookup

Após atualizar do seu campo numero do funcionario;

Private Sub SeuCampoNumeroFuncionario_AfterUpdate()
Me.SuaCaixaTexto.Value = DLookup("[NomeFuncionario]", "SuaTabela", "[NumeroFuncionario]=" & Me.SeuCampoNumeroFuncionario)
End Sub

Se tiver duvidas, no VBA escreva DLookup e com o cursor em cima dessa palavra aperte a tecla F1.

Não fui capaz ! Novo Help . . .

Então é só dizer,

1º Os nomes dos campos nas tabelas, a sua formatação e os nomes das tabelas.

2º Os nomes das caixas de texto no seu formulario e o nome do seu formulario.

boas,
Peço imensa desculpa mas não estou a ser capaz, deixo bd para ver o que estou a fazer mal... Agradeço

http://dl.dropbox.com/u/37350411/sistema.mdb

Obrigado

Obs.: Formulario é F_Funcionarios

Por Favor . . . Estou a entrar e stress !

Boa dia Marcos,

Veja se é isso o que precisa.


Nivaldo.

Esse formulario F_Funcionarios já está ligado à tabela dos funcionarios e cadastra funcionarios, logo
o DLookup só funciona se o funcionario existir.

É mesmo nesse formulario que quer o nome a aparecer automaticamente ?????

bem o que eu quero mesmo é : ( não fui explicito )
tenho uma tabela t_sector ( insere-se os sectores )
tenho uma tabela t_funcionarios e por sua vez um formulario, aqui queria escolher o sector ID e este numa outra caixa dar-me o Nome do Sector

Ora bem me parecia que não detalhou desde o inicio o que pretendia....

Aguarde.

reparei no sua anterior questão... peço desculpa! Obrigado

Veja se gosta assim e tente aprender como foi feito;

Abra o formulario F_Funcionarios, e escolha o Sector;

Fantastico . . . Excelente ! Grande JP . . .
Amigo vou tentar entender se tiver duvidas reabro o topico.
Obrigado

Aproveite e faça igual para a Função, ficará com nota 10.

Abraço e bons estudos

boas, JP sim será fantastico, mas, não consegui apanhar tudo o que você fez... Sera pedir muito para você descrever ??? Obrigado

Então ? É o simples...

1º Criei um formulario novo f_Sectores_Filtra, com uma listbox que na origem vai à tabela t_Sector buscar todos os dados.
2º Inseri um botão no formulario f_Funcionarios, que apenas abre o f_Sectores_Filtra.
3º No duplo click da ListBox no f_Sectores_Filtra, envia os dados para as caixas de texto do formulario f_Funcionarios.

'na listbox do f_Sectores_Filtra
Private Sub List9_DblClick(Cancel As Integer)
'envio o registro da 2ª coluna da listbox para o campo SectorDescricao, na listbox as colunas começam pela zero (0)
Forms!f_Funcionarios!SectorDescricao = Me.List9.Column(1)
'envio o registro da 1ª coluna para o campo SectorID, que está oculto no formulario f_Funcionarios
Forms!f_Funcionarios!SectorID = Me.List9.Column(0)
'envio um Recalc ao formulario para atualizar
Forms!f_Funcionarios.Recalc
'fecho o formulario f_Sectores_Filtra
DoCmd.Close
End Sub