husseinharby قام بنشر نوفمبر 17, 2022 مشاركة قام بنشر نوفمبر 17, 2022 (معدل) السلام عليكم اريد عند فتح التقرير الذهاب الي اخر صفحة استخدمت كود sendkeys لكنه يتسبب في مشكلة انه يقفل زرار numlock هل يوجد بديل لكود sendkeys تم تعديل نوفمبر 17, 2022 بواسطه husseinharby رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر نوفمبر 17, 2022 مشاركة قام بنشر نوفمبر 17, 2022 جرب إضافة سطر ثاني لأمر sendkeys بعد أمر الذهاب إلى آخر صفحة كالتالي: SendKeys "{NUMLOCK 2}", True ويمكنك كذلك "اللعب" في رقم 2 بالزيادة أو النقصان فربما تحل المشكلة .. يعني جرب 1 ، 2 أو 3 رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 18, 2022 الكاتب مشاركة قام بنشر نوفمبر 18, 2022 (معدل) جربت ولم تنفع تم تعديل نوفمبر 18, 2022 بواسطه husseinharby رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر نوفمبر 18, 2022 أفضل إجابة مشاركة قام بنشر نوفمبر 18, 2022 وعليكم السلام 🙂 بحثت ووجدت هذا الكود DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview 'goto last page Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{End}", True جعفر 5 1 رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 19, 2022 الكاتب مشاركة قام بنشر نوفمبر 19, 2022 شكرا استاذي الفاضل رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر نوفمبر 19, 2022 مشاركة قام بنشر نوفمبر 19, 2022 (معدل) 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 تعديل في كود الإجراء 4 رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر نوفمبر 19, 2022 مشاركة قام بنشر نوفمبر 19, 2022 وهذا كود لفتح التقرير على صفحة معينة: 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 4 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 19, 2022 مشاركة قام بنشر نوفمبر 19, 2022 (معدل) السلام عليكم 🙂 18 ساعات مضت, AbuuAhmed said: رحم الله والديك .. أزلت عنا مشكلة عاشت معنا عشرات السنين. لو تفتح موضوع خاص بهذا الحل ليكون سهل الوصول له ووالديك ان شاء الله 🙂 ولجعل الهدية تتناسب مع مناسبة العيد الوطني لبلادنا ، اود ان تقوموا بتجربة اللمسات التي لم تكن موجودة في SendKeys 🙂 جعفر SendKeys_mySendKeys.zip تم تعديل نوفمبر 20, 2022 بواسطه jjafferr تم حذف النسخة 2 ، واستبدالها بالمشاركة التالية 3 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 20, 2022 مشاركة قام بنشر نوفمبر 20, 2022 السلام عليكم 🙂 في النسخة 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 3 رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر نوفمبر 20, 2022 مشاركة قام بنشر نوفمبر 20, 2022 (معدل) ما شاء الله ، توسعت كثيرا ، عساك ع القوة أخي العزيز. لم أجرب المثال الأخير ، بس كان في اعتقادي أنه لا بد للمعامل/المعطى/المدخل الأول يكون مطلوبا/إجباريا، ربما خلطت مع لغة أخرى. ولا أنسى أن أهنئكم بالعيد الوطني لبلادكم ، وكل عام وأنتم بخير وبلادكم إلى المزيد من التقدم والرقي. تم تعديل نوفمبر 20, 2022 بواسطه AbuuAhmed رابط هذا التعليق شارك More sharing options...
حمدى الظابط قام بنشر نوفمبر 20, 2022 مشاركة قام بنشر نوفمبر 20, 2022 استاذ جعفر راقى ورائع ومبدع كاعادة شكرا لوقتك وتعبك ومجهودك لايجاد حلول تناسب احتياجات الاعضاء كل الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر نوفمبر 20, 2022 مشاركة قام بنشر نوفمبر 20, 2022 لي اقتراحين "غير ملزمين" ، هو أن يكون ترتيب المدخلات كما الأصل وكذلك قيمة Wait الافتراضية أيضا كما الأصل. رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 20, 2022 مشاركة قام بنشر نوفمبر 20, 2022 كنت خائف ان تكون بعض المتغيرات محجوزة في الاكسس ، ولكن التغيير سهل ، تغيير الكل مرة واحدة 🙂 بس لازلت غير راضي عن 3 متغيرات للدالة ، لازم ارجعها الى متغيرين اثنين كما الدالة السابقة ، انا مشغول لخشمي ، فمحتاج شوية وقت ، إلا اذا احد الخبراء اراد ان يساهم 🙂 جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان