[Resolvido]Critério para evitar duplicidade

Bom Dia
Gostaria de uma ajuda
Tenho que evitar que seja execute duas venda para um msm cliente no mesmo projeto, para isso tenho que ir na tb_venda comparar o id do cliente e o id do projeto, e se ele já tiver uma venda nesse projeto me avisar e trazer para min.

Bom dia,

Amigo, coloque o Id do Cliente e o Id do projeto como chaves primárias que resolve.

Abraço

não e possível pois e uma tb de venda e sub venda normal mais com uma condição, o cliente pode fazer mas de uma venda mas não no msm projeto

estou tentando fazer esse funcionar e além da msg trazer o registro

If (Not IsNull(DLookup("[idvenda]", "Tb_Venda", "[idProjeto] & [IdCliente] LIKE'" & Me!txtidProjeto & Me!txtIdCliente & "'"))) Then
MsgBox "Ja existe venda para esse cliente neste projeto.", vbInformation, "Cliente"
else

end if

Olá..

Tente adaptar ao seu caso:
Será gera uma msgbox com os dados duplicadoe e se deseja ir para registro encontrado.


No evento antes de atualizar

Código:

Dim rst As Recordset
        Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl_Agendamentos")

        Do While Not rst.EOF
        If rst![Prontuario] = Me.txtPront.Value And rst![NomedoUsuario] = Me.txtUsuario.Value And rst![Profissional] = Me.txtProf.Value Then
        'avisa
            If MsgBox("Já existe um Agendamento de código" & Space(2) & "" _
            & DLookup("[Cod_Agendamento]", "tbl_Agendamentos", "[Prontuario] = " & Me!txtPront & " and [NomedoUsuario] = '" & Me!txtUsuario & "'and [Profissional] = " & Me!txtProf & "") & vbCrLf & "" _
            & "Para o Prontuario" & vbCrLf & "" _
            & DLookup("[Prontuario]", "tbl_Agendamentos", "[Prontuario] = " & Me!txtPront & "") & vbCrLf & "" _
            & "Em Nome do Usuario" & vbCrLf & "" _
            & DLookup("[NomedoUsuario]", "tbl_Agendamentos", "[NomedoUsuario] = '" & Me!txtUsuario & "'") & vbCrLf & "" _
            & "Para o Profissional de Nome" & vbCrLf & "" _
            & DLookup("[Profissional]", "tbl_Agendamentos", "[Profissional] = " & Me!txtProf & "") & vbCrLf & "" _
            & "Deseja Ir para Registro e Conferir dados? ", vbYesNo + vbExclamation + vbDefaultButton2, "Confirmação") = vbYes Then
                'desfaz a digitação
                Me.Undo
                'mostra o registro correspondente
                Me.Bookmark = rst.Bookmark
       
        Exit Do
        Else
        Me.Undo
        'faz o procedimento de incluir ou salvar
        End If
        End If
        rst.MoveNext
        Loop
        rst.Close

Aguardamos retorno

Abraços e sucesso

Mensagem Nº2 deste tópico;

https://www.maximoaccess.com/t33583-evitar-duplicidade-utilizando-dlookup

Bom dia
um funcionou mas não traz o registro para frente.
vou colocar um teste que tentei fazer.

Olá..

Teste:

OBS: Vincule os campos da tabela no formulário e atenção ao apóstrofo quando for campo texto ou campo números

Código:

Dim rst As Recordset
        Set rst = CurrentDb.OpenRecordset("SELECT * FROM Tb_Teste")
        Do While Not rst.EOF
        If rst![Ca] = Me.TxtA.Value And rst![Cb] = Me.TxtB.Value And rst![Cc] = Me.TxtC.Value Then
               
                    'avisa
            If MsgBox("Já existe um Agendamento de código" & Space(2) & "" _
                & DLookup("[Cod]", "Tb_Teste", "[Ca] = " & Me!TxtA & " and [Cb] = " & Me!TxtB & " and [Cc] = " & Me!TxtC & "") & vbCrLf & "" _
                & "Para o Prontuario" & vbCrLf & "" _
                & DLookup("[Ca]", "Tb_Teste", "[Ca] = " & Me!TxtA & "") & vbCrLf & "" _
                & "Em Nome do Usuario" & vbCrLf & "" _
                & DLookup("[Cb]", "Tb_Teste", "[Cb] = " & Me!TxtB & "") & vbCrLf & "" _
                & "Para o Profissional de Nome" & vbCrLf & "" _
                & DLookup("[Cc]", "Tb_Teste", "[Cc] = " & Me!TxtC & "") & vbCrLf & "" _
                & "Deseja Ir para Registro e Conferir dados? ", vbYesNo + vbExclamation + vbDefaultButton2, "Confirmação") = vbYes Then
                'desfaz a digitação
                Me.Undo
                'mostra o registro correspondente
                Me.Bookmark = rst.Bookmark
       
        Exit Do
            Else
                Me.Undo
       
            End If
            End If
        rst.MoveNext
        Loop
        rst.Close

Aguardamos retorno

Deu certo
Obrigado!

Olá..



Obrigado pelo retorno

Abraços e sucesso