Jc
17 de Enero del 2006

Hola!
Quiero por favor que me ayuden es que quiero hacer una funcion o un procedimiento que me guarde en una variable‚ el valor mas alto de un campo
numerico y que se incremente a uno… a traves de la funcion MAX… me pueden apoyar ? gracias

mvallejos
17 de Enero del 2006

Function ProxId(Cn As ADODB.Connection, Campo, Tabla) As Long
Dim Sql
Dim R As New ADODB.Recordset
' Esta función retorna el próximo valor correlativo de campo
' numérico.
' El Parámetro opcional condición se agrega a la consulta agregada
Sql = "Select Max(" & Campo & ") As Mayor From " & Tabla
R.Open Sql, Cn
If Not IsNull(R!Mayor) Then
ProxId = R!Mayor + 1
Else
ProxId = 1
End If
End Function


Espero que te sirva

Saludos