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


4 participantes

    [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 20/5/2019, 20:10

    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 : 5120
    Registrado : 20/04/2011

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

    Mensagem  Silvio 20/5/2019, 20:29

    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 : 3491
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 20/5/2019, 20:52

    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 20/5/2019, 20:57

    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 20/5/2019, 21:00

    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 : 5120
    Registrado : 20/04/2011

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

    Mensagem  Silvio 21/5/2019, 14:19

    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 : 827
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva 21/5/2019, 14:29

    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 21/5/2019, 14:33

    Valeu,

    Muito Obrigado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 21/5/2019, 15:01

    Valeu rogerio cheers cheers
    O fórum agradece.

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 05:42