[Resolvido]Emitir uma mensagem quando encontrar o registro na Tabela

Bom dia

Pessoal preciso muito da ajuda de Vocês , tenho um formulário que o usuário faz a pesquisa do Id . depois ele cadastra em outra tabela..

Porém eu preciso que quando o id estiver na tabela Cadastro com a data de hoje , emitir uma mensagem ""Esse id ja se encontra-se na base com a data de Hoje""

Private Sub Comando13_Click()

Dim SQL As String
SQL = ""

'O codigo abaixo faz as validações antes que o Operador insere as informações na Tabela cadastro
' _______________________________________________________________________________________________________________
Me.Observação.SetFocus
If Me.Observação.Text = "" Then
   MsgBox ("Incluir Observação!")
   ElseIf IsNull(Me.Técnico.Value) = True Then
   MsgBox ("Incluir nome do Técnico!")
   ElseIf IsNull(Me.Motivo_da_Visita.Value) = True Then
   MsgBox ("Incluir o Motivo da Visita!")
   ElseIf IsNull(Me.Ocorrência.Value) = True Then
   MsgBox ("Incluir a Ocorrência!")
   ElseIf IsNull(Me.Causa.Value) = True Then
   MsgBox ("Incluir a Causa!")
   ElseIf IsNull(Me.Operador = "") = True Then
   MsgBox ("Incluir o Operador!")
   Else
   
   
  'O codigo abaixo insere as informações na tabela cadastro_V2 e depois limpa os dados inseridos
'___________________________________________________________________________________________________________________

   SQL = "INSERT INTO CADASTRO_V2 (ID,MetropolitanArea,TecnicoFidelizado,Supervisor,Problemasid,Técnico,[Motivo da Visita],Ocorrência,Causa,Observação,[Operador],Data,Hora) VALUES('" & Me.id & "','" & Me.MetropolitanArea & "','" & Me.TecnicoFidelizado & "','" & Me.Supervisor & "','" & Me.ProblemasId & "','" & Me.Técnico & "','" & Me.[Motivo da Visita] & "','" & Me.Ocorrência & "','" & Me.Causa & "','" & Me.Observação & "','" & Me.[Operador] & "','" & Me.Data & "','" & Me.Hora & "')"
   CurrentDb.Execute SQL
   
   MsgBox ("Dados Incluídos!")
   
   Me.Observação.Text = ""
   Me.Técnico = ""
   Me.Motivo_da_Visita = ""
   Me.Ocorrência = ""
   Me.Causa = ""
   Me.Observação = ""
   Me.Operador = ""

Olá Gislene,

Fiz um pequeno exemplo do que eu entendi da sua necessidade.
Espero ter ajudado.
Abraço.

Bom dia

Muito obrigada pela ajuda , Mas eu ainda não conseguir resolver meu problema

No codigo que postei eu precisava emitir a mensagem quando o id digitado com a data de hoje for encontrada emitir a mensagem

Mas eu preciso de acordo com meu codigo

Meu formulario ele consulta depois ele insere em outra tabela.

Gislene bom dia,

O exemplo que te mandei faz justamente o que voce precisa. Ele só emite a mensagem se voce tentar cadastrar o mesmo id no mesmo dia.
Quando você informa um ID e a Data e ele não encontrar, o sistema não emite a mensagem, subentendendo que o id informado pode ser cadastrado na data informada.
Faça um teste. Tente cadastrar o mesmo ID no mesmo DIA, e voce verá que o sistema não irá permitir.

Abraço.

BOM DIA

EXTAMENTE ISSO QUE PRECISO MAS EU PRECISO DENTRO DO MEU CODIGO

NO MEU FORMULARIO ELE TEM UMA TABELA QUE CONSULTA E DEPOIS ELE PEGA ESSES DADOS DA CONSULTA E JOGA EM OUTRA TABELA

MEU FORMULARIO ESTA FUNCIONANDO DO JEITO QUE EU QUERO

SÓ PRECISO EMITIR A MENSAGEM ESSE ID JA SE ENCONTRA SE NA TABELA COM A DATA DE HOJE.

MUITO OBRIGADA PELA AJUDA

Ok..Entendi.
Se vc puder postar seu sistema, poderia te ajudar.

Att,

UHUUUUUUUUUUUUUUUUUUUUUUU FUNCIONOU MEU CARO ADAPTEI SEU FORMULARIO COM O MEU FICOU SHOW !!!!!

MUITO OBRIGADA

Hehehehehehe....
A idéia era essa mesmo,de você adaptar para o seu código.
Se funcionou então tá beleza.

Boa sorte

Valeu

Bom dia Gislene,

Tenha cuidado com a escrita para não passar uma ideia errada de como está falando e também leia as regras do fórum:

REGRAS DO FÓRUM

12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!

Temos que prezar pela boa convivência.

Abraço.