cesar arroyo mexico df
17 de Enero del 2006

hola amigos, alguie podria ayudarme a saber como hacerle en vb para detectar el ultimo numero de un campo que se llama numero con un inicio de de 11700 de una tabla en access y al momento de crear un numero registro automaticamente se incremente a 11701 (incremento de 1 de ese campo)?

de antemano gracias por la ayuda
saludos desde mexico df

me pasaron este codigo pero no le entiendo muy bien como aplicarlo a el campo al que se ira incrementando y como definirlo al principio con el numero 11700 y apartir de ahi incrementarlo de uno en uno al crear un nuevo registro el usuario.

Private Sub cmdCrear_click()
data.recordste.movelast
data.updatecontrols
varNumero = txtNumero + 1
data.recordset.addnew
txtnumero = varNumero
End Sub

mvallejos
17 de Enero del 2006

Ese c贸digo no es 贸ptimo, ya que requiere tener toda la tabla abierta y se hace muy pesado cuando esa tabla tiene muchos registros.
Lo que voy a hacer ac谩, es recuperar el mayor valor de ese campo, para que se le pueda sumar uno y grabar el nuevo dato.
Por el ejemplo que pones, est谩s trabajando con librer铆as DAO y no ADO.


Dim R as DAO.Recordset
Dim Sql as String
dim Proximo as Long

Sql = "Select Max(<Campo>) From <Tabla>"
Set R = ObjDatabase.OpenRecordset(Sql)
If Not Isnull(R.Fields(0).Value) Then
Proximo = R.Fields(0).Value + 1
Else
Proximo = 1
End If

Este c贸digo, podr谩s convertirlo en una funci贸n y llamarlo desde cualquier lado de tu programa

Saludos