I have a database used by our communications center which allows dispatchers to enter incidents that occur. On this form there is a Case ID which when double clicked assigns a new case ID to the incident. I did not create this database, and because I'm not too familiar with vba coding I'm not exactly sure what to do. What we want is to have the Case ID start at 1 everyday instead of yearly. The following is the code I found when the Case ID is double clicked. If more information is needed I can try to upload the database to the Assistance Needed folder.
-----------------------
Private Sub PS_Police_case_id_DblClick(Cancel As Integer)
Dim db As DAO.Database
Dim Rec As DAO.Recordset
Dim addDate
Dim addTime
Dim CASE_Num As Double
Dim intlockretry As Integer
Const Lock_Retry_Max = 7
intlockretry = 0
Set db = CurrentDb() ' Return reference to current database.
Set Rec = db.OpenRecordset("PS_CaseID_Next_tbl", , dbDenyWrite) 'Open the Next Help Number table
'and place an exclusive lock on it
With Rec
.Edit
![NEXTCASENO] = ![NEXTCASENO] + 1 'Increment the Help Number
CASE_Num = Rec![NEXTCASENO] 'Assign new Help Number to a work variable
.Update 'Save changes to record.
End With
Rec.Close 'close the table
Set db = Nothing 'disassociate the reference
' Me.PS_Police_Case_id = "09 - " & Right("00000" & [CASE_Num], 5) 'Assign the new Help Number in the work variable to the form field
Me.PS_Police_Case_id = Right(Year(Date), 2) & " - " & Right("00000" & [CASE_Num], 5) 'Assign the new Help Number in the work variable to the form field
Me.PS_Police_Case_id.BackColor = 11796479
'MsgBox (Me.Dirty) 'IMPORTANT KEEP THIS - It determines whether your form is dirty or not
'example: true means the record has changed it should show "False"
End Sub
-------------------
Any help is appreciated!!
Thanks!
Katrina
Tidak ada komentar:
Posting Komentar