Access - Ayuda Cambio Correlativo al cambiar año

Hola, tengo una duda. A través del buscador me encontré con este código (facilitado por Victoria), el cual he adaptado a mi aplicación, para poder asignar correlativos a presupuestos y que comiencen de cero cuando hay cambio de Periodo (año).

Private Sub Form_Load()

Dim mCad As String
Dim mRs As Recordset
mCad = "Select top 1 Periodo, NroPpto FROM [Consulta Pedidos] ORDER BY Periodo DESC"

Set mRs = CurrentDb.OpenRecordSet(mCad)

If mRs.RecordCount > 0 Then 'controlamos que hay datos

If Periodo = Year(Date) Then 'el año fiscal es el año en curso

NroPpto = mRs!NroPpto + 1

Else 'estamos en nuevo año fiscal

NroPpto = 0

End If
End If

mRs.Close

End Sub

Mi problema es que me da el siguiente error de Tipo '13' No coinciden los tipos y se detiene en la linea: Set mRs = CurrentDb.OpenRecordSet(mCad)
Le he dado vueltas, pero no me manejo muy bien.
Gracias por su ayuda.
Marcos R.

Hola Marcos intenta ponerlo de la siguiente manera .... a mi me funciona

Private Sub Form_Load()

Dim mRs As Recordset

Set mRs = CurrentDb.OpenRecordSet("Select top 1 Periodo, NroPpto FROM [Consulta Pedidos] ORDER BY Periodo DESC" )

If mRs.RecordCount > 0 Then 'controlamos que hay datos

If mRs!Periodo = Year(Date) Then 'el año fiscal es el año en curso

NroPpto = mRs!NroPpto + 1

Else 'estamos en nuevo año fiscal

NroPpto = 0

End If
End If

mRs.Close

End Sub

Espero que te sea de utilidad, sino avisame

Saludos

Sandra!

Sandra:
Lamentablemente se detiene en:

Set mRs = CurrentDb.OpenRecordSet("Select top 1 Periodo, NroPpto FROM [Consulta Pedidos] ORDER BY Periodo DESC")

Y me dice que es el mismo error 13 "no coinciden los tipos"
Marcos R,

Hola Marcos ... es una pena. Yo necesito el mismo proceso para que me cambie la numeracion de Actas y que se inicialice a 0 cada vez que cambia el año y lo tengo programado de la siguiente manera.

Dim mRs As DAO.Recordset

Set mRs = CurrentDb.OpenRecordset("SELECT NroUltActa, AnoUltActa FROM CliProv WHERE Cuenta =" & Me.Cuenta, dbOpenDynaset) (Busca el Cliente)

If mRs.RecordCount = 1 Then
If mRs!AnoUltActa = Year(Date) Then *** si el año de la ultima acta es 2008
nActa = mRs!NroUltActa + 1 ***** le suma un mumero mas al ultimo nº
Else
nActa = 1 ***** sino empieza con 1
End If
Else
nActa = 1 ***** Sino le pone directamente 1
End If

Los campos AnoUltActa es numerico al igual que NroUltActa.

El código me funciona perfectamente ....

Espero haber podido ayudarte esta vez ...

Saludos

Sandra!

Gracias Sandra. Lo voy a revisar e intentar. Creo que debe haber algo con los campos numericos y que hacen no coincidir los tipos.
Gracias nuevamente por tu ayuda.

Marcos R.
Antofagasta - Chile

Ahora si funciona.
Lo que tuve que hacer es agregar al cuadro de diálogo Referencias la biblioteca de objetos DAO para que funcionara el DAO.recordset.
Gracias, esto es lo que necesitaba para terminar mi proyecto.
Marcos R.

Marcos .... me alegro mucho!!!
Saludos desde Buenos Aires - Argentina
Sandra!