MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Bloquear Lançamento de produto se já tiver sido lancado

    Compartilhe

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 215
    Registrado : 01/12/2016

    Bloquear Lançamento de produto se já tiver sido lancado

    Mensagem  Misson Lira em Sex 01 Jun 2018, 01:41

    Boa noite!

    Tenho um banco de dados, que tem uma formulário onde lanço os meus produtos, nesse formulário tenho um subforms onde recebe os meus produtos.

    O que preciso é que toda vez, antes de lança o produto no subforms ele verifique se o produto já está lançado e avise se tá lançado.

    Teria como ?
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Bloquear Lançamento de produto se já tiver sido lancado

    Mensagem  Silvio em Sex 01 Jun 2018, 12:41

    Bom dia..

    No evento antes de atualizar da combobox.....insira o seguinte comando.

    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.
    [Você precisa estar registrado e conectado para ver este link.]

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 215
    Registrado : 01/12/2016

    Re: Bloquear Lançamento de produto se já tiver sido lancado

    Mensagem  Misson Lira em Sex 01 Jun 2018, 16:19

    Bom dia amigo
    Tem um pequeno detalhe que N informei, para lança o meu produto no subforms, eu utilizo um botão.
    Ex: tenho uma Combox ele tem todos os meus códigos de barra, ao selecionar o código que desejo lança clico em um botão para assim adicionar o produto em questão, dentro do subforms.
    Então eu queria que toda vez ao clica nesse botão ele verificasse se o produto selecionado na Combox já foi lançado.

    Desculpa por N ter sido tão explícito na minha dificuldade .
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Bloquear Lançamento de produto se já tiver sido lancado

    Mensagem  Silvio em Sex 01 Jun 2018, 18:09

    Já experimentou colocar o código no botão ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 215
    Registrado : 01/12/2016

    Re: Bloquear Lançamento de produto se já tiver sido lancado

    Mensagem  Misson Lira em Sab 02 Jun 2018, 00:43

    Sim! Eu deu um erro.
    O mecanismo de banco de dados do Microsoft access não reconhece 'Codprodutocompra'. Como um nome de campo ou expresso válida.

    Eu tenho a tela da seguinte forma

    FrmCompra dentro tem
    Uma caixa de combinação, onde tem os códigos dos produtos.
    Um botão que quando clico ele manda esse código para um subforms que está dentro desse frmCompra.

      Data/hora atual: Qua 20 Jun 2018, 12:44