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]Validação de Dados

    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    [Resolvido]Validação de Dados Empty [Resolvido]Validação de Dados

    Mensagem  rogeriorcds Seg Maio 20, 2019 4:10 pm

    Boa tarde Mestres!!

    Galera estou com problemas para fazer a validação de dados de uma tabela com campo data, já li vários tópicos aqui no fórum mas não consegui resolver meu problema:

    Estou usando esta função : (Eu quero que não crie datas duplicadas, apenas um registro para cada dia)

    Código:
    Private Sub Data_BeforeUpdate(Cancel As Integer)
       If (Not IsNull(DLookup("Data", "Tbl_RDO", _
           "Data ='" & Me!Data & "'"))) Then
           MsgBox "Data já Cadastrada...", _
           vbInformation, "Duplicidade de Data"
           Me.Data.Undo
           DoCmd.CancelEvent
       End If
    End Sub

    Mas quando ela executa da o seguinte erro:

    Erro no tempo de execução '3664':
    Tipos de dados incompatível na expressão de critério.

    Se alguém puder me ajudar ficarei imensamente agradecido.

    Abraços
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4747
    Registrado : 20/04/2011

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  Silvio Seg Maio 20, 2019 4:29 pm

    If (Not IsNull(DLookup("[Data]", "Tbl_RDO", "[Data] =#" & Me.Data & "#"))) Then














    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  Alexandre Fim Seg Maio 20, 2019 4:52 pm

    Pegando o gancho do Silvio, segue:

    Código:


    If (Not IsNull(DLookup("[Data]", "Tbl_RDO", "[Data] =#" & Format(Me.Data,"mm/dd/yyyy") & "#"))) Then


    Boa sorte
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  rogeriorcds Seg Maio 20, 2019 4:57 pm

    Silvio,

    Não funcionou e ele deixa cadastrar a data duplicada

    Sds.
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  rogeriorcds Seg Maio 20, 2019 5:00 pm

    Alexandre,

    Resolveu perfeitamente, éra isso mesmo que eu precisava.

    Silvio e Alexandre, Muito obrigado pela força .
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4747
    Registrado : 20/04/2011

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  Silvio Ter Maio 21, 2019 10:19 am

    Bom dia..

    Se resolveu, ótimo.

    Abraços.

    Ps. na correira esqueci do " famoso "... Format(Me.Data,"mm/dd/yyyy") & "#")


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  Ismael Silva Ter Maio 21, 2019 10:29 am

    Só pra futuras consultas minhas.
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 26/06/2013

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  rogeriorcds Ter Maio 21, 2019 10:33 am

    Valeu,

    Muito Obrigado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Validação de Dados Empty Re: [Resolvido]Validação de Dados

    Mensagem  Alexandre Fim Ter Maio 21, 2019 11:01 am

    Valeu rogerio cheers cheers
    O fórum agradece.

    PS: Tranquilo Silvio...tamo junto !!!

      Data/hora atual: Seg Jun 14, 2021 3:26 am