GUARDAR EN UNA VARIABLE EL NUMERO MAS ALTO DE UN CAMPO DE UNA TABLA DE ACCESS

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