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

    [Resolvido]Ajuda com exemplo do JPaulo (ListBox)

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/08/2010

    [Resolvido]Ajuda com exemplo do JPaulo (ListBox) Empty [Resolvido]Ajuda com exemplo do JPaulo (ListBox)

    Mensagem  Mylton 25/6/2021, 02:36

    Boa noite
    Vi esse exemplo do mestre JPaulo e estou tentando adaptar.

    Criei 2 funções... ao form Exemplo modificado.

    Sub listaAtivos()
    Dim i As Integer, S As String
       
       With Me.listaAtivos
           For i = 0 To .ListCount - 1
               S = S & .ItemData(i) & "; "
           Next
       End With
             
       S = Left(S, Len(S) - 2)
       
       Me.Texto1 = S
    End Sub

    Sub listaInativos()
    Dim i As Integer, S As String
       
       With Me.lstDisp
           For i = 0 To .ListCount - 1
               S = S & .ItemData(i) & "; "
           Next
       End With
             
       S = Left(S, Len(S) - 2)
       
       Me.Texto2 = S
    End Sub

    e acrescentei a chamada

    Private Sub Comando1_Click()
    Call listaAtivos
    Call listaInativos
    End Sub


    E não funciona mais a listBox e com erro de membro ja existe em modulo de objeto em qual ja se deriva.

    Alguém poderia ajudar por favor.

    Obrigado.
    Anexos
    [Resolvido]Ajuda com exemplo do JPaulo (ListBox) AttachmentListBox_Passa_ListBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 8 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Ajuda com exemplo do JPaulo (ListBox) Empty Re: [Resolvido]Ajuda com exemplo do JPaulo (ListBox)

    Mensagem  Noobezinho 25/6/2021, 11:21

    Mylton

    Não sei o que pretende,

    mas de pronto vejo que duplicou os nomes

    das funções.

    Mude o nome das duas funções que criou para diferenciar

    das funções do JPaulo.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/08/2010

    [Resolvido]Ajuda com exemplo do JPaulo (ListBox) Empty Re: [Resolvido]Ajuda com exemplo do JPaulo (ListBox)

    Mensagem  Mylton 25/6/2021, 11:53

    Bom dia.
    Noobezinho
    Já to a caminho do trabalho (médico).
    Qdo voltar vejo.
    Mais uma vez obrigado.

    Agora se pudesse lhe incomodar um pouco a mais...
    Teria como orientar nesse assunto...
    https://www.maximoaccess.com/t39700-enxugar-melhorar-codificacao-no-exemplo

    Obrigado.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/08/2010

    [Resolvido]Ajuda com exemplo do JPaulo (ListBox) Empty Re: [Resolvido]Ajuda com exemplo do JPaulo (ListBox)

    Mensagem  Mylton 25/6/2021, 18:54

    Noobezinho
    Funcionou.
    O único senão é que copia o código dos produtos e não os nomes nas caixas de texto. Teria como modificar...
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/08/2010

    [Resolvido]Ajuda com exemplo do JPaulo (ListBox) Empty Re: [Resolvido]Ajuda com exemplo do JPaulo (ListBox)

    Mensagem  Mylton 26/6/2021, 11:50

    Resolvido.
    Obrigado Noobezinho.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Ajuda com exemplo do JPaulo (ListBox) Empty Re: [Resolvido]Ajuda com exemplo do JPaulo (ListBox)

    Mensagem  Noobezinho 26/6/2021, 12:16

    Opa!

    Resolveu então, Ótimo!

    Boa sorte!


    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 25/7/2021, 04:58