MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Não permitir cadastro duplicado consultando dois campos

    avatar
    wsouzaleop
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 07/05/2019

    Não permitir cadastro duplicado consultando dois campos  Empty Não permitir cadastro duplicado consultando dois campos

    Mensagem  wsouzaleop em 2/6/2019, 20:21

    Boa tarde pessoal

    tenho uma tabela que preciso consultar dois campos e caso as informações sejam iguais não permitir cadastrar e retornar uma mensagem
    dizendo "Já existe uma consulta marcado para esse dia e horario".
    Como proceder.

    Os campos sao

    Consulta
    Data

    Nome da tabela "tbConsulta".

    Se puderem ajudar fico grato...
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4440
    Registrado : 20/04/2011

    Não permitir cadastro duplicado consultando dois campos  Empty Re: Não permitir cadastro duplicado consultando dois campos

    Mensagem  Silvio em 3/6/2019, 11:35

    Bom dia...

    É só adaptar as tuas necessidades, alterando os devidos campos.

    Private Sub HoraConsulta_AfterUpdate()
    On Error Resume Next
    Dim x As Variant
    Dim y As Variant
    y = DFirst("paciente", "QryVisitas", "DataConsulta = Forms!FrmPaciente!DataConsulta and HoraConsulta= Forms!FrmPaciente!HoraConsulta")
    x = DLookup("DataConsulta &' ' & HoraConsulta", "QryVisitas", "DataConsulta = Forms!FrmPaciente!DataConsulta and HoraConsulta= Forms!FrmPaciente!HoraConsulta")
    If x > 0 Then
    MsgBox ("Já existe horário agendado para esse dia e hora !" & vbCrLf & _
    "Agendado para data e hora: " & x & vbCrLf & _
    "Paciente agendado: " & y), vbCritical, "Atenção !!!"

    Me.DataVisita.SetFocus

    End If
    End Sub


    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 15/9/2019, 23:54