MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Chave Primária em Formulário se estiver repetida não salva e também não da erro.

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 02/08/2018

    [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro. Empty [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro.

    Mensagem  mfmaiafilho em 20/5/2020, 19:19

    Boa tarde!

    Tenho um Cadastro de produtos, porém to tendo dificuldades com isso, a minha chave primária é o CodAlfatec = Código do Produto, não é automático é manual, não tem numeração automática nesse caso pra justamente não ter a questão da duplicada de produtos

    o grande problema é que se eu tiver um produto chamado "PANELA01" já cadastrado, mesmo assim eu consigo colocar esse mesmo código PANELA01 em outro cadastro como chave primária, só que ele não salva e também não dá erro =/

    eu queria ajuda pra ao menos colocar uma mensagem Erro! esse codigo já está sendo usando tente outro....

    algo desse tipo....
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2118
    Registrado : 22/11/2016

    [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro. Empty Re: [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro.

    Mensagem  DamascenoJr. em 20/5/2020, 20:44

    no evento antes de atualizar do seu campo chave primária no formulario
    Código:
    if nz(me!nomedocamponoformulario.value)="" then exit sub

    if dcount("*","nomedasuatabela","nomedocamponatabela = """ & me!nomedocamponoformula.value & """")>0 then
      call msgbox("codigo repetido.")
      cancel = true
      exit sub
    end if


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 02/08/2018

    [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro. Empty Re: [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro.

    Mensagem  mfmaiafilho em 21/5/2020, 01:37

    Muito obrigado Damasceno, você é show !!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2118
    Registrado : 22/11/2016

    [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro. Empty Re: [Resolvido]Chave Primária em Formulário se estiver repetida não salva e também não da erro.

    Mensagem  DamascenoJr. em 21/5/2020, 01:49

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 16/7/2020, 13:51