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
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013
    • Mensagem nº1

    [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)
    • Ir para o topo
    Jeferson de Paula
    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
    • Mensagem nº2

    [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
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

    [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
    • Ir para o topo
    Nogaro513
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013
    • Mensagem nº4

    [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!
    • Ir para o topo
    Nogaro513
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013
    • Mensagem nº5

    [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)
    • Ir para o topo
    Nogaro513
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013
    • Mensagem nº6

    [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
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº7

    [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.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº8

    [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.
    • Ir para o topo
    Nogaro513
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013
    • Mensagem nº9

    [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 !
    • Ir para o topo
    Nogaro513
    Nogaro513
    Nogaro513
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 12/08/2013
    • Mensagem nº10

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

    Mensagem  Nogaro513 25/11/2013, 16:43

    100% Resolvido
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº11

    [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
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº12

    [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

    • Ir para o topo
      Data/hora atual: 7/11/2024, 12:51