olá a todos tenho uma rotina onde eu dou um clique e aperto o botão editar cadastro.
porem após isto ele só mostra o ultimo registro da minha listview o que seria e como posso resolver?
Sub INSERIR_REGISTRO_NA_FORM_DE_AGENDAMENTO()
Dim X As Integer
Dim LINHA As Integer
For X = 1 To Me.LISTA_AGENDAMENTOS.ListItems.Count
If Me.LISTA_AGENDAMENTOS.ListItems.Item(X).Checked Then
'RETORNA OS VALORES PARA CAIXA DE TEXTO DO FORMULARIO DE AGENDAMENTO
Me.MATRICULA = Me.LISTA_AGENDAMENTOS.ListItems.Item(X)
Me.NOME = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(1)
Me.TextBox1 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(2)
Me.NOME_DOCUMENTO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(3)
Me.DATA_TRANSITO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(4)
Me.HORARIOAGENDADO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(5)
Me.OBSERVAÇÕES = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(6)
Me.DESTINO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(7)
Me.MOTORISTA = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(10)
Me.VEICULO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(11)
Me.TextBox3 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(12)
Me.TextBox4 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(13)
Me.USUARIO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(14)
Me.SETOR = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(15)
End If
Next X
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E