trying to requery my listview in subform wont work. this is form is a progressbar form.
Code:
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 1
End Sub
Private Sub Form_Timer()
Call CallTest
End Sub
Private Sub CallTest()
'On Error GoTo ErrHandler
Dim oWSHShell As Object
Dim GetDesktop As String
Dim objWorkbook As Workbook
Dim rngData As Range
Dim NewRngData As Range
Dim RowCount As Long
Dim i, y, x, z As Integer
Dim li As ListItem
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim DbName As String
Set LV = Form_Test_Difference_Rept.lvExcelList.Object
For i = 1 To 10
Set li = LV.ListItems.Add(, , "test1")
li.SubItems(1) = "test2"
li.SubItems(2) = "test3"
li.SubItems(3) = "test4"
Next i
Set li = Nothing
Set LV = Nothing
'FormsRequery "MainWindow"
Form_MainWindow.ChildMainMenu.Form.Query
Exit Sub
Exit_MyProc:
If Not li Is Nothing Then
Set li = Nothing
End If
If Not LV Is Nothing Then
Set LV = Nothing
End If
Exit Sub
ErrHandler:
msg = MsgBox("Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description & "! Kindly contact your Administrator.", vbExclamation, "Test Guide!")
Resume Exit_MyProc
End Sub