فتح اخر صفحة في التقرير

[husseinharby]

السلام عليكم

اريد عند فتح التقرير الذهاب الي اخر صفحة

استخدمت كود sendkeys لكنه يتسبب في مشكلة انه يقفل زرار numlock

هل يوجد بديل لكود sendkeys

تم تعديل نوفمبر 17, 2022 بواسطه husseinharby

[AbuuAhmed]

جرب إضافة سطر ثاني لأمر sendkeys بعد أمر الذهاب إلى آخر صفحة كالتالي:

SendKeys "{NUMLOCK 2}", True

ويمكنك كذلك "اللعب" في رقم 2 بالزيادة أو النقصان فربما تحل المشكلة .. يعني جرب 1 ، 2 أو 3 

[husseinharby]

جربت ولم تنفع

تم تعديل نوفمبر 18, 2022 بواسطه husseinharby

[jjafferr]

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

 

بحثت ووجدت هذا الكود

    DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview
    
    'goto last page
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "{End}", True

 

جعفر

[husseinharby]

شكرا استاذي الفاضل

[AbuuAhmed]

23 ساعات مضت, jjafferr said:

بحثت ووجدت هذا الكود

رحم الله والديك .. أزلت عنا مشكلة عاشت معنا عشرات السنين.
لو تفتح موضوع خاص بهذا الحل ليكون سهل الوصول له.

تفاديا لتكرار هذه السطور يفضل تحويلها إلى إجراء يستدعى كما الإجراء الأصل كالتالي:
 

Sub mySendKeys(String_ As String, Optional Wait As Boolean = False)
    Dim WshShell As Object
       
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys String_, Wait
    Set WshShell = Nothing
End Sub

وتستدعى كالتالي:
 

mySendKeys "{End}", True

 

تم تعديل نوفمبر 19, 2022 بواسطه AbuuAhmed
تعديل في كود الإجراء

[AbuuAhmed]

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

Private Sub Report_Open(Cancel As Integer)
    PageNo = 5  'required page
    
    If PageNo > 1 Then
        String_ = "{PGDN " & PageNo - 1 & "}"
        mySendKeys String_, True
    End If
  End If
End Sub

 

[jjafferr]

السلام عليكم 🙂

18 ساعات مضت, AbuuAhmed said:

رحم الله والديك .. أزلت عنا مشكلة عاشت معنا عشرات السنين.
لو تفتح موضوع خاص بهذا الحل ليكون سهل الوصول له

 

ووالديك ان شاء الله 🙂

ولجعل الهدية تتناسب مع مناسبة العيد الوطني لبلادنا ، اود ان تقوموا بتجربة اللمسات التي لم تكن موجودة في SendKeys 🙂
 

 

 

جعفر

 

SendKeys_mySendKeys.zip

تم تعديل نوفمبر 20, 2022 بواسطه jjafferr
تم حذف النسخة 2 ، واستبدالها بالمشاركة التالية

[jjafferr]

السلام عليكم 🙂

 

في النسخة 3 ، جعلت الاختيار الاول اختياري :

Function mySendKeys(Optional ByVal v As sk_SendKeys, Optional ByVal op_value As String = "", Optional ByVal Wait As Boolean = True) As String

.

هذا يسمح لنا بمرونة اكثر ، فمثال اخوي ابو احمد عن الانتقال الى الصفحة رقم 6 (في الواقع هي 6-1=5) مثلا :

وبعدني مو راضي ، اكيد فيه مجال للتحسين 

 

جعفر

SendKeys_mySendKeys_3.zip

[AbuuAhmed]

ما شاء الله ، توسعت كثيرا ، عساك ع القوة أخي العزيز.

لم أجرب المثال الأخير ، بس كان في اعتقادي أنه لا بد للمعامل/المعطى/المدخل الأول يكون مطلوبا/إجباريا، ربما خلطت مع لغة أخرى.

 

ولا أنسى أن أهنئكم بالعيد الوطني لبلادكم ، وكل عام وأنتم بخير وبلادكم إلى المزيد من التقدم والرقي.

تم تعديل نوفمبر 20, 2022 بواسطه AbuuAhmed

[حمدى الظابط]

استاذ جعفر

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

[AbuuAhmed]

لي اقتراحين "غير ملزمين" ، هو أن يكون ترتيب المدخلات كما الأصل وكذلك قيمة Wait الافتراضية أيضا كما الأصل.

[jjafferr]

كنت خائف ان تكون بعض المتغيرات محجوزة في الاكسس ، ولكن التغيير سهل ، تغيير الكل مرة واحدة 🙂

بس لازلت غير راضي عن 3 متغيرات للدالة ، لازم ارجعها الى متغيرين اثنين كما الدالة السابقة ، انا مشغول لخشمي ، فمحتاج شوية وقت ، إلا اذا احد الخبراء اراد ان يساهم 🙂

 

جعفر