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

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Mensagem  Nogaro513 21/11/2013, 20:58

    Gostaria que ao tentar colocar uma Data que já esteja Cadastrada Não aceitace e um aviso data Já Cadastrada no sistema!
    se Alguem puder me ajudar Agradeço


    Última edição por Nogaro513 em 2/12/2013, 00:19, editado 1 vez(es)
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Re: [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Mensagem  Jeferson de Paula 21/11/2013, 21:06

    Olá amigo Carlos Nogaro,

    Você pode fazer isso através de uma pesquisa na funções "DLookup()" e a validação com um VBA. Veja o exemplo abaixo:

    Código:
    Private Sub SeuCampo_Exit()
    Dim strData As String

    strData = DLookup ("CampoDataDaTabela", "NomeDaTabela", "CampoDataDaTabela = '" & Me.CampoDataDoFormulario.Value & "'")

        If Not IsNull(strData) Then
            MsgBox "A Data digitada já está cadastrada no sistema. Por favor, tente novamente uma nova data!", vbExclamation, "Data Duplicada"
                Me.CampoDataDoFormulario.SetFocus
                    DoCmd.CancelEvent
                        Exit Sub
        Else
            Me.ProximoCampoDoFormulario.SetFocus
                DoCmd.CancelEvent
                    Exit Sub
        End If
    End Sub
    Bons Estudos amigão!

    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha [Resolvido]Impedir Data Duplicada em campo Data no Formulário 001_1810?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    avatar
    Convidado
    Convidado


    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Re: [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Mensagem  Convidado 21/11/2013, 21:13

    Olá, tente lá. no evento antes de atualizar do campo Data

    If (Not IsNull(DLookup("[CampoData]", "NomeDaTabela", _
       "[CampoData] ='" & Me!CampoData & "'"))) Then
       MsgBox "Data já Cadastrada...", _
       vbInformation, "Duplicidade de Data"
       Me.CampoData.Undo
       DoCmd.CancelEvent
     End If
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Agradeço

    Mensagem  Nogaro513 21/11/2013, 21:24

    Agradeço ao Jeferson de Paula e ao betogivoni vou testar os dois exemplos e volto a informar ok obrigado!
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty não consegui vou postarMinha Agenda

    Mensagem  Nogaro513 21/11/2013, 22:04

    acredito que não coloquei certo os códigos que me passaram !
    Anexos
    [Resolvido]Impedir Data Duplicada em campo Data no Formulário AttachmentAgenda Serviço.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 26 vez(es)
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty tentar adicionar data duplicada

    Mensagem  Nogaro513 21/11/2013, 22:06

    abrir agenda e colocar data EX 25/12 mas na caixa data tentar colocar 21/11 esta data já esta cadastrada obs Segurar tecla Shift para abrir
    avatar
    Convidado
    Convidado


    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Re: [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Mensagem  Convidado 22/11/2013, 01:50

    Veja ai amigo, na verdade o código acima estava errado interpretei errado se pedido de ajuda.
    avatar
    Convidado
    Convidado


    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Re: [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Mensagem  Convidado 22/11/2013, 01:52

    Veja ai amigo, na verdade o código acima estava errado interpretei errado se pedido de ajuda.
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty betogivoni caso resolvido

    Mensagem  Nogaro513 22/11/2013, 12:35

    betogivoni  muito obrigado estou muito agradecido um abraço , resolveu muito mais rapido que eu esperava !
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013

    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Resolvido meu Bd

    Mensagem  Nogaro513 25/11/2013, 16:43

    100% Resolvido
    avatar
    Convidado
    Convidado


    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Re: [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Mensagem  Convidado 25/11/2013, 16:56

    Agradecimentos do fórum pelo retorno

    Conteúdo patrocinado


    [Resolvido]Impedir Data Duplicada em campo Data no Formulário Empty Re: [Resolvido]Impedir Data Duplicada em campo Data no Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:29