Access - Alfanumerico

Bueno lo que ando nec es un campo que tenga una letra de referencia como puede ser A (que seria el tipo de fact) y 4 numeros de esta forma 0001 y que valla creciendo simulando un autonumerico.

bueno yo hice esto pero...

Private Sub Form_BeforeInsert(Cancel As Integer)

Sigtiket

End Sub



Function Sigtiket() As Long

Dim XFiltro$, XNumero&
XNumero = Val(Mid(Nz(DMax("IdCotrato", "Tabla", XFiltro)), 1)) + 1
Sigtiket = Format(XNumero, "A")

End Function

no me tira ningun error pero tampoco me pone el valor en el campo.

Bueno asi que si alguien me puede dar una manito la ando precisando.

muchos saludos juanissss

Private Sub Form_BeforeInsert(Cancel As Integer)

Sigtiket
Me.TIQUE = "A" + Sigtiket
Me.TIQUE=Me.LETRA+Sigtiket ' si lo tecleas en el formulario
End Sub
------------------- FUNCION ----------------------------
Option Compare Database
Option Explicit

Function Sigtiket() As String

Dim XNUMERO As Integer
XNUMERO = DMax("Val(Nz(Right(TIQUE, 4))) + 1", "TABLA1")
Sigtiket = Format(Str(XNUMERO), "0000")
End Function

TIQUE es un campo de longitud 5 texto
La letra se la puedes poner o fija o tecleadola en el formulario
Saludos desde Cádiz