(17/03/2010, 21:13)fox35 yazdı: DoCmd.OpenForm "frm1" 'ilgili formu açıyor
rs.FindFirst criteria 'kriteri uyguluyor
Me.Bookmark = rs.Bookmark 'kritere uyan kaydı işaretliyor
Kod:
Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm1"
stLinkCriteria = "[SNO]=" & "'" & Me![SNO] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut1_Click:
Exit Sub
Err_Komut1_Click:
MsgBox Err.Description
Resume Exit_Komut1_Click
End Sub