[kapetang]

Καλησπέρα στην παρέα

Τζίμη, έχεις δίκιο. Ο σωστός κώδικας είναι ο παρακάτω.

Private Sub Σύνθετο_πλάσιο64_AfterUpdate()
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
    rs.FindFirst "[ΑΡ_ΜΗΤΡΩΟΥ] = " & Str(Nz(Me![Σύνθετο_πλάσιο64], 0))
    If rs.NoMatch Then
        MsgBox "Δε βρέθηκε το ζητούμενο"
    Else
        Me.Bookmark = rs.Bookmark
    End If
    rs.Close
End Sub

Δες και το παράδειγμα που επισυνάπτω

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