Private Sub Açılan_Kutu1_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Id] = " & Str(Nz(Me![Açılan Kutu1], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
merhabalar bu kod bölümü ne işe yarar biraz açıklanmısınız. Bunu yazmadan da işlemimi yapabiliyorum.
Açılan kutu ile seçtiğiniz veriye ait kaydın ilgili formunuzda bulunarak getirilmesi için kullanılmaktadır. Yani Açılan Kutu güncellendiğinde seçtiğiniz kayıta uygun verileri arayıp bulmaya yarar. Sizin örneğinizde açılan kutunun ilişkili olduğu sütun ile formunuzun kayıt kaynağında yer alan ID isimli alanı eşleştirmektedir. Tabi bu arada Açılan Kutunun ilişkili alanının ID olması gerekmektedir.
Konu sahibi arkadaşın cevabın yeterli olup olmadığı hakkında geri dönüş yapması rica olunur.
Açıklamanız çok faydalı oldu. İlginize teşekkürler.
Rica ederim. Biz teşekkür ederiz.