[Resolvido]DLookup (Cx Texto)!

Amigos, Boa Tarde!

Acredito que é simples, mas não estou conseguindo fazer, por isso peço ajudas de vocês>

Tenho o FORM_AGENDAMENTO
Criei dentro deste form uma caixa de texto (Ex: TXT001)
Queria que esta caixa de texto retornasse com a função DLookup, a especialidade médica no ato do preenchimento do COD_MEDICO no FORM AGENDAMENTO.

Obs: estas informações provém de outras tabelas, exemplo:

COD_MEDICO (TAB_MEDICOS)
ESPEC_MEDICA (TAB_ESPECMEDICAS)E (TAB_MEDICOS - Chave Estrangeira)

Estou a escrever este código mas, não acontece nada:

No evento após atualizar do COD_MEDICO

Me.TXT001 = DLookup("COD_ESPECMEDICA","TAB_MEDICOS", "COD_MEDICO=" & Me!COD_MEDICO)
End Sub

Onde estou errando?

Desde já agradeço

Tente assim:

Me.TXT001 = DLookup("COD_ESPECMEDICA","TAB_MEDICOS", "COD_MEDICO=" & Me!COD_MEDICO & "")

Amigão, funcionou em parte.
O que acontece!

O valor é retornado para TXT cre criei, mas não é feito referência a especialidade do médico correspondente, exemplo:

Marquei atendimento para uma fonoaudiologa, me retorna especialidade: fonoaudiologia e este valor fica fixado em todos os agendamentos já realizados.
Se no prox. eu marcar pediatria, acontece o mesmo. fica fixado todos e inclusive o que mencionei acima como esta especialidade.

Para isso funcionar bem, o ideal seria a especialidade estar na mesma tabela do médico, o que aliás faz todo o sentido. Por outro lado deveria existir uma tabela só especialidades. Tudo ficaria mais simples e melhor organizado.

Grande Vieira. Olha eu de novo!

à especialidade está na tabela médicos ( como chave estrangeira ) e existe uma tabela Especialidades separada.

O que eu fiz: Tenho a cadastro de diversas especialidades na TAB_ESPECMEDICAS, e na tabela médicos ( TAB_MEDICOS ), tem um combobox relacionado com a tabela especialidades.

O DLookup que quero fazer que eu não sei de qual Puxar! Pode me dar esta força?

Tens a cópia do meu BD que lhe enviei anteriormente, pode dar uma olha

Desde já agradeço.

Obs: Este projeto que julgava simples está ficando super complexo e mais completo do que eu esperava!

Abração .:

Amigão, boa tarde

Não fico com a cópia das BD, como deve imaginar. Após problema solucionado, baixa à reciclagem. Pode colocar aqui ou enviar para o meu mail.

Já posto para teu e-mail já. Grato

Vieira enviei para teu e-mail. Ao Charles agradeço de imediato pela força.

Estive vendo em alguns tutoriais que tenho e algum deles diz que para pesquisa em DLookup, usamos aspas simples em alguma parte do código. Isto procede?

Já tentei e não consegui;;

Valeu

Não recebi nada amigão.

Então é assim

aqui vai o exemplo, mas para perceber o que fiz

http://dl.dropbox.com/u/8157744/SisDoctor%20-%20C%C3%B3pia%20%282%29.rar


1- Deletar a tabela especialidades médicas e criar uma nova sem essa coisa ruim da chave primária assa. Só as especialidades.

2- Criar o campo especialidades médicas na tabela médico e escolher a opção "Assistente de Pesquisa" e copiar as especialidades médicas. Criar um campo especialidades médicas na tabela agendamento

3- Criar com o assistente uma comboBox no form agendamento com o nomes dos médicos a partir da tabela médicos e colocar o campo especialidades médicas. Quando finalizada a operação a combo aparece como independente. Ir à origem do controle e definir como CodMédico, ou seja, a origem da combo passa a ser esse.

Ir à origem da linha da combo, clicar e aparece a consulta. Acrescentar o campo Especialidades Médicas. Fechar a consulta e guardar.

4- Clicar no evento afterupdate da combo e digitar:
Me.ESPECIAL_MEDICAS.Value = Me.Nome da Combo.Column(2)

Vou fazer e respondo!

Já está feito no exemplo. Só discursei para você perceber o que fiz.

Grande, golpe de mestre!

Fico muito agradecido

Tópico resolvido e até o próximo!!

Obrigado pelo retorno e bom carnaval (rsrsrs).