Cita:
Iniciado por inemart 
Hola a todos espero que una vez mas me puedan ayudar:
mi problemita es que necesito una rutina para no duplicar folios
estoy trabajando con un text en el cual ingreso folios de notas y estos folios los almaceno en un listview pero quiero ponerle una rutina para que no me permita almacenar un folio que ya esten almacenados en el listview es decir que no se repitan los folios que el usuario ingresa
espero que haya explicado bien mi problema
-------gracias por sus respuestas acertadas----------
Hola, puedes crear una función como ésta:
Código:
Function BuscarLV(lv As ListView, sBuscado As String) As Boolean
Dim lItem As ListItem
With lv
Set lItem = .findItem(sBuscado, lvwText)
If Not (lItem Is Nothing) Then BuscarLV = True
End With
End Function
Asume que el folio está en la primera columna del ListView
p.e. para llamar a la función desde el el evento Validate del TextBox.
Código:
Private Sub Text1_Validate(Cancel As Boolean)
If BuscarLV(ListView1, Text1.Text) = True Then
MsgBox "El folio ya existe"
Cancel = True
End If
End Sub
Suerte
