having troble with my task# auto population.

[shaqfu01]

I have a access database that I have been using for years, but I lot my codes to help me change the New task for the year. when I start typing in he info it should auto populate a new year and task number like (2018-0001) but it is not work. this is the code that is there.

Private Sub New_Task_Click()
On Error GoTo Err_New_Task_Click
 
    Dim curnum As Integer
    Dim curyr As Integer
    'DoCmd.GoToRecord , , acNewRec
    Dim rcrds As Recordset
    Set rcrds = CurrentDb.OpenRecordset("SELECT [Task #], Classification FROM [Tbl:Geo Task Database] ORDER BY [Task #] DESC")
 
    curnum = Right(rcrds![Task #], 4)
    curyr = Left(rcrds![Task #], 4)
    rcrds.AddNew
 
    If Year(Now) = curyr Then
    rcrds![Task #] = Year(Now) & Format(curnum + 1, "0000")
    Else
    rcrds![Task #] = Year(Now) & "0001"
    End If
 
    rcrds![Classification] = "UNCLASS"
    rcrds.Update
    Me.Requery
    DoCmd.GoToRecord , , acFirst
 
Exit_New_Task_Click:
    Exit Sub
 
Err_New_Task_Click:
    MsgBox Err.Description
    Resume Exit_New_Task_Click
 
End Sub

[twinnyfo]

shaqfu01,

Welcome to Bytes.

To say that your code does not work is not very helpful. Exactly what is not working? Is the code generating an error? If so, what error? If not, is the code producing an unexpected result?

This information will help us to understand and troubleshoot your problem.

Thanks!