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

    Seleciona linha em ListBox caso o produto ja seja cadastrado

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Seleciona linha em ListBox caso o produto ja seja cadastrado Empty Seleciona linha em ListBox caso o produto ja seja cadastrado

    Mensagem  HARYSOHN em 24/5/2012, 19:38

    Este código é utilizado no formulário para inserir produtos em uma tabelaProdutos.
    A apresentação é feita em uma ListBox, caso o produto ja tenha sido cadastrado emite mensagem e não inclui o produto, selecionando o mesmo na listBox.




    Private Sub cmdIncluirProduto_Click()
    Dim I As Integer
    Dim strProcura As String, intpos As Integer
    Dim strList As String

    If DCount("CodigoBarras", "TblProdutos", "CodigoBarras ='" & Me.txt_CodigoBarras & "'") >= 1 Then
    MsgBox "Este produto ja está cadastrado no estoque"

    strProcura = UCase$(DLookup("Descricao", "TblProdutos", "CodigoBarras ='" & Me.txt_CodigoBarras & "'"))
    intpos = Len(strProcura)
    If intpos Then
    For I = 0 To Lst_Historico.ListCount - 1
    strList = Me.Lst_Historico.Column(2, I)
    If strList = strProcura Then
    Me.Lst_Historico.Selected(I) = True
    Selecionado = True
    Exit For
    Else
    Me.Lst_Historico.Selected(I) = False
    Selecionado = False
    End If
    Next
    End If
    Else
    Me.Lst_Historico.Enabled = True
    Me.IncluirProduto 'Aqui caso o produto não seja cadastrado executa a rotina de incluir produto
    End If

    End Sub


    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Seleciona linha em ListBox caso o produto ja seja cadastrado Empty Re: Seleciona linha em ListBox caso o produto ja seja cadastrado

    Mensagem  HARYSOHN em 28/5/2012, 13:46

    Aproveitando este código, Função para aplicar nos botões de navegação para que ao navegar pelos registros, fazer a seleção da linha respectiva na ListBox, Observe que utilizo o Recordset do form.


    Sub SelecionaLinha()
    Dim I As Integer
    Dim strProcura As String, intpos As Integer
    Dim strList As String
    Dim RsLista As DAO.Recordset

    Set RsLista = Me.Recordset.Clone
    RsLista.FindFirst "[VendaNumero] = " & Str(Nz(Me.txtID_Ped, 1))
    If RsLista.NoMatch Then
    MsgBox "Produto não encontrado"
    Else
    strProcura = UCase$(RsLista(0))
    intpos = Len(strProcura)
    If intpos Then
    For I = 0 To lstVenda.ListCount - 1
    strList = Me.lstVenda.Column(0, I)
    If strList = strProcura Then
    Me.lstVenda.Selected(I) = True
    Selecionado = True
    Exit For
    Else
    Me.lstVenda.Selected(I) = False
    Selecionado = False
    End If
    Next
    End If
    End If
    End Sub


    Cumprimentos.

      Data/hora atual: 29/11/2020, 16:59