MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    ReBloquear hora duplicada

    avatar
    Nill2013Br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 14/05/2013

    ReBloquear hora duplicada Empty ReBloquear hora duplicada

    Mensagem  Nill2013Br Seg 26 Jul 2021, 1:52 pm

    Prezados amigos,

    Peguei este código abaixo aqui no fórum, não lembro qual foi o tópico:

    Private Sub Txt_Nome_BeforeUpdate(Cancel As Integer)


    Dim Resultado As VbMsgBoxResult

    If DCount("*", "Tabela1", "Ano=" & Txt_Ano & " and Nome= '" & Txt_Nome & "'" > 0) Then
           
    'A função DCount() contou um ou mais registros existentes
    Resultado = MsgBox("Já existe um Aluno com este nome cadastrado no mesmo ano no Banco de dados. Deseja Verificar Primeiro Antes de Prosseguir?", vbInformation + vbYesNo, "Duplicidade...")
     
    If Resultado = vbYes Then
    Me.Undo 'Limpa o campo
    Exit Sub
    End If
    End If

    End Sub


    Mudei algumas coisas para fazer uns testes usando data e hora, mas não consegui fazê-lo funcionar. Quando eu insiro uma data e hora funciona para o primeiro, Mas com o segundo mesmo mudando a data e a hora ele continua informando que o horário esta reservado. Eu quero que somente bloqueie a hora duplicada para um mesmo dia. Este é o código que estou usando:

    ReBloquear hora duplicada Teste10


    Private Sub txthoraagen_BeforeUpdate(Cancel As Integer)
    Dim Resultado As VbMsgBoxResult

    If DCount("horaagen", "Agenda", "dataagen= " & txtdataagen & " and horaagen=#" & txthoraagen & "#" > 0) Then

    'A função DCount() contou um ou mais registros existentes
    Resultado = MsgBox("Este horário já está reservado. Escolha outro horário!", vbOKOnly)
     
    If Resultado = vbOKonly Then
    Me.Undo 'Limpa o campo
    Exit Sub
    End If
    End If
    End Sub

    Agradeço se alguém puder me ajudar.

    Nilton.
    Anexos
    ReBloquear hora duplicada AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 10 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    ReBloquear hora duplicada Empty Re: ReBloquear hora duplicada

    Mensagem  Alexandre Fim Seg 26 Jul 2021, 3:45 pm

    Olá Nilton,

    O evento correto para fazer a validação é o "Após Atualizar" (AfterUpdate) e não "Antes de Atualizar" (BeforeUpdate).
    Havia divergência nos nomes dos controles no formulário também.

    Segue versão atualizada.
    Boa sorte

    []'s

    FIM
    Anexos
    ReBloquear hora duplicada AttachmentTeste_v1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 25 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    ReBloquear hora duplicada Setinf11
    Sistemas e Tecnologia Ltda

    Nill2013Br e Aurino gostam desta mensagem

    avatar
    Nill2013Br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 14/05/2013

    ReBloquear hora duplicada Empty Bloquear hora duplicada

    Mensagem  Nill2013Br Seg 26 Jul 2021, 8:08 pm

    Muito obrigado Alexandre.


    Última edição por Nill2013Br em Seg 26 Jul 2021, 8:11 pm, editado 1 vez(es) (Motivo da edição : corrigir titulo)
    avatar
    Nill2013Br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 14/05/2013

    ReBloquear hora duplicada Empty Re: ReBloquear hora duplicada

    Mensagem  Nill2013Br Seg 26 Jul 2021, 8:12 pm

    Resolvido

      Data/hora atual: Sab 24 Set 2022, 5:37 pm