وعليكم السلام   تفضل ، هذا الرابط فيه شرح ومرفق لمثل طلبك:   ولأنك تستخدم نموذج فرعي ، فرجاء استعمال هذا الكود بدل الذي في المرفق: Public Sub MoveScroll(n As Long) On Error GoTo err_MoveScroll Dim distance As Long Dim frm As Form 'Setting Constant Description '0 acDetail Form detail section '1 acHeader Form header section '2 acFooter Form footer section '3 acPageHeader Form page header '4 acPageFooter Form page footer Set frm =