Access - POR FAVOR AYÚDENME CON UN AUTO NUMÉRICO PERSONALIZADO

Private Sub btguardar_Click()

DoCmd.Save   'Esta orden de guardar no haría falta ya que Access guarda automáticamente

Me.contador = Nz(DMax("Contador", "Tabla1"), 0) + 1

End Sub

Private Sub btguardar_Click()

DoCmd.Save

Me.contador = (Me.contador.Value) + 1

End Sub

Private Sub Form_Current()

On Error Resume Next

   If Me.NewRecord Then

   Me.contador.Value = 0

   End If

End Sub

Private Sub Form_Current()

On Error Resume Next

If Me.NewRecord Then

Me.contador = Year(Date) & Format(Nz(DMax("Val( Mid(contador, 5))", "Tabla", "Val( Left(contador,4)) = " & Year(Date)), 0) + 1, "0000")

Else

End If

End Sub

' Parámetros de la Función:

' strTab: Tabla de la cual Obtener el Campo Consecutivos.

' strCampo: Columna de la Tabla a buscar su valor consecutivo

' Modo de Uso:

' NumFactura = AutoNum("NombreTabla", "NombreCampo")

' NroMemorandum = Year(Now) &"-"& Month(Now) &"-"& AutoNum("NombreTabla", "NombreCampo")

Public Function AutoNum(strTab As String, strCampo As String) As Integer

Dim Dbs As Object

Dim RstD As Recordset, _

    strMax As String

	' Se crea la cadena SQL para obtener el valor más alto del campo

	strMax = "SELECT Max(" & strCampo & ") as Mayor FROM " & strTab

	' Valor del objeto Database actual, por defecto

	Set Dbs = CurrentDb

	' Valor del registro

	Set Rst = dbs.OpenRecordset(strMax)

	' Evaluación del campo "Mayor" de la cadena SQL

	If IsNull(RstD!Mayor) Then

		' Si está vacio

		AutoNum = 1

	Else

		' Valor maximo incrementado

		AutoNum = RstD!Mayor + 1

	End If

' Cierro seleccion del registro abierto y todo lo demás

RstD.Close

Set RstD = Nothing

Set Dbs = Nothing

End Function

' Puedes usar este

Private Sub Form_Load()

    'Al cargar el formulario

	Me.NumFactura = AutoNum("TabVentas", "NFactura")

	Me.NumFactura.Requery

End Sub

' O este segun sea tu preferencia

Private Sub Form_Open(Cancel As Integer)

    'Al abrir el formulario

	Me.NroMemorandum = Year(Now) &"-"& Month(Now) &"-"& AutoNum("TabDocum", "CodDocum")

	Me.NroMemorandum.Requery

End Sub