[dimitrisp]

Θόδωρε καλησπέρα,
Βάλε τον παρακάτω κώδικα στο συμβάν με το κλικ, αφου πρώτα τον προσαρμόσεις στα δικά σου δεδομένα, και θα σου επιστρέφει την εγγραφή που θέλεις. Όπου "ID" το "ID" της κύριας φόρμας σου.
Αν δεν τα καταφέρεις πες μας, γιατί σε μένα δουλεύει άψογα.
Κώδικας:

Private Sub ΑΦΜ_Click()

Dim CurrentID As Long
Dim stDocName As String
Dim stLinkCriteria As String
Dim rs As Object

On Error Resume Next

If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
If Err <> 0 Then
Beep
MsgBox Err.Description
Exit Sub
End If

stDocName = "ΟΝΟΜΑ ΤΗΣ ΦΟΡΜΑΣ ΠΟΥ ΘΕΛΕΙΣ ΝΑ ΑΝΟΙΞΕΙ"
stLinkCriteria = "[ID]=" & Nz(Me![ID], "Null")

DoCmd.OpenForm stDocName, acNormal, "", stLinkCriteria, , acDialog

If Not IsNull(Me![ID]) Then
Me.Refresh
Exit Sub
Else
CurrentID = Nz(DMax("[ID]", Me.RecordSource), 0)
End If

Me.Requery
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & CurrentID
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
rs.Close

End Sub






Φιλικά/Δημήτρης