Eduardo Pérez Fernández respondió:
Pruebe con esta función (Guárdela en un módulo) Function sgte_doc(Optional dfecha As Date) As String Dim db As Database Dim rs As Recordset Dim rs1 As Recordset Dim periodo As Integer If CLng(dfecha) = 0 Then periodo = Year(Date) Else periodo =...