08/02/2011, 16:18
merhaba bir yerden kod buldumda o kodun anlamını araştırmalarım sonucundada ne anlama geldiğini bulamadım yardımcı olursanız sevinirim..
Private Sub Açılan_Kutu63_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MÜSTERİNO] = " & Str(Nz(Me![Açılan Kutu63], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Açılan_Kutu63_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MÜSTERİNO] = " & Str(Nz(Me![Açılan Kutu63], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub