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]Impedir valor duplicado e exibir mensagem com o código do que já existe

    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 23/12/2011

    [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe Empty [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe

    Mensagem  Krauss em 22/11/2020, 21:28

    Salve Srs.

    Preciso que o sistema não só impeça valor duplicado, como me informe o código do registro que já possui o valor informado. É possível?

    Tenho codigoProduto e descricaoCompleta (nenhum é chave primária).

    Achei esse código do saudoso JPaulo e ele funfa perfeitamente, porém como eu faria para adaptá-lo de modo que se a pessoa digitar uma descrição que já existe, ele exiba a mensagem: "Já existe outro produto código XXX com esta descrição." OU seja, ele buscaria na tblProdutos o código referente à descrição que já existe, e exibiria junto na MsgBox.


    If (Not IsNull(DLookup("[descricaoCompleta]", "tblProdutos", _
    "[descricaoCompleta] ='" & Me!descricaoCompleta & "'"))) Then
    MsgBox "Já existe outro produto com esta descrição", vbInformation, "Sispac"
    Cancel = True 'cancela o evento.
    End If


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe Empty Re: [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe

    Mensagem  DamascenoJr. em 22/11/2020, 21:43

    Código:
    dim lngCodigo as long

    lngCodigo = nz(dlookup("CampoCodigoDaTabela","tblProdutos","[descricaoCompleta] ='" & Me!descricaoCompleta & "'"),0)

    if lngCodigo > 0 then
      MsgBox "Já existe outro produto código " & lngCodigo & " com esta descrição.", vbInformation, "Sispac"
      Cancel = True 'cancela o evento.
    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.
    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 23/12/2011

    [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe Empty Re: [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe

    Mensagem  Krauss em 22/11/2020, 21:49

    Blz Damasceno? Obrigado pela ajuda!

    Código funfou, só faltou um detalhe: ele não exibe os zeros à esquerda do código. Meu campo codigoProduto é padrão 5 dígitos e está no formato texto. Então fiz o teste e na mensagem ele diz que já existe o produto com código 11 cadastrado, mas deveria ser 00011. Pode me ajudar com isso por gentileza? rs


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe Empty Re: [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe

    Mensagem  DamascenoJr. em 22/11/2020, 21:58

    Conhece a função format?

    Código:
    ...código " & format(lngCodigo, "00000") & " com e...


    .................................................................................
    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.
    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 213
    Registrado : 23/12/2011

    [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe Empty Re: [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe

    Mensagem  Krauss em 22/11/2020, 22:01

    Nossa cara, perfeito!!!

    Muito obrigado! Saudações...


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe Empty Re: [Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe

    Mensagem  DamascenoJr. em 22/11/2020, 22:10

    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: 3/12/2020, 20:01