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.