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 participantes

    Ajuda com formulário de Vendas

    jparpinfo
    jparpinfo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 27/06/2014

    Ajuda com formulário de Vendas Empty Ajuda com formulário de Vendas

    Mensagem  jparpinfo 30/8/2024, 00:16

    Boa noite.

    Tenho um formulário de vendas no meu sistema, gostaria de saber como faço para quando vender  o mesmo item mais de uma vez ao invés dele repetir o item novamente apenas mudar a quantidade e manter apenas 1 item.
    conforme na figura abixo, aqui quando vendo o mesmo item ele adiciona várias vezes e gostaria apenas 1 vez e mudasse apenas a quantidade desse item.
    https://servimg.com/view/19780545/3
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    Ajuda com formulário de Vendas Empty Re: Ajuda com formulário de Vendas

    Mensagem  Silvio 31/8/2024, 14:41

    Boas....segue um exemplo

    Código:


    Private Sub cbocodprod_BeforeUpdate(Cancel As Integer)
    'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
    Dim frm As Recordset
        Set frm = Me.RecordsetClone
        With frm
        .FindFirst "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped & ""
            If Not .NoMatch Then
              If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
            Else
              Cancel = True
              Me.cbocodprod.Undo
              End If
            End If
        End With
        Set frm = Nothing
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 8/12/2024, 02:19