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
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
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