Private Sub SozlesmeID_DblClick(Cancel As Integer)
Dim stDocName As String

DoCmd.OpenForm "Frm_Cari_SozlesmeGiris"
Dim rs As Object
Set rs = Forms!Frm_Cari_SozlesmeGiris.Recordset.Clone

stLinkCriteria = "[SozlesmeID]=" & "'" & Me![SozlesmeID] & "'"


rs.FindFirst "[SozlesmeID]=" & Me![SozlesmeID]
If Not rs.EOF Then Forms!Frm_Cari_SozlesmeGiris.Bookmark = rs.Bookmark

DoCmd.Close acForm, Me.Name
End Sub

bu kodu ekle dene