Gurama
20 de Diciembre del 2003

Hola gente, necesito su ayuda, tengo armado el sistema con adodb el problema que tengo es que necesito tomar de un campo numerico el ultimo numero e ir incrementandolo de a 1, no me sirve pasarlo autonumerico.

gracias

naveguito
20 de Diciembre del 2003

Lo que quieres hacer es que cada vez que añadas un nuevo registro este coja un valor superior al anterior no?Bueno yo hice algo parecido pero lo hice con un control data,supongo que sera igual:

Primero defino una variable
Dim siguiente as long
if isnull(data.recordset.fields("campo de la tabla")) then
siguiente=1 'Lo hago por si no hay ningun valor
else
siguiente=data.recordset.fields("campo de la tabla")+1
end if
'despues supongo que los registros nuevos los grabaras de TextBox,si es asi solo tienes que igualar el TextBox que t interesa a siguiente.

Si te he entendido bien esto es correcto

Gurama
20 de Diciembre del 2003

Hola aqui te adjunto el codigo tal cual y como esta realizado con el agregado que me pasaste el tema es que se queda en un ciclo unico es decir siempre carga el numero 1, tendre algun error en el codigo??

Gracias

Private Sub Command1_Click()
Dim siguiente As Long
If IsNull(rst.Fields("recibo")) Then
siguiente = 1
Else
siguiente = (rst.Fields("recibo")) + 1
Text1.Text = siguiente
End If
rst!recibo = Text1.Text
End Sub

Baltasar
20 de Diciembre del 2003

Lo que falta es posicionarse en el último recibo, para así poderle sumar uno. Lo mejor sería hacer una consulta en la que te devuelva el mayor de los recibos, y a ese le sumas uno:

mrs=mdb.openrecordset("select * top 1 from recibos order by recibo desc")
if not mrs.eof then
siguiente=mrs!recibo
else
siguiente=1
endif

Saludos