Hi Katrina,
The code you posted handles the incrementing of
the NEXTCASENO.
There must be some other code that detects the
EndOfYear so that the NEXTCASENO can be initilaized
when the year changes. That is probably the code
that needs to be changed.
Can you find that code and post it to us please.
Regards, Clive.
--- In MS_Access_Professionals@yahoogroups.com, ka0t1c_ang3l <no_reply@...> wrote:
>
> 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