u need to insert a timer..then program this timer as
Private Sub Timer1_Timer()
Dim i As Integer
Dim NumSecs As Long
lblTime = Format(Now, "hh:mm:ss AMPM")
With flexWorkStations
For i = 1 To .Rows - 1
If .TextMatrix(i, 6) %26lt;%26gt; "" And .TextMatrix(i, 1) %26lt;%26gt; "STAND-BY" Then
NumSecs = DateDiff("s", .TextMatrix(i, 6), Now)
.TextMatrix(i, 2) = TimeString(NumSecs)
End If
Next
End With
End Sub
then enable the timer in main program.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment