15/02/2006, 13:21
|
 | | | Fecha de Ingreso: enero-2006
Mensajes: 49
Antigüedad: 18 años, 4 meses Puntos: 0 | |
| tengo este codigo que solo hace la tarea de enumerar pero igual sirve si alguien necesita solo designar un numero distinto a cada elemento que inserte
Dim codigo As Integer
Set RS = New Recordset
RS.Open "disco_duro", CN
While Not RS.EOF
codigo = RS!num
RS.MoveNext
Wend
codigo = (codigo + 1)
num = Str(codigo) |