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


3 participantes

    Como criar procedimento que elimina horários já utilizados?

    avatar
    ricardo.sribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 05/08/2013

    Como criar procedimento que elimina horários já utilizados? Empty Como criar procedimento que elimina horários já utilizados?

    Mensagem  ricardo.sribeiro 16/8/2013, 20:42

    Caros amigos.

    Estou criando um a aplicação para agendar consultas em um consultório odontológico.
    Criei um formulário com campos onde informo os dados da consulta tais como:
    Nome do paciente, data da consulta, procedimento, hora início, hora término, etc.

    Após preencher os dados o formulário envia as informações para uma tabela.

    O problema é o seguinte:

    O sistema não pode permitir que duas consultas sejam marcadas no mesmo horário.
    Para resolver isso pensei no seguinte.

    O usuário seleciona o horário de início em uma caixa de listagem e depois o horário de término em outra caixa de listagem.
    Ao fazer o próximo agendamento de consulta o usuário vai novamente selecionar um horário de inicio na caixa de listagem, porém a mesma não pode permitir que o usuário selecione um horário anterior ao término da última consulta.

    Alguém pode me ajudar com isso....?????
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Como criar procedimento que elimina horários já utilizados? Empty Re: Como criar procedimento que elimina horários já utilizados?

    Mensagem  Alexandre Neves 16/8/2013, 21:18

    Boa noite, ricardo, e bem-vindo ao fórum
    Sem dados concrectos, é difícil escrever-lhe código para verificar se o horário está disponível, veja este assunto já tratado. Procure, no fórum já se falou várias vezes sobre este assunto


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    Como criar procedimento que elimina horários já utilizados? Empty Boa noie

    Mensagem  matheuspereira 16/8/2013, 22:03

    olá amigo Ricardo, vc pode usar o código que vou postar aqui. Este código buscar o registro na tabela usando a função DCount. Se a tabela já estiver o registro cadastrado, com o horário que quer cadastrar ele te envia uma mensagem.  

    'Verifica se o Horário esta disponivel
    If DCount("idCliente", "tblcadastro", "Horario =""" & Me!horario & """") > 0 Then

    'se não estiver exibe a mensagem, cancela o salvamento, limpa o campo txtHorario e envia o foco para a txtHorário
    Msgbox "Horário indisponível",,"Atenção"

    cancel = true
    Me.txtHorario = null
    me.txtHorario.setfocus
    ' se o Horário estiver disponivel ele salva
    Else

    DoCmd.RunCommand acCmdSaveRecord

    end if

    Conteúdo patrocinado


    Como criar procedimento que elimina horários já utilizados? Empty Re: Como criar procedimento que elimina horários já utilizados?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 07:00