[kapetang]

Καλησπέρα

Βαγγέλη η υλοποίηση του ζητούμενου, νομίζω ότι δεν μπορεί να γίνει με ένα απλό ερώτημα.

Προτείνω να χρησιμοποιήσεις τον παρακάτω κώδικα:

Private Sub cmdGroup_Click()
    Dim rs As DAO.Recordset, x(999) As Long, i As Long, j As Long

    On Error GoTo errHandler

    'Το tblData να αντικατασταθεί με το πραγματικό όνομα του πίνακα
    Set rs = CurrentDb.OpenRecordset("tblData")
    With rs
        If .RecordCount Then
            .MoveFirst
            Do Until .EOF
                .Edit
                j = Val(Left(!SKU, 3))
                If x(j) = 0 Then
                    i = i + 1: x(j) = i
                End If
                ![Parent] = x(j)
                .Update
                .MoveNext
            Loop
            MsgBox "Η ενημέρωση ολοκληρώθηκε"
        End If
    End With

exitSub:
    Set rs = Nothing
    Exit Sub
errHandler:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    Resume exitSub

End Sub

Φιλικά/Γιώργος