Private Sub Barkod_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[BarkodSeriNo] = '" & Me![Barkod] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
If ([Barkod] = BarkodSeriNo) Then
Else
MsgBox "mesajınızı buraya yazabilirsiniz", 64, "İsmail ÇINAR"
End If
End Sub
verdiğiniz kodu metin kutusunun adını barkod olarak değiştirerek denedim fakat hata veriyor Me.Bookmark = rs.Bookmark kısmını sarı ile işaretliyor.
erkanb, 06-11-2009 tarihinden beri AccessTr.neT üyesidir.