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

السلام عليكم 🙂 اخوي ابو ماجد 🙂 ارفق بيانات حقيقية ، فبسبب هذه البيانات صعب اللعب في البرمجة 🙂

وعليكم السلام اخوي ابو احمد 🙂 لي الشرف ، وشكرا على جميل كلماتك 🙂 في الواقع كنت اشتغل عليه طول الوقت ، واردت ان اضيف عليه ميزة Intellisense (وهي نفس الطريقة التي تُظهر بقية الاوامر لما نكتب النقطة بعد docmd ) ، والتي هي غير موجودة في دالة SendKeys الاصلية ، فأخذ مني كل هذا الوقت 🙂 وارفقت المرفق في الموضوع السابق 🙂 جعفر

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

وعليكم السلام 🙂 1. لم اصادف او اسمع مثل هذه المشكلة ، ولكن المعتاد هو عمل البرنامج على النسخة الاقدم من اكسس ، حتى تعمل على النسخ الاحدث ، بمعنى ، اذا اردت استعمال برنامجك على جميع نسخ الاكسس ، فاعمل برنامجك بصيغة MDB ، اما اذا اردت الاستفادة من مزايا صيغة ACCDB ، فاستعمل نسخة 2007 (او حتى اذا اردت استعمال صيغة 2010 ، فلا تستعمل مزايا 2010 ، لأن هناك مستخدمين عندهم النسخة الاولى من 2007 وبدون تحديثات ، فلن تعمل معهم. 2. كذلك لم اصادف او اسمع مثل هذه المشكلة !! نعم ، اذا عندك مكتبات 32بت فلن تعمل في الاكسس 64بت ، وفي الرابط طريقتين لحل المشكلة . جعفر

وعليكم السلام اخي احمد 🙂 بداً اردد قول اخي موسى ، ونقطة وانتهى السطر 🙂 الاخوة عندهم "اقتراحات" وانت غير مُلزم حتى بالرد/النظر فيها ، فلا تزعل 🙂 ولتوضيح الكلام عن الريبون/القائمة ، ان الطريقة المتبعة للبرامج وخصوصا برامج الاوفيس من الاصدار 2007 ، هو الريبون بدلا عن القائمة ، ولكن هذا ليس معناه ان عندك اسبابك في استخدام هذه الطريقة بدلا عن تلك 🙂 جعفر

وعليكم السلام 🙂 انصحك بقراءة هذا الموضوع جعفر

رجاء قراءة الموضوع التالي جعفر

وعفوا ، رجاء تخبرنا كيف تريد النتائج تكون ، ولو تعملها على ملف اكسل ، او اكتبها لنا هنا

وعليكم السلام 🙂 بحثت ووجدت هذا الكود DoCmd.OpenReport "rpt_SalesReportBO_Ar", acViewPreview 'goto last page Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{End}", True جعفر

وعليكم السلام 🙂 اريد مرفق فيه بعض البيانات الحقيقة ، فالتاريخ مكّار مثل الثعلب 🙂 جعفر

يمكن اعادة تشغيل الكمبيوتر تحل المشكلة 🙂

اذن الموضوع صار خارج نطاقنا ، وصار بينك وبين الشركة 🙂 رجاء اخبرنا النتيجة 🙂 جعفر

اخي انصاري 🙂 للمرات القادمة ان شاء الله ، رجاء مراعاة قوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

اذا استعملنا اسماء الحقول اللي في ملفي (طبعا هذا جدول اخوي ابو جودي 🙂 )، فنحن نتحقق من الحقل ff ، ولكننا نحدث حقل آخر ، فما مهم اي عدد من المرات تقوم بهذا التحديث ، فالنتيجة دائما تكون نفسها (نعم جربت في البرنامج قبل ان اكتب هنا 🙂 ). واذا اردت المساعدة اكثر ، فرجاء ارفاق برنامجك وفيه حقول وبيانات صحيحة ، وخلينا نشوف وين المشكلة 🙂 جعفر

اخي الدكتور حلبي 🙂 يمكنك الاستعانة ببرنامج مجاني مثل https://www.irfanview.com/ لتكبير وتصغير واللعب بالصور كما تشاء 🙂 واسمح لي ادلك على برنامج مجاني تقوم بتنصيبه اسمه Lunacy من الموقع : https://icons8.com/lunacy فيه اشياء اكثر بكثير من حاجتي ، ولكني انزلته لأن به ايقونات 🙂 هذا شرح سريع لإستعمال البرنامج للأيقونات : 1. ايقونات 2. مجموعة الايقونات اللي تريدها او تبحث عنها . 3. تنقر على الايقونة باليسار 4. تلقائيا تصبح موجودة للاستعمال ، فاختار المكان المناسب في الشاشة ، وانقر باليسار لتثبت في مكانها ، وترى حجمها 5. من اطراف المربع المحيط بالصورة ، تقدر تعمل تكبير/تصغير/دوران 6. تقدر تعمل تكبير/تصغير بدقة اكثر . 7-10. لحفظ صورة الايقونة . 11. ولما فتحت الملف ببرنامج خارجي ، تأكد لي حجم الملف لذي تم تحفظه في برنامج Lunacy 12. وتأكد لي ان خلفيته شفافة 🙂 . جعفر

من يقوم بهذا التحويل؟

العفو اخوي ابوبسملة ، ما انتبهت للشهر ، كنت اعتقد قصدك تتكلم عن العلامات =>

ليش !! يعني التاريخين من ضمن الشرط 🙂 وتحياتي اخي العزيز احمد 🙂 والحلين موجودين للاخ محمد يختار منهم 🙂 جعفر

وعليكم السلام 🙂 هذه هي الدالة في الوحدة النمطية : Function Get_Results(D2 As Date, i2 As Integer) As Integer If D2 >= #1/1/1990# And D2 <= #1/9/2016# Then If i2 = "4" Then Get_Results = 10 Else Get_Results = 12 End If Else Get_Results = 0 End If End Function . وفي الاستعلام نناديها ، ونرسل لها القيمتين اللي تحتاجهم في التقييم ، هكذا: . ونتائج الحقلين يتساون ، ما عدا ان حقلك السابق نتيجته "نص" (لاحظ تنسيق الاكسس للحقل الى اليسار) ، بينما نتيجة حقلي "رقم" (لاحظ تنسيق الاكسس للحقل الى اليمين) . جعفر 2003.zip

هو جدول جديد وفارغ 🙂

وعليكم السلام 🙂 انا تجربتي كانت مع : https://icon-icons.com/ جعفر

هذا الذي عملته انا في احد برنامجي (صورة مرفقة من النموذج) ، ويدويا استعملت برنامج irfanView لتصغير الصور ، ولكن بدون تغيير اسم الصور التي انزلتها من الانترنت 🙂 . تقدر تستفيد من البرنامج المرفق ، بعرض الصور في من مجلد معين ، ثم تبرمج احد الازرار حتى تحفظ الصورة بالحجم المطلوب ، والمسار والاسم المطلوب 🙂 جعفر FolderImages v3.1.accdb.zip

حيا الله اصحابنا القدامى 🙂 ارسلت رسالتك للإدارة ، وخلينا نشوف ايش ممكن يعملوه لإرجاع حسابك 🙂 جعفر

جرب هذا الكود بدلا عن السابق : 'https://answers.microsoft.com/en-us/msoffice/forum/all/vba-to-minimize-the-window/dcfa65d1-50ab-490d-b140-9fe55e1d8b70 Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ToggleDesktop Set objShell = Nothing . انت تخفي خلفية الاكسس ، وهذا يجعل العمل غير المألوف ، ويجعل بعض الاوامر لا تتواءم معه !! تجربة اخرى وباستعمال الدالة التي تستخدمها في اخفاء الاكسس ، بدل الاختيارات فوق ، جرب: Call fAccessWindow("minimize") . جعفر