Sera a tutti,
sto proprio impazzendo. Vi spiego il mio problema.
Ho un progetto in cui oltre a tutto il resto vi è una ListView che ho chiamato lstADD, questa si appoggia ad un DataBase Access tutto funziona alla perfezione fino a quando non faccio una ricerca.
Mi spiego meglio. Il DB Access e la ListView hanno come prima colonna il campo “Cognome” e come seconda il campo “Nome”. In fase di registrazione sul DB e sulla List tutto è OK.
Sul form ho un bottone che mi richiama un form in cui è presente un TextBox dove inserisco il *Cognome* per la ricerca. Bene. Inserisco un *Cognome* esistente nel DB ma non me lo trova, se invece inserisco un “Nome” (che riguarda la seconda colonna). Qualcuno sa dirmi dov’è l’errore?
Questo è il codice per la ricerca:
codice:
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 1 
            Unload Me
        Case 0 
            If Len(Text1) = 0 Then
                MsgBox "Specificare un cognome valido.", vbCritical, "Errore"
                Exit Sub
            Else
                Dim sFound
                    With frmGESTDB
                        Set sFound = .lstADD.FindItem(Text1, lvwSubItem, , lvwPartial)
                            If sFound Is Nothing Then
                                MsgBox "Non è stata trovata alcuna voce come (" & Text1 & ")", vbCritical, "Errore"
                                Exit Sub
                            Else
                                sFound.EnsureVisible
                                sFound.Selected = True
                                Unload Me
                                .lstADD.SetFocus
                            End If
                    End With
            End If
    End Select
End Sub
l'errore sta nel codice o da qualke altra parte?
Grazie a tutti