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]Função com 2 criterios não funciona:

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

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

    Mensagem  Ney Santos em 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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7783
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 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
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

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

    Mensagem  Ney Santos em 28/10/2020, 02:59

    Infelizmente não funcionou sr Alexandre
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 28/10/2020, 11:56

    Olá a todos,

    Ney, não está a faltar o nome do campo da cor e o sinal igual?
    Algo assim:
    Código:
    stLinkCriteria = stLinkCriteria & " AND CampoCodigoCor=" & Me.TxCor  

    Abraço

    Lelio Guedes gosta desta mensagem

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

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

    Mensagem  Ney Santos em 29/10/2020, 19:18

    Tinah razaõ Sr Teixira, obrigado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/10/2020, 08:42

    cheers

      Data/hora atual: 3/12/2020, 20:47