Jobs
Author: Esmael Telmosa Date Submitted: 6/15/2006 Category: Microsoft Controls Compatibility: VB 6 This code has been accessed 3244 times.
Email Yourself this snippet:
No declaration
Code
'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
