Points/HIGHLIGHTS Newly added record in the ListView
Points/HIGHLIGHTS Newly added record in the ListView
Rate Points/HIGHLIGHTS Newly added record in the ListView
(1(1 Vote))
'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
Points/HIGHLIGHTS Newly added record in the ListView Comments
No comments yet — be the first to post one!
Post a Comment