[Meteora]

Καλησπέρα
Πρόσφατα είχα τέτοια ανάγκη, όπως αυτή που περιγράφεις Δημήτρη. Δες τι έκανα :

Private Sub sxoleio_GotFocus()

    If Not IsNull(Me.sxoleio) Then Exit Sub
    On Error GoTo efiges

    Dim lastID As Integer
    lastID = DMax("ID", "tbl_mathima")

    Me.sxoleio = DLookup("[sxoleio]", "tbl_mathima", "[ID] =" & lastID)
    Me.taxi = DLookup("[taxi]", "tbl_mathima", "[ID] =" & lastID)
    Me.katigoria = DLookup("[katigoria]", "tbl_mathima", "[ID] =" & lastID)

    Me.mathima.SetFocus
efiges:
End Sub

Με την εστίαση στο πρώτο πεδίο της νέας εγγραφής, διαβάζω το ID της προηγούμενης εγγραφής και εύκολα τις τιμές τριών πεδίων που αντιστοιχούν σε αυτή. Μετά όλα είναι εύκολα.
Ελπίζω να βοηθείς

Με εκτίμηση
Νίκος