Kod:
Private Sub Liste_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[tckimlikno] = '" & (Nz(Me![Liste], 0)) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Liste_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[tckimlikno] = '" & (Nz(Me![Liste], 0)) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Bu Konudaki Yorumlar |
İlgili bilgileri metin kutularına getirtemiyorum. - Yazar: yoguz - 23/05/2009, 14:03
Cvp: İlgili bilgileri metin kutularına getirtemiyorum. - Yazar: Puletin - 23/05/2009, 14:31
Cvp: İlgili bilgileri metin kutularına getirtemiyorum. - Yazar: yoguz - 23/05/2009, 15:24
Cvp: İlgili bilgileri metin kutularına getirtemiyorum. - Yazar: Puletin - 23/05/2009, 15:27
|