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.
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)