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