No es difícil, todo consiste en saber como "rellenas" ese campo Contador. Por ejemplo, supongamos que tienes una tabla Clientes(¡ Que original el nombre !) Con Idcliente, etc. Añádele un campo numérico Contador. Supongamos que ahora mismo ya tienes datos en esa tabla. En el formulario añádele un botón de comando y entre Private Sub y End sub pon
Dim i As Integer
For i = 1 To Form.Recordset.RecordCount
Contador = Nz(DLast("contador", "clientes", "idcliente<" & Me.Idcliente & "")) + 1
If Contador = 201 Then
Contador = 1
End If
DoCmd.GoToRecord , , acNext
Next
DoCmd.GoToRecord , , acFirst
Una vez que te haya numerado los registros puedes borrar el código y el botón.
Entonces, en el evento Al recibir el enfoque del cuadro de texto Contador puedes poner, por ejemplo
If Me.NewRecord Then
Contador = Nz(DLast("contador", "clientes", "idcliente<" & Me.Idcliente & "")) + 1
If Contador = 201 Then
Contador = 1
End If
End If
Depende de donde tengas puesto en la tabla el campo Contador