MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

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

    [Resolvido]Preencher caixa de listagem

    avatar
    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    [Resolvido]Preencher caixa de listagem Empty [Resolvido]Preencher caixa de listagem

    Mensagem  joão2017 16/9/2017, 16:45

    Bom dia!
    sou iniciante no access e gostaria de uma ajuda.
    Estou preenchendo uma caixa de listagem da seguinte forma:

    Dim strItem As String, intValor As String
    strItem = Me.txtDescrição
    intValor = FormatCurrency(Me.txtValor)
    ctrlListBox.AddItem (strItem & " ; " & intValor)

    E para excluir:
    If ctrlListBox.ListIndex = -1 Then
    ctrlListBox.ListIndex = ListBox1.ListCount - 1
    End If
    ctrlListBox.RemoveItem (ctrlListBox.ListIndex)

    O problema é que quando excluo bagunça todas as colunas, o valor vai mudando de colunas
    e vai criando uma linha com todas as decimais, aí vou excluindo e vai apagando decimal por decimal,
    Como resolvo isso?


    Alterei para:

    Dim strItem As String, intValor As Currency
    strItem = Me.txtDescrição
    intValor = Me.txtValor
    ctrlListBox.AddItem (strItem & " ; " & FormatCurrency(intValor, 2))
    mas continua o problema.

    Tem como popular um formulario continuo ou folha de dados com array? Ou de qualquer outro jeito mas sem tabela ou consulta?

    Bom dia pessoal.
    Eu fiz a mesma coisa no access 2010 e funcionou direitinho, sem nenhum problema,
    nesse caso eu vou parar com access 2000 e vou passar para o 2010.
    Agradeço a todos.


    Última edição por joão2017 em 28/9/2017, 13:56, editado 4 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Preencher caixa de listagem Empty Re: [Resolvido]Preencher caixa de listagem

    Mensagem  Silvio 18/9/2017, 12:47

    Bom dia e seja bem vindo ao fórum.

    Caixas de listagens ou listbox tem como origem uma consulta ou Query ou uma instrução em SQL.

    Veja se estão os mesmos campos da tua consulta ou instrução SQL nessa tua lstbox.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    [Resolvido]Preencher caixa de listagem Empty Caixa de listagem

    Mensagem  joão2017 18/9/2017, 16:55

    Olá, eu estou preenchendo a listbox do jeito que escrevi na mensagem, não tem origem em tabela ou consulta.
    Estou enviando o exemplo para darem uma olhada.

    o que ta causando o problema é a vírgula da decimal, se eu colocar as variaveis como string e digitar "teste,teste" da o mesmo problema, se eu digitar 25.30 com ponto em lugar da virgula não da o problema
    Anexos
    [Resolvido]Preencher caixa de listagem Attachmentlistbox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 21 vez(es)


    Última edição por joão2017 em 19/9/2017, 13:40, editado 2 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Preencher caixa de listagem Empty Re: [Resolvido]Preencher caixa de listagem

    Mensagem  Silvio 18/9/2017, 18:04

    Poste o que tem já feito para analisarmos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 28/2/2021, 12:34