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!