مكتبة المسؤولة على هدا الكود

السلام عليكم اخواني

وضع هذا الكود لأمر على القائمة التحرير وسرد و ظهر خطأ و الخطأ يطلب المكتبة

الكود:

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[num] = " & Str(Nz(Me![combo1], 0))

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

و الخطأ يظهر في ::Nz