Senhores (as) boa tarde.
Estou desenvolvendo uma formulário de venda (form_pedido), onde ao preencher o cliente e o produto, é possível clicar em um botão para carregar um outro
formulário com um listview de todas as vezes que aquele determinado produto foi comprado por aquele cliente (form_historico), para consultar o ultimo valor.
Porém por alguma razão, quando eu adiciono o comando para carregar os produtos para listview do form_historico, dá um erro no botão que o chama no
form_pedido, e se eu não o carrego escrevo no comando, o formulário abre normalmente, porem somente com o cabeçalho.
Segue abaixo o código escrito até o momento, para ajuda dos membros:
Private Sub UserForm_Initialize()
'coloca cabeçalho no listview do histórico de pedido
With historico_pedido
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add Text:="Pedido", Width:=35
.ColumnHeaders.Add Text:="Data", Width:=50, Alignment:=2
.ColumnHeaders.Add Text:="Produto", Width:=150, Alignment:=0
.ColumnHeaders.Add Text:="Und", Width:=35, Alignment:=2
.ColumnHeaders.Add Text:="Qnt", Width:=40, Alignment:=2
.ColumnHeaders.Add Text:="R$ Unit.", Width:=60, Alignment:=2
.ColumnHeaders.Add Text:="R$ Total", Width:=60, Alignment:=2
End With
Call carregar_historico
End Sub
____________________________________________________________________________________________________
Private Sub carregar_historico()
Dim cliente As Integer
Dim produto As Integer
Dim linha As Integer
Dim li
form_pedido.txt_id.Text = cliente
form_pedido.txt_codigo_produto.Text = produto
linha = 2
Plan07.Activate 'consulta na planilha todos os pedidos e produtos
historico_pedido.ListItems.Clear
Do Until Cells(linha, 1) = ""
If Cells(linha, 3) = cliente And Cells(linha, 8) Then
Set li = list_historico.ListItems.Add(Text:=Format(Cells(linha, 1), "00000")) 'ID pedido
li.ListSubItems.Add Text:=Format(Cells(linha, 2)) 'Data
li.ListSubItems.Add Text:=Cells(linha, 9).Value 'Produto
li.ListSubItems.Add Text:=Cells(linha, 10).Value 'Und
li.ListSubItems.Add Text:=Cells(linha, 11).Value 'Qnt
li.ListSubItems.Add Text:=Format(Cells(linha, 12), RMask) 'R$ Unt
li.ListSubItems.Add Text:=Format(Cells(linha, 15), RMask) 'R$ Total
End If
linha = linha + 1
Loop
Set li = Nothing
End Sub
Desde já agradeço.
Atenciosamente,
Daniel de Andrade
Postado : 07/06/2016 2:33 pm