Replies

I couldnt get further elaboration in the other thread, any ideas?

the text box is linked to the code by pulling the range:

Range(“A” & i) = timebox.value

to navigate, I reverse/advance it:
i = i + 1
Timebox.value = Range(“A” & i)
‘simulates “Next” button click.

I edited the values as you suggested, and Hey! that works! ) Seems I need to tweak it a little.. the Submit button is iffy..

THANKS!

Great Suggestion Jim!
I don’t have a need for negatives as i’m dealing with call-times! )

For all those interested, Rory(M) has supplied the answer to this question in this thread.

It formats as the time until I ‘navigate’ back to the previous entry. Although the host cells are formatted as time, the timebox is returning the value as ‘general’.

Thanks!

Okay, one more small hurdle..

I am using the following code to halt the timer if they click on a ‘submit’ button to enter a new record:

*************CODE START**************
Sub MoveSubmitButton_Click()
If Timebox.Value > “00:00:00” Then
If MsgBox(“Time will Stop, Continue?”, vbOKCancel, “Time still Elapsing”) = vbOK Then
Call cmdstartclock_Click
End If
Else
Exit Sub
End If
*****************CODE END******************
The problem is, even if they stop the clock, the value is greater than “00:00:00” which results in a “click.”

Is there any way to refer to the code you provided?

Thanks!
Drk.
textLast one, I swear!

Did anyone ever tell you you’re a GOD? it works like a charm!!! Say, do you have any insight on making my timebox display the time? I believe I had posted that question in another thread… here
THANKS!!

Here she is!

********CODE START*******
‘code module of frmtracking
Public dblStarted As Double, dblStopped As Double, dblScheduled As Double
Sub cmdstartclock_Click()
Static blnStarted As Boolean
If blnStarted = False Then
dblScheduled = Now + TimeValue(“00:00:01”)
RunOnTime
dblStarted = Now
With Me
.cmdstartclock.Caption = “Stop”
.Timebox = Format(Now – dblStarted, “hh:mm:ss”)
End With
Else
dblStopped = Now
With Me
.cmdstartclock.Caption = “Start”
.Timebox = Format(dblStopped – dblStarted, “hh:mm:ss”)
End With
Application.OnTime dblScheduled, “TimeUpdate”, , False
End If
blnStarted = Not blnStarted
End Sub
Sub RunOnTime()
Application.OnTime dblScheduled, “TimeUpdate”
End Sub
***************CODE END**************

In the Workbook initialize, i have placed the following code:
*************CODE START**************
Public Sub TimeUpdate()
With ClientSupportTrack
.Timebox = Format(Now – .dblStarted, “hh:mm:ss”)
.dblScheduled = .dblScheduled + TimeValue(“00:00:01”)
.RunOnTime
End With
End Sub
*********************CODE END********************

Thanks Rory!

Brilliant! Through a combination of the two, I have a seamless transaction, which still alerts the user, Marvelous!

Thank You!!!!

I’ve pasted the code as is, and modified it to fit my labels, and commands.

I’m getting the following error:

Run-time error ‘1004’:
Method ‘OnTime’ of object ‘_Application’ failed

Debug is referencing line 17 of the sample you provided.

Any ideas?

Thanks Millions Guys!
Drk.

Indeed, congrats to all the stars and moderators, Great job! I’m learning, it’s great, well done!

I’ve added an exit sub statement, in the following syntax:
‘****CODE START******
…
MsgBox “Are you sure you want to submit your call statistics for today?”, vbOKCancel, “Verify Finalization”
If vbCancel Then Exit Sub
…
‘********CODE END*********

But, even when I click on OK now, it’s not proceeding… is this correct syntax to specify that only if I click “Cancel” it’s to end the sub?

I’ve added an exit sub statement, in the following syntax:

MsgBox “Are you sure you want to submit your call statistics for today?”, vbOKCancel, “Verify Finalization”
If vbCancel Then Exit Sub

But, even when I click on OK now, it’s not proceeding… is this correct to specify that only if I click “Cancel” it’s to end the sub?

Okay,

Heres what i’ve got!
‘******************CODE START***************
Dim strExists
strExists = Dir(“C:WINDOWSTEMPtoday.xls”, vbDirectory)

If Len(strExists) > 0 Then
MsgBox “Are you sure you want to finalize?”, vbOKCancel, “Verify Finalization”
If vbCancel Then ‘???????????
MsgBox “Please Overwrite Existing File”, vbOKOnly, “File Already Exists.”
Else
End If
ActiveWorkbook.SaveAs FileName:=”C:WINDOWSTEMPtoday.xls”, FileFormat:= _
xlNormal, Password:=””, WriteResPassword:=””, ReadOnlyRecommended:=False _
, CreateBackup:=False
‘*************CODE END************
The problem I am having is how do I step over the save command if the user clicks on Cancel? how do I abort the sub?

Apparently not, there is TOOLS, ADD-INS… it seems it would be there, but there’s no reference to Microsoft Scripting Runtime. Bummer too, I have 2k at home…

As for the discussion, looks like there may be a helpful item or two there, the msgbox components look promising, I will post back if they don’t work.

Thanks Millions!
Drk.

This option is in Excel ’97, correct?