[Meteora]

Καλησπέρα...
Γιάννη καλώς μας ήλθες. Για το πρώτο ερώτημά σου, κάνε προσαρμογή του παρακάτω κώδικα και ελπίζω να σε καλύπτει.

Private Sub Diaxorisi_Click()

    Dim i As Integer

    With CurrentDb.OpenRecordset("tblOnomata", 2)
        .MoveFirst
        Do While Not .EOF
            i = InStr(1, !Ola, " ")
            If Not IsNull(i) Then
                If i > 0 Then
                    .Edit
                    !Eponimo = Trim(Left(!Ola, i))
                    !Onoma = Trim(Right(!Ola, Len(!Ola) - i))
                    .Update

                End If
            End If
            .MoveNext
        Loop
    End With
End Sub

[Ola] = το πεδίο που περιέχει ονοματεπώνυμα.

Μπορείς να 'φορτώσεις' την ρουτίνα όπου θες!

Για το δεύτερο ερώτημα ανέβασε κάποια δοκιμαστική βάση -ΣΥΜΠΙΕΣΜΈΝΗ- ώστε να δοθεί λύση. (Έχω κάποιες αμφιβολίες για το τι θες...)
Χαιρετώ / Νίκος Δ.