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

    ListBox - Como Limitar os itens seleccionados?

    Compartilhe

    Coutinhof
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1
    Registrado : 24/08/2016

    ListBox - Como Limitar os itens seleccionados?

    Mensagem  Coutinhof em Qua 24 Ago 2016, 21:45

    OLá, a todos. Preciso de ajuda. Tenha uma listBox com este código:
    Private Sub CommandButton1_Click()

    Dim W As Worksheet
    Dim i As Integer
    Dim Ln As Integer
    Set W = Sheets("Recibos")
    i = 0
    Ln = 28
    For i = 0 To Me.ListBox1.ListCount - 1

       If Me.ListBox1.Selected(i) Then
         
           W.Cells(Ln, 5).Value = Me.ListBox1.List(i, 6)
           W.Cells(Ln, 1).Value = Me.ListBox1.List(i, 4)
           W.Cells(Ln, 3).Value = Me.ListBox1.List(i, 0)
           W.Cells(Ln, 7).Value = Me.ListBox1.List(i, 5)
           W.Cells(Ln, 10).Value = Me.ListBox1.List(i, 7)
           W.Cells(Ln, 14).Value = Me.ListBox1.List(i, Cool
           W.Cells(Ln, 18).Value = Me.ListBox1.List(i, 9)
           Ln = Ln + 1

       End If
    Next
    End Sub

    Esta listbox, permite-me seleccionar as facturas a pagar por um cliente e a transportár os seus dados para o recibo. No entanto o recibo só permite que sejam gravadas no máximo 6 facturas. Eu queria colocar um limitador do código de modo a que o list.box não deixasse selccionar mais de 6 items. Alguém, me pode ajudar e inserir o código de ajuda aqui no meu código? Obrigado.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: ListBox - Como Limitar os itens seleccionados?

    Mensagem  JPaulo em Qui 25 Ago 2016, 13:50

    Ola seja bem vindo ao fórum.

    Este é um fórum exclusivamente de Ms Access, procure por favor num fórum de Excel.



    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 24 Jun 2017, 20:02