| ebolo |  |
|
2007-11-04 00:59 - Respuestas: 5 - Tema nº: 2479417
Hola...
lo que te he hecho es que al llamar el formulario, se autonumera el campo y ya te lo muestra en el formulario continuo (formulario tabular).
He supuesto que el formulario lo tienes filtrado por una fecha determinada.
Private Sub Form_Load()
Dim rs1 As Recordset, n As Integer
n = 1
consulta = "SELECT tabla1.Id, tabla1.num from tabla1"
consulta = consulta & " where " & Me.Filter
consulta = consulta & "order by tabla1.Id"
Set rs1 = CurrentDb.OpenRecordset(consulta)
While Not rs1.EOF
consulta = "UPDATE tabla1 set tabla1.num=" & n
consulta = consulta & " where tabla1.id=" & rs1!Id
CurrentDb.Execute consulta
rs1.MoveNext
n = n + 1
Wend
rs1.Close
Set rs1 = Nothing
Me.Requery
End Sub
adaptalo a tu tabla y campo.
Un saludo.
| |
|
