by Esmael Telmosa (7 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 15th June 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Points/HIGHLIGHTS Newly added record in the ListView
'PROCEDURE THAT HIGHLIGHTS Newly added record in the ListView
'Using ListView,Recordset,Connection,Command Button
Sub PointRecord(LstVName As ListView, SearchItm As String, f As Form)
Dim Indx As Integer
Dim X As ListItem
For Indx = 1 To CInt(LstVName.ListItems.Count)
Set X = LstVName.FindItem(Trim(SearchItm), 0, , 1)
If Not X Is Nothing Then
X.Selected = True
X.EnsureVisible
End If
Next Indx
Set X = Nothing
Set f = Nothing
End Sub