eklediğiniz açılan kutu nun olay yordamında güncelleştirme sonrasına ekteki kodu yazmalısınz
Private Sub Açılan_Kutu11_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NO] = " & Str(Nz(Me![Açılan_Kutu11], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Adı Soyadı:
Ek.... ÇE....
Yaşı:
66
Konum:
Çankırı
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
10/05/2024,22:46
Cevapla