Lizbeth Roblero Morales
unread,Sep 2, 2021, 8:23:12 PM9/2/21You do not have permission to delete messages in this group
Sign in to report message
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to
Esta es mi consulta Pero al momento de ejecutarla me manda todo en cero y quiero que me enumere consecutivamente
SELECT CLIENTES.FECHA, CLIENTES.CLIENTE, CLIENTES.CEDULA, CLIENTES.TELEFONO, NumeroDeOrden([CLIENTE]) AS Consecutivo
FROM CLIENTES;
Aquí declaro mi variable
Public Function NumeroDeOrden(ByVal Dato As Variant) As String
Static Consecutivo As Long
Static DatoAnterior As String
If Dato = DatoAnterior Then
Consecutivo = Consecutivo + 1
Else
DatoAnterior = Dato
Consecutivo = 0
End If
NumeroDeOrden = Format(Consecutivo, "0000")
End Function
Espero contar con su apoyo, No tengo mucha experiencia en esto ...Linda tarde