Which versions: This page
is for Clients 2000 SQL
What: This will add a button
to both the Batch Time Input form and the Standard Time Input form that
when pushed will take the notes written on a time slip and insert them
into the case notes.
Download
this database now in Access 2000 format
How: 1)
Open the CFW2000.mdb using the full version of Access
2)
Go to the list of forms
3)
Rename inpTime to oldinpTime
4)
Rename inpTimeBatch to oldinpTimeBatch
5)
Import the forms from Time Notes to Case Notes.mdb
6)
At this point the notes from the time slip will be added at the
end of the case notes. Continue
to the last step if this is acceptable.
However, if you want the notes added at the beginning of the case
notes follow the next few steps.
7)
Open form inpTime in design view
8)
Right click on the To Case Notes button and open the properties
9)
Click on the Event tab of the Properties box
10)
Click on Event Procedure, then on the button that appears next
to the drop down
11)
Look for the 3 lines of green text that start with a ‘, these are
comments
12)
Follow the instructions in the comments, and now the time notes
will appear at the beginning of the case notes.
13)
Save your changes
14)
Open form inpClients in design view
15)
Click on the Code button on top menu bar
16)
Find this section of code in the Visual Basic window that appears
Private Sub
Frame108_Click()
On Error GoTo P_Err
Me!MemoChange = Date
X = Me!Frame108
Me!Frame108 = 0
If X = 1 Then
yy = dateNote(1)
Me.Frame108.SetFocus <----------
DELETE THIS LINE
Me.SUMMARY.SetFocus <----------
AND THIS ONE ALSO
ElseIf X = 2 Then
Application.RunCommand acCmdSelectRecord
Application.RunCommand acCmdSpelling
ElseIf X = 3 Then
DoCmd.OpenForm "inpClZoom", , , "ClientsW.Casenum
=""" & Me!CASENUM & """"
End If
' Me.Requery
DoCmd.RunCommand acCmdSaveRecord Exit
Sub
P_Err:
MsgBox Err.Description, , Err.Number
Resume Next
End Sub
17)
Delete the 2 lines of code noted above from your workstation
18)
Click on Debug, then Compile
19)
Save the changes
20)
Compact the database
