bueno, he visto el enlace que me has dado y me he fijado en el siguiente ejemplo:
Cita: '************************************************* ****************************** '* Autonumerico5 '* Calcula el próximo número a asignar a un registro, partiendo del almacenado '* en una tabla Numeros cuya estructura será '* Campo Tabla Alfanumérico Indexado sin duplicados '* Campo Numero Entero Largo '* dicha tabla contendrá un registro para cada tabla que cuente con un '* campo autonumérico controlado '* Argumentos: '* uso: Autonumerico5 "Facturas" '* ESH 31/08/04 18:39 '************************************************* ****************************** Private Function Autonumerico5(strTabla As String) As Long
Dim rst As DAO.Recordset, _
strSQL As String, _
lngNumero As Long
' abro un recordset con el ultimo número guardado
On Error GoTo Autonumerico5_TratamientoErrores
strSQL = "SELECT * FROM Numeros WHERE Tabla = '" & strTabla & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
' como precaución, no debería ocurrir, pero por si acaso, me aseguro de que me devuelve datos
If Not rst.EOF And Not rst.BOF Then
' meto en una variable el ultimo número guardado
lngNumero = rst!Numero
End If
' incremento en uno el número
lngNumero = lngNumero + 1
' edito el registro
rst.Edit
' cambio el número anterior por el nuevo
rst!Numero = lngNumero
' guardo el registro
rst.Update
' cierro el recordset
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
Autonumerico5 = lngNumero
Autonumerico5_Salir:
On Error GoTo 0
Exit Function
Autonumerico5_TratamientoErrores:
MsgBox "Error " & Err.Number & " en proc. Autonumerico5 de Módulo Módulo1 (" & Err.Description & ")", vbOKOnly + vbCritical
GoTo Autonumerico5_Salir
End Function ' Autonumerico5
Y bueno, tengo un autonumérico y un campo numérico que quería pasar a autonumérico, peeero creo que me puede valer este ejemplo, el problema es que no entiendo ni papa >.<
En donde leches tengo que poner eso?