برنامج صغير في الصفحات وطرق عرضها في النماذج

ممتاز جداً .

هل تتفضل بوضع شرح مفصل لكيفية وضع فاصل الصفحات ووضع الأكواد عليه والفائدة من فاصل الصفحات ليكون مرجعا للتعامل مع فاصل الصفحات لأن المنتدى أعتقد أنه لا يوجد فيه شرح مفصل عن فاصل الصفحات ليستفيد منه الجميع .

تحياتي ..

شكرا لك أستاذي الكريم / فهد الدوسري

لمرورك على الموضوع ،،،

شرح مبسط

نقوم بعمل التالي :-

نعمل فاصل الصفحات كما تريد ان يحتوي على فواصل 1 الى نهاية النموذج

لنفترض ان لدينا تسعة فواصل حسب ما هو مرفق في المثال ،

بعد تعبئة النموذج بالبيانات مثل الازرار التالي الى النهاية .

نعمل لة عند الفتح الكود التالي :-

كود :-

اقتباس

    Call buttonfix(2)

    nx = 1

buttonfix اسم الكود الرئيسي الذي يقوم باخفاء الازرار ويقوم بالاضهارها أيضا

الخيار رقم 2 هو يقوم باستدعاء الكود الذي يسمح بالتنقل ولو اخترنا مكان الرقم 2

برقم اخرلكانت مشكلة يعني يمكن يعكس الازرار لو أخترنا مثلا 1 يبدا من البداية ثم السابق

وهكذا .

nx = 1 لكي يقوم بِعّد الصفحات ، كما نقوم بوضعة في النموذج لكي يحسب الصفحة المحددة .

كود :-

اقتباس

  Private Sub buttonfix(theSet As Integer)

    Me![btnNext].Enabled = True    '  يخفي الزر btnNext

    Me![btnBack].Enabled = True    '  يخفي الزر btnBack

    Me![btnFirst].Enabled = True    '  يخفي الزر btnFirst

    Me![btnLast].Enabled = True    '  يخفي الزر btnLast

    Select Case theSet

    Case 1  '  هنا الخيار رقم (1)

    Me![btnBack].SetFocus    '  يركز على الزر btnBack

    Me![btnNext].Enabled = False    '  يضهر الزر btnNext

    Me![btnLast].Enabled = False    '  يضهر الزر btnLast

    Case 2  ' هنا الخيار رقم (2)

    Me![btnNext].SetFocus    '  يركز على الزر btnNext

    Me![btnBack].Enabled = False    '  يضهر الزر btnBack

    Me![btnFirst].Enabled = False    '  يضهر الزر btnFirst

    Case 3  '  هنا الخيار رقم (3)

    Me![btnNext].Enabled = True    '  يخفي الزر btnNext

    Me![btnBack].Enabled = True    '  يخفي الزر btnBack

    Me![btnFirst].Enabled = True    '  يخفي الزر btnFirst

    Me![btnLast].Enabled = True    '  يخفي الزر btnLast

    End Select

    Me.Refresh    '  يحدث النموذج

End Sub

وهنا الكود الذي يسمح لنا بالتنقل ،

كود :-

اقتباس

Private Function butmove(theSet As String)

Dim n As Integer

Dim i As Integer

Dim x As Integer

  n =  9 ' عدد الصفحات  وهنا لدينا 9 صفحات الموجود لديك او التي تريدها  .

x = Switch(theSet = "First", 1, theSet = "Next", nx + 1, theSet = "Back", nx - 1, theSet = "Last", n)

    nx = x

' الكود اعلاة  يقوم بحصر الازرار من الخطاء ويرتبها .

    Forms!أسم النموذج الذي فية فاصل الصفحات .GoToPage x

    i = Switch(x = 1, 2, x >= عدد الصفحات, 1, True, 3)

    Call buttonfix(i)  ' يقوم بالاتصال الكود الاول

End Function

اتمنى ان يكون الشرح واضح ...

مع خالص التحيات ،،،

عبدالمانع

بارك الله فيك وفي علمك ..أرجو أن يكون الشرح واضحا للجميع .

تحياتي ..