[kapetang]

Καλησπέρα

Θα πρέπει να διαμορφωθεί ο κώδικας ως εξής:

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

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

Αν το πεδίο [ΑΡ_ΜΗΤΡΩΟΥ] δεν είναι αριθμητικό ή γραμμή αναζήτησης θα πρέπει να αντικατασταθεί με την:

rs.FindFirst "[ΑΡ_ΜΗΤΡΩΟΥ] ='" & Str(Nz(Me![Σύνθετο_πλάσιο64], 0)) & "'"

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