Buenas!
Este código promete criar um numerador numa consulta. Porém não consegui fazer funcionar. Testei com uma tabela Clientes criada para esse fim e dá o seguinte erro:
Nome ambíguo. na expressão de consulta 'numerarSQL([Códigodocliente])'.
Códigodocliente é um campo com algarismos, porém o formato é texto (00500, 00525, ...) e não possui sequência.
Alguém poderia me dizer se fiz algo errado?
' inicio
Public Function numerarSQL(nDato) As Long
' Cortesia Juan M. Afán de Ribera
Static nORDEN As Integer
If IsNull(nDato) Then
nORDEN = 0
Exit Function
End If
nORDEN = nORDEN + 1
numerarSQL = nORDEN
End Function
' final
Agora crie uma consulta em Sql
SELECT numerarSQL([Códigodocliente]) AS Seqëncia, * FROM Clientes
UNION ALL SELECT numerarSQL(Null), * FROM clientes WHERE 1=0;
Baseado na tabela clientes do Northwind
Códigodocliente - vai contar com base nele.
Clientes - é nome da tabela.
Sequëncia - é nome do campo que vai ser exibido - 1, 2 , 3 - é criado pelo módulo.
Este código promete criar um numerador numa consulta. Porém não consegui fazer funcionar. Testei com uma tabela Clientes criada para esse fim e dá o seguinte erro:
Nome ambíguo. na expressão de consulta 'numerarSQL([Códigodocliente])'.
Códigodocliente é um campo com algarismos, porém o formato é texto (00500, 00525, ...) e não possui sequência.
Alguém poderia me dizer se fiz algo errado?
' inicio
Public Function numerarSQL(nDato) As Long
' Cortesia Juan M. Afán de Ribera
Static nORDEN As Integer
If IsNull(nDato) Then
nORDEN = 0
Exit Function
End If
nORDEN = nORDEN + 1
numerarSQL = nORDEN
End Function
' final
Agora crie uma consulta em Sql
SELECT numerarSQL([Códigodocliente]) AS Seqëncia, * FROM Clientes
UNION ALL SELECT numerarSQL(Null), * FROM clientes WHERE 1=0;
Baseado na tabela clientes do Northwind
Códigodocliente - vai contar com base nele.
Clientes - é nome da tabela.
Sequëncia - é nome do campo que vai ser exibido - 1, 2 , 3 - é criado pelo módulo.