[ασχετος]

Χριστίνα καλό σου βράδυ,

επειδή κάποτε θα χρειαστεί να διαγράψεις κάποιον, με κάποια ιδότητα, για να γίνει ξανά συνεχή αρίθμηση στο πεδίο 'ListNumber' της 'Δευτερεύουσα φόρμα tbl_Persons' πρέπει στο συμβάν, αυτής της φόρμας, 'After Del Confirm' να βάλεις αυτόν τον κώδικα

Dim EpetNum As Long
Dim parent_id_idiot As Long
Dim db As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim i As Integer
Dim rscount As Integer
Dim NumList As Integer

parent_id_idiot = Me.Parent.cb0.Column(0)

strSQL = "SELECT * " & _
" FROM tbl_Persons" & _
" WHERE [Id_idiotitas]=" & parent_id_idiot & _
" ORDER BY[ListNumber]"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
rscount = rst.RecordCount
rst.MoveFirst
NumList = rst![ListNumber]

i = NumList

If rscount = 0 Then
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub
Else
Do
rst.Edit
rst![ListNumber] = i
rst.Update
rst.MoveNext
i = i + 1
Loop Until rst.EOF
End If

rst.Close
Set rst = Nothing
Set db = Nothing

και στο συμβάν 'After Update' της ίδιας φόρμας τον κώδικα

Me.Form.Requery
DoCmd.GoToRecord , , acNewRec