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


+2
cleverson_manaus
Access365
6 participantes

    [Resolvido]Evitar entrada de materiais repetidos

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 8/3/2015, 20:39

    Olá pessoal
    Como fazer para exibir um alerta evitando a entrada de materiais iguais num mesmo
    pedido?

    BD: http://maximoaccess.forumeiros.com/download.forum?id=11947

    Estou tentando assim, mas só busca no primeiro registro e caso num pedido exista quatro itens, ao se repetir algum material do segundo em diante, ele esta deixando passar:

    Private Sub cboxMaterial_AfterUpdate()
    On Error Resume Next
    Me!txtCodMat = (DLookup("[CODM]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    If Me!txtCodMat = (DLookup("[CodMatS]", "Requisição", "[CODS] = '" & Me!txtCTRL & "'")) Then
    MsgBox "Este material já foi solicitado nesta requisição!", vbInformation, "GEAP/MG"
    Exit Sub
    End If

    Obrigado. .. Luz e Paz!
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 10/3/2015, 16:13

    Este também não funcionou:

    If DCount("CodMatS", "Requisição", "[CODS]= '" & txtCTRL & "'") > 0 Then
    MsgBox "Este material já foi solicitado nesta requisição!", vbInformation, ""
    Me.cboxMaterial = ""
    Exit Sub
    End If

    Luz e Paz!
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 10/3/2015, 16:54

    Cria uma chave primária com dois campos, idpedido + improdutivo, com certeza o próprio access se encarrega do bloqueio


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 10/3/2015, 17:14

    Cria uma chave primária com dois campos, idpedido + idproduto, com certeza o próprio access se encarrega do bloqueio, isso na tabela detalhes do pedido.
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 10/3/2015, 18:08

    Obrigado cleverson_manaus,
    Mas não entendi o que vc quiz dizer...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Assis 10/3/2015, 18:32

    Boa tarde

    Teste


    .................................................................................
    *** Só sei que nada sei ***
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 10/3/2015, 18:40

    Obrigado Assis,
    Mas está deixando passar materiais repetidos!
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Assis 10/3/2015, 18:50

    Por exemplo?


    .................................................................................
    *** Só sei que nada sei ***
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 10/3/2015, 18:57

    Desculpas pelas msg repetidas. Sobre minha resposta estou supondo que vc tenhas duas tabelas PEDIDOS e DETALHES_PEDIDOS, assim aplique a solução na segunda.


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Evitar entrada de materiais repetidos Empty Evitar entrada de materiais repetidos

    Mensagem  good guy 10/3/2015, 19:06

    Olá infosoft,

    Testei o seu código e funfou normalmente. Retirei aquele código que estava lá nessa combobox:

    Código:

    Private Sub cboxMaterial_AfterUpdate()
    On Error Resume Next
    'Dim I As String

    'Me.txtQtdSol.Enabled = True

    'Me!txtCodMat = (DLookup("[CODM]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    'Me!txtVol = (DLookup("[CODM]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    'Me!txtEtqFinal = (DLookup("[EstFinal]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    'Me.txtQtdSol = ""

    'If IsNull(Me.txtEtqFinal) Or Me.txtEtqFinal = "" Then
    'I = MsgBox("Não há estoque deste material no almoxarifado." + Chr$(13) & "Deseja adicionar um alerta " _
    '& "para o SISCOM?", vbYesNo, "GEAP/MG")
    'If I = vbNo Then
    'Me.txtCodMat = ""
    'Me.cboxMaterial = ""
    'Me.txtEtqFinal = ""
    'Me.txtQtdSol = ""
    'Me.txtPTM = ""
    'Me.cboxMaterial.SetFocus
    'Else
    'Me.txtQtdSol = 0
    'Me!Linha43.Visible = True
    'Me.txtQtdSol.Enabled = False
    'Me.cboxMaterial.SetFocus

    'Call NoteMat
    'Me.cboxMaterial = ""
    'Me.txtQtdSol = ""
    'Me.cboxMaterial.SetFocus
    'Exit Sub

    'End If
    'End If
    'Me.txtQtdSol.SetFocus

    Me!txtCodMat = (DLookup("[CODM]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    If Me!txtCodMat = (DLookup("[CodMatS]", "Requisição", "[CODS] = '" & Me!txtCTRL & "'")) Then
    MsgBox "Este material já foi solicitado nesta requisição!", vbInformation, "GEAP/MG"
    Exit Sub
    End If

    End Sub
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 10/3/2015, 19:19

    Obrigado good guy,
    Mas está deixando passar os repetidos.

    Testem no exemplo... Somente o primeiro item, caso o repitimos, é que o alerta aparecem mas após o segundo item está deixando repetir...

    Escolham
    A-TESTE-03
    A-TESTE-04
    A-TESTE-05
    A-TESTE-03
    O alerta vai aparecer

    MAS...
    A-TESTE-03
    A-TESTE-04
    A-TESTE-05
    A-TESTE-04
    O alerta NÃO aparece

    Luz e Paz!
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Assis 10/3/2015, 19:34

    Teste

    Com a dica do amigo ..... good guy


    .................................................................................
    *** Só sei que nada sei ***
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 10/3/2015, 19:44

    Não entendi... pois agora não aconteceu nada!

    O código anterior ao aletar de duplicidade é necessário para inclusão automática sem ter que clicar no OK, pois não há estoque, e assim o usuário escolhe se quer enviar um alerta ao almoxarifado ou não.

    ======

    Eu desconfio que o "segredo" esteja na função SQL

    Dim rsC As DAO.Recordset
    Set rsC = CurrentDb.OpenRecordset("SELECT * FROM Requisição WHERE CODS = '" & txtCTRL.Value & "'")
    If DCount("CodMatS", "Requisição", "CODS =""" & Me!txtCTRL & """") > 0 Then
    'MsgBox "Este material já foi solicitado nesta requisição!", vbInformation, ""
    Me.cboxMaterial = ""
    Exit Sub
    End If
    rsC.Close
    Set rsC = Nothing

    Alguém saca?

    ======

    As entradas na tabela requisição acontecem inserindo dois códigos:
    CODS: código automático que se REPETE a cada REQUISIÇÃO (gerado automaticamente ao se abrir a janela de requisição de material)
    CodMatS: Código de cada material NÃO PODE SE REPETIR numa MESMA requisição

    EXEMPLO (correto):
    CODS - CodMatS
    9595 - 0000101
    9595 - 0000102
    9595 - 0000103

    EXEMPLO (errado):
    CODS - CodMatS
    9595 - 0000101
    9595 - 0000102
    9595 - 0000103
    9595 - 0000101
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 11/3/2015, 16:17

    Acho que estou no ambiente errado...
    Será que estou?

    O que estou precisando envolvem FORM e SUBForm, mas os campos são desacoplados e se formam através
    de código VBA, principalmente o que estou precisando.

    Desculpem-me se postei no ambiente errado.

    Obrigado, Luz e Paz!
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 14/3/2015, 13:07

    A dica da chave primária com dois campos também se aplica aos forms desacoplados, e também sou fã dos mesmos nas minhas aplicações.
    Com certeza não vejo outro local para tirar dúvidas.
    Abraços



    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 14/3/2015, 20:15

    Não entendo. ...
    Duas chaves primárias na mesma tabela?

    Será que alguém aqui conseguiu testar no exemplo deixado?
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 15/3/2015, 15:59

    Cara encontrei esse exemplo nos primordios de quando comecei, acredito que resolva seu problema.

    Verifica e testa.

    Abraços, e aguardo retorno.

    Não anexou o arquivo, tentei trêz vezes, se alguem puder dar a dica de envio, pois é a primeira vez que envio.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Fernando Bueno 15/3/2015, 22:18

    Temporariamente não é possível anexar no forum, veja:

    http://maximoaccess.forumeiros.com/t22138-anexar-ao-forum


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Evitar entrada de materiais repetidos 16rzeq
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 16/3/2015, 02:58

    Infosoft meu email: guajara_mirim@Yahoo.com.br


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Noobezinho 17/3/2015, 02:06

    Vocês podem usar o Mega, Dropbox  ou outro servidor de hospedagem e colocar o link aqui.

    Assim todos irão poder ajudar e outros poderão se beneficiar.

    Essa é a função desse Fórum.

    Se começarmos a enviar arquivos por emails,sem compartilhar com os demais membros, perde-se o objetivo do fórum.

    Convido-os a repensar.

    Paulo César:

    Procure literatura na net sobre Chave primária composta e verá que poderá usar  mais de uma coluna como chave primária.

                 

    Quanto ao código:

    Ao invés de consultar a tabela para a verificação  de duplicidade de um mesmo registro num mesmo pedido, usem
    o RecordsetClone do formulário, é bem mais fácil.
    E usem o código de verificação, na propriedade Antes de atualizar do controle.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 17/3/2015, 12:59

    Concordo plenamente.

    Desculpas,assim que criar o cadastro em um desses serviços de hospedagem online, postarei o exemplo.



    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 18/3/2015, 15:45

    Olá cleverson_manaus,
    O Outlook bloqueou seu ANEXO... tente compactá-lo e enviar novamente, por favor...

    ===

    Olá Noob, o acesso aos sites tipo "dropbox" aqui é bloqueado, por isso a minha dificuldade...
    Desculpe-me!

    Obrigado, Luz e Paz!


    Última edição por infosoft em 18/3/2015, 15:56, editado 1 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Convidado 18/3/2015, 15:55

    Boa tarde,

    Acho que vocé o um amigo aqui no forum estavam com mesmo problema.
    veja link abaixo:

    http://maximoaccess.forumeiros.com/t22391-resolvidojuntar-funcoes

    Ele tambem queria adicionar mais que um produto mas que não fosse repetido no mesmo pedido,
    Ele resolveu...

    Abarço... Cool
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 18/3/2015, 16:14

    Olá Roberto, obrigado...

    Eu já havia tentado assim:

    If (Not IsNull(DLookup("[CodMatS]", "ConsultaRepet", "[CODS] = '" & Me!txtCTRL & "'"))) Then
    MsgBox "Item já cadastrado.", vbInformation
    Me.cboxMaterial = ""
    Me.txtQtdSol = ""
    Exit Sub
    End If

    Se entrar um item e gerar um CODS, a partir do segundo material em diante NÃO deixa entrar mais nenhum material.

    Luz e Paz!
    avatar
    Convidado
    Convidado


    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Convidado 18/3/2015, 16:19

    Para resolver problema do nosso amigo, eu só acrescentei uma tabela "historico"
    onde ele ia introduzindo os pedidos e esses pedidos era inseridos na tabela Histórico e aí sim, o código que vocé postou agora funfa 5 *****.
    Só tem que ao gravar o pedido, inserir no Botão "gravar" um código para limpar a tabela Historico.(currentdb.execute "DELETE * FROM SuatabelaHISTORICO")

    Espero que tenha percebido..

    Abraço... Cool
    avatar
    Convidado
    Convidado


    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Convidado 18/3/2015, 16:30

    veja exemplo abaixo:
    Entre com tecla shift e veja FORM VENDAS

    https://www.wetransfer.com/downloads/a4b2c0eba0565c5e18cd2266f7f0797d20150318162853/2ecf9b8bbfa53480085c55d3f81d227220150318162853/47aba1

    Abraço... Cool
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  cleverson_manaus 18/3/2015, 21:30


    Abaixo o exemplo para evitar itens repetidos no mesmo pedido:

    https://www.dropbox.com/s/y60grxebxgffhn4/EstoqueEscola.zip?dl=0


    Abraços,

    Cleverson
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 19/3/2015, 19:52

    Poxa pessoal, muito obrigado pelo tempo a mim dispensado...

    Situação resolvida:
    1) Criei mais um campo (oculto) no Formulário: txtCodMatC

    Private Sub cboxMaterial_AfterUpdate()
    On Error Resume Next
    Me!txtQEF = (DLookup("[EstFinal]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    Me!txtCodMat = (DLookup("[CODM]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    Me!txtVol = (DLookup("[CodMatS]", "Requisição", "[CODS] = '" & Me!txtCTRL & "'"))
    Me!txtEtqFinal = (DLookup("[EstFinal]", "EstoqueMAT", "[Material] ='" & Me!cboxMaterial & "'"))
    Me.txtQtdSol = ""

    Me.txtCodMatC = (DLookup("[CodMatS]", "ConsultaReqSol", "[MaterialS] = '" & Me!cboxMaterial & "'"))

    If Me.txtCodMat = Me.txtCodMatC Then
    MsgBox "Item já cadastrado.", vbInformation
    Me.cboxMaterial = ""
    Me.txtQtdSol = ""
    Exit Sub
    End If

    Me.txtQtdSol.SetFocus
    End Sub

    2) Criei a Consulta ConsultaReqSol com os campos:
    Campo CODS - Tabela Requisição - Critérios [Forms]![frmSiscomSolicitar].[txtCTRL]
    Campo CodMatS  - Tabela Requisição
    Campo MaterialS  - Tabela Requisição
    Campo EXCS  - Tabela Requisição - Critérios In ("MListado")

    Obrigado a todos, Luz e Paz!
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Access365 20/3/2015, 15:16

    Obrigado a todos!

    [Resolvido]Evitar entrada de materiais repetidos

    Luz e Paz!

    Conteúdo patrocinado


    [Resolvido]Evitar entrada de materiais repetidos Empty Re: [Resolvido]Evitar entrada de materiais repetidos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 18:46