[Resolvido]Função com 2 criterios não funciona:

Ney Santos 27/10/2020, 17:07

Ney Santos: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 351
Registrado : 23/05/2011

Mensagem nº1

[Resolvido]Função com 2 criterios não funciona:

Mensagem Ney Santos 27/10/2020, 17:07

Boa tarde!
tenho a sguinte função em um formualrio de vendas:
Private Sub TXQUANT_BeforeUpdate(Cancel As Integer)

Dim stLinkCriteria As String
Dim MsgBoxTempo As Object
Set MsgBoxTempo = CreateObject("WScript.Shell")
Dim Memo, Memo1

'buscar o código de um produto
stLinkCriteria = "CodigoItem= " & Me!TXIdProd
stLinkCriteria = stLinkCriteria & Me.TxCor <===== Essa Linha adcionei agora

'avaliando também se ele está no mesmo código da venda. (se venda estiver nulo então interprete 0)
stLinkCriteria = stLinkCriteria & " AND NotaFiscal = " & Nz(Me!CpCodigo, 0)

If DCount("*", "ItensOrcamento", stLinkCriteria) > 0 Then

Memo = Me.Bprod.Column(3)
Memo1 = Me.Bprod.Column(2)
Me.TxSalva = Memo
Me.NumReg2 = Memo1
If MsgBox(" Existem " & Memo & " unidades desse produto no pedido" & vbCrLf & "Deseja continuar e acrescentar mais " & Me.TxQuant & " Unidades ?", vbQuestion + vbYesNo, "Acrescentar?") = vbYes Then
Call FncDeleta
Else
Me.Undo
DoCmd.CancelEvent
Me.Cbprod = -1
End If

End If
Antes eu usava a funçaõ para que se um detrminado produto existisse na tabela "ItensPedido" , o suaurio seria avisado.
E deveria informar se relamete queria incluir amis aquele item.
Porem agora num novo projeto que estou trabalhando surgiu um detalhe que me escapaou, eu nao estou conseguindo resolver:
Trata-se da cor do produto, ou seja o ID de indentificaçãoé o mesmo porem a cor é diferente entao preciso que o sistema aceite incluir o item separadamente sem somar.
Aparente funcionou, mas percebi que se ue lançao o memso produto com a mesma cor, ele tambem ta aceitando, e nesse caso
deveri ser disparada a msbox avisando sobre a duplicdade.
Mais uma vez recorro a ajuda voces , paar soluiconar esse problema.

**Alexandre Neves** 27/10/2020, 20:10

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº2

Re: [Resolvido]Função com 2 criterios não funciona:

Mensagem Alexandre Neves 27/10/2020, 20:10

Boa noite
Será
stLinkCriteria = stLinkCriteria & " and '" & Me.TxCor & "'"

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo