ازرار تنقل في نمودج طلب تعديل على نمودج (اضافة ازرار تنقل في نمودج)

[غريب طرابلس]

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

لدي طلب من الاخوة الساهرين على هدا المنتدى  

عندي نمودج واريد تغيير اشرطة تمرير   بازرار تنقل  برمجيا 

وارفقت مثال 

Text2.rar

[jjafferr]

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

 

تفضل ، هذا الرابط فيه شرح ومرفق لمثل طلبك:

 

ولأنك تستخدم نموذج فرعي ، فرجاء استعمال هذا الكود بدل الذي في المرفق:

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 = Forms!Form1!Form2.Form
    
    Form_Title_Bar_Height = 405
    Form_Navegation_Bar_Height = 405
    Form_Header = frm.Section(acHeader).Height
    Form_Footer = frm.Section(acFooter).Height
    Form_Page_Header = frm.Section(acPageHeader).Height
    Form_Page_Footer = Me.Form.Section(acPageFooter).Height
    Form_Sections = Form_Header + Form_Footer + Form_Page_Header + Form_Page_Footer

    distance = (n * (frm.WindowHeight - Form_Sections - (Form_Title_Bar_Height + Form_Navegation_Bar_Height)))

    Forms!Form1.Form2.SetFocus
    
    DoCmd.GoToPage 1, , distance
   
Exit Sub
err_MoveScroll:

    If Err.Number = 2462 Then
        'ignore, section not available
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

تم تعديل مايو 6, 2017 بواسطه jjafferr

[غريب طرابلس]

السلا م عليكم 

 

مشكور اخ  جعفر على  الرد السريع 

والطريقة التي استخدمتها مفيدة جدا 

لقد وجدت الحل اخي جعفر وهي عن طريق اضافة  ( فاصل الصفحات )

المثال في المرفق

ليستفيد منها من يبحث عن نفس  الفكرة 

 

وشكر موصول لك  اخي الفاضل

اما المثال الدي قمت بعمله فهو دليل على تمكنك 

فشكرا يا استاد جعفر

برك الله فيك وفي الاخوة  القائمين على هدا المنتدى 

 

 

Text2V2.rar