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


3 participantes

    [Resolvido]Não deixar repetir Dados em campo tabela

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Não deixar repetir Dados em campo tabela Empty [Resolvido]Não deixar repetir Dados em campo tabela

    Mensagem  Assis 4/11/2014, 09:56

    Boa tarde Amigos

    Estou aqui a tentar algo e não estou a conseguir

    No Exemplo que anexo, abre um Form continuo com taxas de IVA.

    Clikar em baixo no botão "Nova Taxa" vai abri outro form para inserir um valor (Por exemplo se inserir 23, ou outro valor qualquer diz que já está na tabela mas não está).

    A ideia é não deixar repetir valores de "IVA" na tabela.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não deixar repetir Dados em campo tabela Empty Re: [Resolvido]Não deixar repetir Dados em campo tabela

    Mensagem  JPaulo 4/11/2014, 10:48

    Ola;

    Falta o nome da tabela no DCount, como tem o On Error Resume Next vai para a sua mensagem.

    If DCount("iva", "IVA", "iva=" & Me.txtIVA) > 0 Then

    A instrução correta e melhorada;
    Código:
    Private Sub txtIVA_BeforeUpdate(Cancel As Integer)
    If DCount("iva", "IVA", "iva=" & Me.txtIVA) > 0 Then
     If MsgBox("A Taxa de Iva " & Me.txtIVA & " inserida já existe na Tabela do IVA ." & vbNewLine & "Deseja voltar a inserir ?", vbOKCancel + vbInformation, "Valor IVA Já Registado") = vbOK Then
        Me.Undo
        Cancel = True
        Else
        DoCmd.Close
     End If
    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]Não deixar repetir Dados em campo tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Não deixar repetir Dados em campo tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Não deixar repetir Dados em campo tabela Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Não deixar repetir Dados em campo tabela Empty Re: [Resolvido]Não deixar repetir Dados em campo tabela

    Mensagem  Assis 4/11/2014, 10:59

    Boas amigo JPaulo

    Não testou
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Não deixar repetir Dados em campo tabela Empty Re: [Resolvido]Não deixar repetir Dados em campo tabela

    Mensagem  Alvaro Teixeira 4/11/2014, 11:11

    Olá a todos,

    Verifiquei que além do problema da falta do dominio da função o problema parece estar no tipo de dados (pois tem uma virgula)

    Acho que se resolve conforme abaixo, utilizando a dica do nosso Mestre JPaulo deste tópico: http://maximoaccess.forumeiros.com/t15448-resolvidofuncao-dcount-com-numero-duplo?highlight=DCount

    Código:
    If DCount("iva", "IVA", "iva=" & Replace(Me.txtIVA, ",", ".") & "") > 0 Then

    Abraço

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Não deixar repetir Dados em campo tabela Empty Re: [Resolvido]Não deixar repetir Dados em campo tabela

    Mensagem  Assis 4/11/2014, 11:38

    Obrigado
    Teixeira e
    JPaulo


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Não deixar repetir Dados em campo tabela Empty Re: [Resolvido]Não deixar repetir Dados em campo tabela

    Mensagem  Conteúdo patrocinado


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