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.