ارجو شرح هذا الكود

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ..

ارجو شرح كل كلمة في هذا الكود وشكر

 
Private Sub D1_AfterUpdate()
	' ابحث عن السجل الذي يطابق عنصر التحكم.
	Dim rs As Object

	Set rs = Me.Recordset.Clone
	rs.FindFirst "[رقم الطالب] = " & Str(Nz(Me![D1], 0))
	If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub