[Resolvido]Não permitir input já existente a menos que Receita seja diferente...

Caros colegas, o N_saida1 não pode ser repetido pelo digitador a não ser que o CodReceita2 não exista na tabela.
O que está errado, pois mesmo não existindo a receita ele diz que já existe?
Agradeço desde já!
MPS

Private Sub N_Saida1_BeforeUpdate(Cancel As Integer)
Dim db As DAO.Database
Dim db2 As DAO.Database
Dim rs As DAO.Recordset
Dim parametro As String
Dim intretval As Integer
Dim parametro2 As String
Dim rs2 As DAO.Recordset2



parametro = Me.N_Saida1
parametro2 = Me.CodReceita2


Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM movimentacao WHERE n_saida1=" & parametro)


If rs.RecordCount > 0 Then

Set db2 = CurrentDb()
Set rs2 = db.OpenRecordset("SELECT * FROM movimentacao WHERE CodReceita2 = " & parametro2)
If rs2.RecordCount > 0 Then
intretval = MsgBox("Este código já existe!", vbOKCancel + vbQuestion + vbDefaultButton2, "Atenção")
Select Case intretval
Case vbCancel
SendKeys "{esc}"
Cancel = True
Case vbOK
Cancel = True
End Select

'End If
End If
rs.Close
db.Close
End If
End Sub

Bom dia, MPS
Pela descrição, parece-me que basta utilizar o seguinte código
Private Sub N_Saida1_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset

Set rs = currentdb.OpenRecordset("SELECT * FROM movimentacao WHERE CodReceita2 = " & Me.CodReceita2)
If rs2.RecordCount > 0 Then
if MsgBox("Este código já existe!" & vbcr & "Mesmo assim, quer continuar?", vbyesno + vbQuestion + vbDefaultButton2, "Atenção")=vbno then
docmd.cancelevent
End if
rs.Close
End Sub

Agradeço Alexandre, contudo não resolveu, pois este critério CodReceita2 só deve ser analisado se o N_saida1 já existir.
Ou seja, primeiro tenho que analisar N_saida1 para depois analisar CodReceita2.
Como você faria, por favor?

tente
Private Sub N_Saida1_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM movimentacao WHERE n_saida1=" & N_Saida1 & " and CodReceita2 = " & Me.CodReceita2)
If rs.RecordCount > 0 Then
if MsgBox("Este código já existe!" & vbcr & "Mesmo assim, quer continuar?", vbyesno + vbQuestion + vbDefaultButton2, "Atenção")=vbno then
docmd.cancelevent
End if
End If
rs.Close
End Sub

Alexandre, seu VBA foi perfeito, entretanto o N_saída1 do ano passado está entrando no SELECT. E só deve comparar com os inputs do mesmo ano.
Pensei em fazer assim:
Set rs = CurrentDb.OpenRecordset("SELECT * FROM movimentacao WHERE n_saida1=" & N_Saida1 & " and CodReceita2 = " & Me.CodReceita2 & " and year(data) = " & Year(Me.Data))
Mas não funcionou.
O que você me sugere, por favor!

Utilize
Set rs = CurrentDb.OpenRecordset("SELECT * FROM movimentacao WHERE n_saida1=" & N_Saida1 & " and CodReceita2 = " & Me.CodReceita2 & " and year(CampoDataNaTabela)=Year(Date()")

Alexandre, resolvido! Parabéns!
Obrigado!