Ordinamento Automatico Righe

[FROST220684Partecipante FROST220684]

riuscito sbagliavo codice

Public Sub form_listview_dblclick(frm As Object)
Dim i As Integer
Dim f As Range
Dim r As Range
Dim LI As ListItem
    
    Set LI = frm.ListView1.SelectedItem
    
    If LI Is Nothing Then Exit Sub
    
    Set r = active_table(frm)
    Set r = r.Resize(r.Rows.Count)
    
    Set f = r.Columns(1).Find(LI, LookIn:=xlValues, LookAt:=xlWhole)
    f.EntireRow.Select
    f.EntireRow.Hidden = False

    For i = 1 To r.Columns.Count - 1
        frm.Controls("Textbox" & i) = f.Offset(, i)
    
        
    Next
    frm.TextBox1.Tag = 1
    frm.btnSearch.Enabled = False
frm.btnInsert.Enabled = False
    Set r = Nothing
Set f = Nothing
Set LI = Nothing
End Sub

[FROST220684Partecipante FROST220684]

naturalmente cosi dopo aver cliccato su salva o su elimina mi manteneva il disable sui tasti, li ho dovuti riattivare al click su salva, elimina e cancella form

[Autore]

Articoli