Como actualizo unos contadores en una tabla

Prueba con esto.
Añade donde tengas la función de generar el código de proyecto lo siguiente.
*******************************
dim sql as string
sql = "UPDATE TABLACONTROL SET Num = Num+1 WHERE Area = " & me.CAMPOAREA
docmd.runsql sql
*******************************
Ahora pon los nombre correctamente.
TABLACONTROL= Nombre de la tabla control
me.CAMPOAREA = Nombre del campo area que vas a actualizar

Muchas gracias por tu atención.
Creo que lo he interpretado bien y he puesto lo siguiente:
sql = "UPDATE TbClase SET TbClase.CodNumero = TbClase.CodNumero+1 WHERE CodClase = " & rgTareas("CodClase")
DoCmd.RunSQL sql
Me pide el valor del parámetro.
De todas formas, se me ha ocurrido probar algo que si me ha funcionado. Supongo que será equivalente. He puesto lo siguiente:
rgTareas.Edit
rgTareas("CodNumero") = rgTareas("CodNumero") + 1
rgTareas.Update
rgTareas.Close
Lo que no tengo claro si hace falta la última fila, porque la ponga o no funciona bien.
El código completo es:
Private Sub Clase_BeforeUpdate(Cancel As Integer)
Set dbTareas = CurrentDb
CampoFrom = "TbClase"
CampoWhere = "CodClase='" & Forms![Formulario1].Clase & "'"
CampoOrder = "CodClase"
sqlTareas = "SELECT * FROM " & CampoFrom & " WHERE " & CampoWhere & " ORDER BY " & CampoOrder
Set rgTareas = dbTareas.OpenRecordset(sqlTareas)
Forms![Formulario1].FClase = rgTareas("Clase")
Forms![Formulario1].FCodClase = rgTareas("CodClase")
Forms![Formulario1].FCodNumero = rgTareas("CodNumero")
Forms![Formulario1].FObservaciones = rgTareas("Observaciones")
Var01 = CStr(rgTareas("CodNumero"))
Do While Len(Var01) < 4
    Var01 = "0" + Var01
Loop
Forms![Formulario1].Codigo = rgTareas("CodClase") & Var01
'Estas tres líneas incrementan el contador y guardan el valor incrementado en la tabla
rgTareas.Edit
rgTareas("CodNumero") = rgTareas("CodNumero") + 1
rgTareas.Update
rgTareas.Close
End Sub
Las preguntas son: si lo que me indicas es equivalente y si es necesario el comando rgTareas.Close
Muchas gracias