Preciso muito da ajuda de vocês, vamos lá...
Estou precisando fazer uma Listview usando duas tabelas porém esta dando erro.
Segue o erro "Erro em tempo de excecução '-2147467259 (80004005)': Tipo não coincidente na expressão."
Segue meu código
Código: Selecionar todos
Sub Carregar_Itens()
numero_pedido = Me.txtPedido.Text
Call Conexao
Set Consulta = New ADODB.Recordset
Consulta.Open "SELECT Consulta_Itens_Remessa.IdItem_R, Consulta_Itens_Remessa.IdProduto_R, Consulta_Itens_Remessa.NomeProduto, TblItensPedido.Quantidade, Consulta_Itens_Remessa.SomaDeQuantidade_R, Consulta_Itens_Remessa.ValorUnitario_R, Consulta_Itens_Remessa.SomaDeValorTotal_R, Consulta_Itens_Remessa.IdPedido_R, Consulta_Itens_Remessa.IdItemCP_P from Consulta_Itens_Remessa inner join TblItensPedido on Consulta_Itens_Remessa.IdItemCP_P = TblItensPedido.IdItemCP where Consulta_Itens_Remessa.IdPedido_R = '" & numero_pedido & "'", Cn, adOpenKeyset, adLockOptimistic, adCmdTex
On Error Resume Next
'Populando o Listview1
ListView1.ListItems.Clear
While Not Consulta.EOF
Set List = ListView1.ListItems.Add(Text:=Consulta("IdItem_R")) 'Item
List.SubItems(1) = Consulta("IdProduto_R") 'Código
List.SubItems(2) = Consulta("NomeProduto") 'Produto
List.SubItems(3) = Consulta("Quantidade") 'Quantidade Pedido
List.SubItems(4) = Consulta("SomaDeQuantidade_R") 'Quantidade Remessa
List.SubItems(5) = Consulta("ValorUnitario_R") 'Valor Unitário
List.SubItems(6) = VBA.Format(Consulta("SomaDeValorTotal_R"), "##,##0.00") 'Total
List.SubItems(7) = Consulta("IdPedido_R") 'Pedido
List.SubItems(8) = Consulta("IdItemCP_P") 'IdtemCP
Consulta.MoveNext
Wend
Call Desconecta
End Sub