[Resolvido]Se houver registro repetido envia mensagem e não salva.

Boa tarde feras.

Procurei aqui no site e existem muitas dúvidas sobre o assunto, porém, não consegui ajustar nenhuma a minha.

Tenho um form onde incluo as faltas das professoras e as substitutas naquela data.
Estou tentando criar no botão GRAVAR um dispositivo que se houver mais de uma falta naquela data, da mesma professora, envie uma mensagem e saia do Sub do botão.
Fiz esse código antes do código de inclusão, mas ele continua gravando:

Código:

Dim intData As Date
Dim intNome As String
Dim rsFaltas As DAO.Recordset

Set db = CurrentDb

intData = Me.txtDATA.Value
intNome = Me.cmbNOMESUB.Value

Set rsFaltas = db.OpenRecordset("Select * from tb_Dobras where [NOME_SUB] = '" & intNome & "' And [DATA_FALTA] = #" & intData & "#")
If rsFaltas.RecordCount <> 0 Then
   MsgBox ("Já existe uma falta deste funcionário nesta data!"), vbInformation + vbOKOnly, "FALTA REPETIDA"
   Exit Sub
End If

Já tentei Dcount, DlookUp, mas devo estar montando errado as linhas.

Conto com a experi de vocês para mais essa...

Abrasss!!!

Tente:

Private Sub BotãoGravar_Click()
Dim RegistoRepetido As Variant

RegistoRepetido = DLookup("[NOME_SUB]", "tb_Dobras", "[NOME_SUB] ='" & Me.NOME_SUB & "' And [DATA_FALTA] =#" & Format(Me.DATA_FALTA, "mm-dd-yyyy") & "#")
If Not IsNull(RegistoRepetido) Then
MsgBox "O Professor " & Me.NOME_SUB & " Já tem uma falta com essa data!", vbCritical
DoCmd.CancelEvent
Me.Undo
Me.NOME_SUB.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Registo gravado com sucesso...", vbInformation
DoCmd.Close
End If
End Sub

É sério, esse fórum é uma Faculdade de Access!

Estava errando na formatação da data na linha do DLookup, eu colocava "dd/mm/yyyy". Daí o erro da não comparação para verificação de erro.

Muito obrigado Mestre. Funfou perfeitamente.   


Abrasss!!!

o fórum agradece!