[Resolvido]Campos de uma tabela em outra!

Bom dia a todos! Gostaria de uma ajuda!

Tenho um form PACIENTES, no qual consta um campo OBSERVAÇÕES. Tenho outro formulário AGENDAMENTO, no qual é feito agendamento de consultas médicas, e gostaria que ao inserir o código ou nome do paciente neste form, caso ele tenha observações preenchidas, visualizar um pequeno form que vou criar chamado OBSERVAÇÕES, com a pergunta: Paciente com observações, deseja visualizar? + 2 botões sim e não.Caso cique em sim abre um form Pop-up com as observações daquele paciente em questão, caso contrário, fechar o form OBSERVAÇÕES e continuar o preenchimento. Lembrando que só deve abrir o form caso contenha observações.

Usaria qual função: Dlookup

Desde já agradeço a ajuda!

Você provavelmente tem um campo em uma tabela com a observação, não?

If Not IsNull(DLookup("Observações", "Tabela", "Código=" & Me!Código)) Then
    If MsgBox("Há observações para esse paciente. Deseja visualizá-las?", vbYesNo + vbQuestion, "Atenção") = vbYes Then
    DoCmd.OpenForm "NomeDoForm"
    Else
    Cancel = True
    Me.PróximoCampo.SetFocus
    End If
End If

Bom dia Críquio! Ficou show de bola... deu tudo certinho! segue o código como ficou, mas há um porém, meu bd está ficando todo personalidado, com minhas telas, etc... e queria que ao invés de abrir uma janela interna do access, com a pergunta, abrisse o meu form, com a pergunta:

If Not IsNull(DLookup("OBSERVACOES_PENDENC", "TAB_PACIENTES", "COD_PRONTUARIO=" & Me!COD_PRONTUARIO)) Then
If MsgBox("Há observações para esse paciente. Deseja visualizá-las?", vbYesNo + vbQuestion, "Atenção") = vbYes Then
DoCmd.OpenForm "OBSERVACOES_PACIENTES"
Else
Cancel = True
Me.COD_MEDICO.SetFocus
End If
End If

Valeu Amigão!!

Onde está a msg box, posso substituir pela abertura do meu form. Exemplo, na linha escrever DoCmd.OpenForm "ATENÇÃO" (Atenção é o nome do formulário), ficaria desta maneira ou estou enganado;

If Not IsNull(DLookup("OBSERVACOES_PENDENC", "TAB_PACIENTES", "COD_PRONTUARIO=" & Me!COD_PRONTUARIO)) Then
If COMO FICARIA ESTA LINHA

DoCmd.OpenForm "OBSERVACOES_PACIENTES"
Else
Cancel = True
Me.COD_MEDICO.SetFocus
End If
End If

Para não usar a mensagem própria do Access, você tem duas opções: ou abre o form diretamente sem perguntar se o deseja fazer ou personaliza um form para abrir no lugar da mensagem, com os botões Sim e Não. O botão Sim fecha o form de pergunta e abre o outro form e o botão Não apenas fecha o form.

Botão Sim:

DoCmd.OpenForm "NomeDoForm"
DoCmd.Close Me.Form

Botão Não:

DoCmd.Close

E no botão que abriria esse form no lugar da mensagem do Access:

If Not IsNull(DLookup("Observações", "Tabela", "Código=" & Me!Código)) Then
DoCmd.OpenForm "NomeDoForm"
Else
Exit Sub
End If

Criquio, Sem mais palavras, (É o cara )!!!!!

Grato por sempre estar disposto a nos ajudar.

Abração...