تصحيح كود

الكود الصحيح لفتح النموذج الثاني على نفس السجل الذي تم اختياره يكون بهذا الشكل

Private Sub showrecord_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[LastName]=" & "'" & Me!LIST.Column(1) & "'"
DoCmd.OpenForm "Subscribers", acNormal, , stLinkCriteria
End Sub

MJ.rar

شكرا اختي زهره صححت الكود وهذا هو التصحيح وعمل معي الف شكر

' Find the selected record, then close the dialog box.



Dim rst As DAO.Recordset



' Store the recordset for the Subscribers form.

Set rst = Forms!Subscribers.RecordsetClone



' Locate the record for the selected subscriber.

rst.FindFirst "SubscriberID = " & List0



' Set the form's Bookmark property to move to the record.

Forms!Subscribers.Bookmark = rst.Bookmark



' Close the dialog box.

DoCmd.Close acForm, "GoToRecordDialog"