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

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

    Compartilhe
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Misson Lira em 1/6/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 ?
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 1/6/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.
    www.maximoaccess.com/t860-resolucao-de-topicos
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Misson Lira em 1/6/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 .
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 1/6/2018, 18:09

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Misson Lira em 2/6/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.
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Misson Lira em 10/1/2019, 12:22

    já foi resolvido, muito obrigado pela ajuda.
    elpauli
    elpauli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 10/08/2016

    CONFIGURAÇÃO LOGICA

    Mensagem  elpauli em 19/1/2019, 10:24

    No seu BD, tem que ter um campo que armazena o IDCOMPRA + IDPRODUTO
    Se Repetir,no Evento Error gerenciar com o numero 3022
    Simples

      Data/hora atual: 18/3/2019, 22:29