[Resolvido]Evitar entrada de materiais repetidos

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!

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!

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

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.

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

Boa tarde

Teste

Obrigado Assis,
Mas está deixando passar materiais repetidos!

Por exemplo?

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.

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

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!

Teste

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

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

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!

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

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

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

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.

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

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

Infosoft meu email: guajara_mirim@Yahoo.com.br

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

Concordo plenamente.

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

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!

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...

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!

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...

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

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

Abraço...

Abaixo o exemplo para evitar itens repetidos no mesmo pedido:

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


Abraços,

Cleverson

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!

Obrigado a todos!

[Resolvido]Evitar entrada de materiais repetidos

Luz e Paz!