[Resolvido]Dlookup com 3 campos!

Boa Tarde às Feras>

Venho com uma dúvida que posso incluir no meu BD, e agregar em outros no futuro.

Vamos Lá:

Tenho um FormAgendamento, com o campo COMB_CONVENIO, que escolho o tipo de convênio do paciente em atendimento e gostaria que após atualizar este campo, me dispare um código Dlookup´para procurar na TAB_PACIENTES, no campo COD_CONVENIO1, COD_CONVENIO2 E COD_CONVENIO3 e se caso o escolhido no FormAgendamento não coincidir com um dos três, emita um aviso. Tipo: Não é possivel o agendamento com este convênio para este paciente!(Exemplo). Obs: Tenho o código Dlookup, para procura em 1 campo e já utilizo, mas não consegui montar para mais campos na mesma sequência.

desde já agradeço à todos.



Desde já agradeço

Acrescente Or seguido do novo DLookup

If DLookup... Or DLookup... Or DLookup... Then
...

Criquão, valeu pelo pronto atendimento...

estou sem o note no momento, onde faço meus trabalhos pessoais, assim que puder respondo ao tópico quanto ao resultado...

Valeu!!!

Críquio, não está funfando como dizem os mestres aqui no fórum; segue como estou utilizando:

If DLookup("COD_CONVENIO1", "TAB_PACIENTES", "COD_CONVENIO1<>" & Me!COMB_CONVENIO) Or DLookup("COD_CONVENIO2", "TAB_PACIENTES", "COD_CONVENIO2<>" & Me!COMB_CONVENIO) Then
DoCmd.OpenForm "ATENCAO"
End If
Isto tudo na mesma linha. o que pode estar errado. Neste exemplo coloquei somente 2 critério e se der cert acrescento mais um.

desde já agradeço

Tente assim:

If IsNull(DLookup("COD_CONVENIO1", "TAB_PACIENTES", "COD_CONVENIO1=" & Me!COMB_CONVENIO)) Or IsNull(DLookup("COD_CONVENIO2", "TAB_PACIENTES", "COD_CONVENIO2=" & Me!COMB_CONVENIO)) Then
DoCmd.OpenForm "ATENCAO"
End If

Críquio, não está funcionando não amigo ( me retorna : Erro em tempo de execução 2001'). tem uma coisa que não mencionei que pode de repente esclarecer alguma coisa:

Essa COMB_CONVENIO no formAgendamento, origina-se de uma tabela chamada TAB_CONVENIO E na tabela chamada TAB_PACIENTES, no qual estamos vinculando o Dlookup, é uma chave estrangeira relacionada com a TAB_CONVENIO. Pode ser isso. Qualquer dúvida, se puder olhe o arquivo que lhe enviei por MP esses dias.

Desde já agradeço

Mais uma coisa! Queria que retornasse a mensagem se for diferente, caso seja igual a um dos campos pesquisados, segue normal. próximo campo...

Creio que não tenho mais o arquivo aqui. Poderia colocar um exemplo de registro com os campos e valores para a gente dar uma olhada? Apenas digitar aqui mesmo algo assim:

CÓDIGO | NOME    | DOCUMENTO | 
0001   | Artur   | 216542    |
0002   | Jessica | 21545425  |

Criquio estou mandando o arquivo para o e-mail: ccsregistros@gmail.com, vou acrescentar uns valores para tu ver... Coloquei o Dlookup no evento ao entrar do próximo campo.

enviado! shift habilitada.

Fico no aguardo... mais uma vez obrigado

Favor incluir no form agendamento uma nova consulta e escolher o tipo convênio e escolher o 2º convênio para o paciente 2.

Vou dar uma olhada daqui a alguns minutos ou mais tarde um pouco.

Tente colocar assim:

If IsNull(DLookup("COD_CONVENIO1", "TAB_PACIENTES", "COD_CONVENIO1='" & Me!COMB_CONVENIO & "'")) And IsNull(DLookup("COD_CONVENIO2", "TAB_PACIENTES", "COD_CONVENIO2='" & Me!COMB_CONVENIO & "'")) Then

OBS. 1: Quando o campo a ser comparado é do tipo número, usamos apenas aspas duplas: ..."COD_CONVENIO1=" & Me!COMB_CONVENIO))
Quando o campo a ser comparado é do tipo texto, usamos aspas simples e duplas: ..."COD_CONVENIO1='" & Me!COMB_CONVENIO & "'"))

OBS.2: Para que seja avaliado todas as condições, usamos o operador And. O operador Or é usado quando queremos um resultado caso apenas uma das condições seja verdadeira.

Criquio, Mais uma vez Obrigado! Mas não consegui desta maneira. e resolvi de uma outra forma. Não sei se é a mais correta mas funcionou no perfeito. Foi assim:

Criei duas caixa de texto no FormAgendamento que me gerou dois nomes Texto759 e Texto763, No evento atual do FormAgendamento, escrevi o código:

Me.texto759 = Dlookup("COD_CONVENIO1", "TAB_PACIENTES", "COD_PRONTUARIO=" & Me!COD_PRONTUARIO), fiz o mesmo para o texto 763. Ok! Me trouxe o convenio daquele paciente para o formAgendamento. (Ficará oculto). Na COMB_CONVENIO, qué é onde escolho o plano de saúde que o paciente vai usar escrevi no evento após atualizar deste, o seguinte:
If Me.COMB_CONVENIO <> Me.texto759 And Me.COMB_CONVENIO <> Me.Texto763 Then
DoCmd.Openform " ATENCAO"
End If

Aleluia, Aleluia... Foi. está no perfeito.

Obs: só tenho que mudar o evento no atual, pois o mesmo não atualiza quando mudo de paciente, mas isso é tranquilo (fácil).

Críquio, valeu pela sua dedicação e prontidão em ajuda ao próximo.

Tópico resolvido...

Depois desta e muitas outras já considero meu perfil avançado! rsrsrsrs...