Abrir FORM a partir de item selecionado em LISTVIEW?
Enviado: 12 Jan 2019 às 10:48
Private Sub btn_editar_Click()
Dim I As Long
For I = ListView1.SelectedItem.Index To 1 Step -1
If ListView1.ListItems.Item(I).Selected = True Then
frm_editor.Show
Else
MsgBox "Selecione um Registro!", vbExclamation, "Atenção"
End If
Next I
End Sub
Dim I As Long
For I = ListView1.SelectedItem.Index To 1 Step -1
If ListView1.ListItems.Item(I).Selected = True Then
frm_editor.Show
Else
MsgBox "Selecione um Registro!", vbExclamation, "Atenção"
End If
Next I
End Sub