[ασχετος]

Χριστίνα καλό απόγευμα,

Στην βάση του Θανάση "epanarithmisi", στην φόρμα "frm_idiotita" στο πεδίο 'cb0' έβγαλα τον κώδικα και στο πεδίο 'ListNumber' της δευτερεύουσας φόρμας 'Δευτερεύουσα φόρμα tbl_Persons Ετικέτα' στο συμβάν 'Before Upadate' έβαλα αυτόν τον κώδικα. Είναι τροπόποιηση του κώδικα του Θανάση. Μάλλον πρέπει να σου κάνει.

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

parent_id_idiot = Me.Parent.cb0.Column(0)
EpetNum = Nz(Me.ListNumber)

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

i = EpetNum + 1

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