11-04-2026, 02:28
Sayın dsezgin, yardımlarınızla kodu şu şekilde düzenledim ve çalıştı. Emekleriniz için çok teşekkür ederim.
Private Sub Form_Click()
Dim rs As Object, BulID As Long
BulID = Me.CVRID
Set rs = Forms![Frm_VericiYeri_Frekans_Tahsisi].Recordset.Clone
rs.FindFirst "CVRID=" & str(Nz(BulID, 0))
If Not rs.EOF Then Me.Parent.Bookmark = rs.Bookmark:
DoCmd.GoToRecord , , acGoTo, rs.AbsolutePosition + 1
End Sub
Private Sub Form_Click()
Dim rs As Object, BulID As Long
BulID = Me.CVRID
Set rs = Forms![Frm_VericiYeri_Frekans_Tahsisi].Recordset.Clone
rs.FindFirst "CVRID=" & str(Nz(BulID, 0))
If Not rs.EOF Then Me.Parent.Bookmark = rs.Bookmark:
DoCmd.GoToRecord , , acGoTo, rs.AbsolutePosition + 1
End Sub
