Access - No pasa a dos digitos

Hola a todos..

Tengo este código que me va bién hasta que llega a dos digitos.
Me da error de que crearia valores duplicados, y no se por qué.
Si alguien me puede ayudar se lo agradecería.

El código es el siguiente:

Private Sub NCERTIFICADO_Enter()

If IsNull(Me.NCERTIFICADO) = True Then
Me.NCERTIFICADO = 1
If IsNull(DMax("[Ncertificado]", "Guias") + 1) = True Then
Else
Me.NCERTIFICADO = DMax("[ncertificado]", "Guias") + 1
End If
End If
End Sub

No se donde está el error pero como he dicho, al pasar de 9 a 10 no me deja.
En realidad lo hace, pero cuando pretendo agregar otro registro, me da de nuevo el 9.

Gracias y saludos....

Hola,

La verdad es que no entiendo bien el código, si lo que quieres es un correlativo yo pondría:
Private Sub NCERTIFICADO_Enter()

If IsNull(Me.NCERTIFICADO) = True Then
Me.NCERTIFICADO = 1
Else
Me.NCERTIFICADO = DMax("[ncertificado]", "Guias") + 1
End If
End Sub

Me cuentas, saludos Angeles

http://angelessebas.es/

Fijate que el campo sea numérico y no texto.

QUIQUE

Gracias Angeles.
He adaptado el código y me funciona.
Además lo he puesto de tipo número como me dice Quique, y va perfecto.

Gracias a los dos.
Saludos...