G
Gee
I have a form that is always open because it needs to run a timer to send
emails after a call has been open for a certain amount of time,
TimerForm...it times NOC calls.
That form is run by a query which is attached to a table that ALL the forms
are attached to.
What I need is that when a record is changed in the SvcForm, it needs to
update on the TimerForm that is open always.
How do I update an open form? I've been trying to get this solved and am
starting to get disparate.
Thank you in advance for any help you can give me.
This is my code for the TimerForm:
Private Sub Form_Timer()
Dim currentTime As Date
currentTime = Format(Now(), "h:m:s")
Me.txtCurrentTime.Value = currentTime
If CallDate > 0 Then
NOC = DateDiff("s", TimeValue(CallDate), TimeValue(txtCurrentTime))
End If
If NOC = "400" Then
DoCmd.SendObject acSendReport, "NOCR", acFormatSNP, Me.Text39, , , "NOC
AGING", Me.CallNo, False
End If
If NOC = "2700" Then
DoCmd.SendObject acSendReport, "NOCR", acFormatSNP, Me.Text39, , , "NOC
AGING", Me.CallNo, False
End If
If CallDate > 0 Then
DoCmd.GoToRecord , , acNext
Else: DoCmd.GoToRecord , , acFirst
End If
End Sub
emails after a call has been open for a certain amount of time,
TimerForm...it times NOC calls.
That form is run by a query which is attached to a table that ALL the forms
are attached to.
What I need is that when a record is changed in the SvcForm, it needs to
update on the TimerForm that is open always.
How do I update an open form? I've been trying to get this solved and am
starting to get disparate.
Thank you in advance for any help you can give me.
This is my code for the TimerForm:
Private Sub Form_Timer()
Dim currentTime As Date
currentTime = Format(Now(), "h:m:s")
Me.txtCurrentTime.Value = currentTime
If CallDate > 0 Then
NOC = DateDiff("s", TimeValue(CallDate), TimeValue(txtCurrentTime))
End If
If NOC = "400" Then
DoCmd.SendObject acSendReport, "NOCR", acFormatSNP, Me.Text39, , , "NOC
AGING", Me.CallNo, False
End If
If NOC = "2700" Then
DoCmd.SendObject acSendReport, "NOCR", acFormatSNP, Me.Text39, , , "NOC
AGING", Me.CallNo, False
End If
If CallDate > 0 Then
DoCmd.GoToRecord , , acNext
Else: DoCmd.GoToRecord , , acFirst
End If
End Sub