Jump to content

raffrenan

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About raffrenan

  1. raffrenan

    EXCEL + VBA [ LISTVIEW ]

    E ae galera, seguinte, estou desenvolvendo um sistema em vba no excel para a empresa que trabalho, porém estou utilizando um sistema de consulta com listview, onde ele busca do banco de dados, porém preciso que esses dados sejam mostrados em uma textbox específica, porém não estou conseguindo, segue o código: Private Sub Btn_Consulta_Click() Dim strSql As String ID = Me.TxtConsulta Set rs = New ADODB.Recordset strSql = "SELECT ID_Monitor AS [Código], Nome AS [Nome do Operador]," strSql = strSql & " * FROM Monitores WHERE ID_Monitor LIKE '" & ID & "'" rs.Open strSql, MiConexao On Error Resume Next Me.Lista.ListItems.Clear With Me.Lista .View = lvwReport .Gridlines = True .FullRowSelect = True .ColumnHeaders.Clear For i = 0 To rs.Fields.Count - 1 .ColumnHeaders.Add i + 1, , VBA.UCase(rs(i).Name) Next i End With While Not rs.EOF Set Lrst = Me.Lista.ListItems.Add(Text:=rs(0)) Lrst.SubItems(1) = rs(1) Lrst.SubItems(2) = rs(2) Lrst.SubItems(3) = rs(3) Lrst.SubItems(4) = rs(4) Lrst.SubItems(5) = rs(5) Lrst.SubItems(6) = rs(6) rs.MoveNext Wend Me.TxtConsulta = "" Me.TxtConsulta.SetFocus End Sub Private Sub Lista_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim Linha As Variant Linha = Me.Lista.List.Index Me.TxtNomeView = Me.Lista.List(Linha, 3) End Sub Private Sub UserForm_Initialize() Call Conecta End Sub Lembrando que ele consulta normalmente e mostra na listview, porém quando eu clico em uma opção da lista ele retorna erro.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.