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


    [Resolvido]registo com Data superior

    avatar
    Convidado
    Convidado


    [Resolvido]registo com Data superior Empty [Resolvido]registo com Data superior

    Mensagem  Convidado 7/9/2017, 12:58

    boas
    como posso bloquear o campo data, ou seja, imagine-se que tenho o seguinte registo :
    08/09/2017
    - e queria efetuar um registo tipo : 07/09/2017
    logo a app rejeitava - existe um registo com Data superior . . .
    Como fazer ? Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]registo com Data superior Empty Re: [Resolvido]registo com Data superior

    Mensagem  JPaulo 7/9/2017, 13:55

    Isso é muito vago, tem de detalhar melhor.

    A data superior está registada numa tabela ?

    E que rejeitar a digitar no form ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]registo com Data superior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]registo com Data superior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]registo com Data superior Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvido]registo com Data superior Empty Re: [Resolvido]registo com Data superior

    Mensagem  Convidado 7/9/2017, 15:54

    boas JP
    respondendo as suas questões no sentido do Help !
    A data superior está registada numa tabela ?
    JP tenho os seguintes campos na tabela :
    ID
    Data ( este é o campo onde se regista o dia da ocorrência ) ao tentar registar uma data anterior ao último registo não permitir
    Utente
    Descrição
    Enfermeiro
    E que rejeitar a digitar no form ?
    Sim

    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]registo com Data superior Empty Re: [Resolvido]registo com Data superior

    Mensagem  JPaulo 7/9/2017, 16:19

    Tem de ser qualquer coisa assim;

    Código:
    Private Sub SeuCampoData_BeforeUpdate(Cancel As Integer)
    Dim i As Date

    i = DLast("Data", "SuaTabela")

    If Me.SeuCampoData.Value < i Then
       MsgBox "data superior está registada.", vbCritical, "Erro"
       Cancel = True
       Me.Undo
       Exit Sub
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]registo com Data superior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]registo com Data superior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]registo com Data superior Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvido]registo com Data superior Empty Re: [Resolvido]registo com Data superior

    Mensagem  Convidado 8/9/2017, 10:03

    Obrigadão amigo ! na muche . . . tanks.

    Conteúdo patrocinado


    [Resolvido]registo com Data superior Empty Re: [Resolvido]registo com Data superior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:21