نجوم المشاركات

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

تفضل اخي المشكلة في تحديد نطاق قاعدة البيانات لديك قد تم تعدبلها لحدود 50000 صف بالتوفيق...... 779215434_.xls

السلام عليكم 🙂 في النسخة 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

فورم بحث عن اسماء الله الحسنى ووضع البيانات فى تكست بوكس صورة للفورم الفيديو الملف 2085155775_.rar

السلام عليكم ورحمة الله وبركاته ما الفائدة من أن تقرأ ولا تتفكر فيما تقرأ ؟! وما الفائدة إن تفكرت ولم ينعكس ذلك علي حياتك وسلوكك؟! ما الفائدة من أن تتعلم ولا تُعَلِم؟ أو أن تتكسب ولا تنفق؟! إن لم يكن ما يأتيك يخرج بصورة أفضل مما آتاك فهناك إذاً خلل… البذرة إن أعطيت للأرض أخرجت نبتة… فاجعل ذاتك أرضاً خصبة، كلما غُرِسَ فيها غرسٌ أنبتت ثمرة… وكن خليفة الله في أرضه ويداً لعباده ممتدة… واما بعد فكرت اني اعمل قالب يسير لمن يحتاجه التصميم بشكل جيد الفكرة جات من Blogger انه عامليين قوالب للمستخدم يقدر يستخدمها حسب حاجته ويطوعها حسب استخدامته Business Application Final Template مميزات القالب شاشة دخول للمستخدمين مع تحديد صلاحيات المستخدم -ادمن - مندوب بيع - مندوب شراء شاشات الانتقال تفاعلية بتعطي طابع للمستخدم بالراحة للرؤية مع استخدام الانفوجرافيك في الانتقالات المتعدة هاناخد فكرة عمل الشاشات - المشتريات - المبيعات - المخزون - المستخدم - الاعدادات والتقارير خيار الانتقال ينشط حسب صلاحية الدخول الوظايف المتعلقة بالشاشة الرئيسة المبيعات المشتريات المخزون التقارير والاعدادات ومنها تقرير المبيعات بالفترة شهري ربع سنوي - يومي - صنف معين - عميل معين - رقم الفاتورة - اجل - نقدي تقارير عديدة متنوعة تقرير المشتريات ونفسه تقارير المورين وبها تقارير بالمدة وبالمورد بحالة الدفع شاشة المستخدمين ومنها التحكم في المستخدمين والصلاحيات خيار دخول المستخدمين وقت الدخول والخروج والتاريخ واسم الجهاز التي تم من عليه الدخول اتمني يكون القالب فيه الفايدة والمنفعة مع ملاحظة القالب لا يحتوي الا علي اكواد شاشة الدخول والانتقال بين الخيارات القالب بالمرفقات وبالتوفيق للجميع Business Application Final Officana.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي جرب =PETITE.VALEUR(SI(A$2:A$19<>"الثانوية الإعدادية ابو بكر الصديق";B$2:B$19);LIGNE()-1) نزولا بالمعادلة الى الاسفل وبهده الطريقة يمكنك استخراج أصغر أربع أعداد (او ماتشاء) مع استثناء الأعداد التي هي في نفس الصف لاسم الثانوية الموجودة في الخلية (i2) مثلا =SI($I$2="";"";PETITE.VALEUR(SI(A$2:A$19<>$I$2;B$2:B$19);LIGNE()-1)) ترتيب.xlsx

تم بحمد الله ايجاد حل لمشكلة إجراء SendKeys ومشكلته المعضلة مع تعطيل مفتاح NUMLOCK للوحة المفاتيح. وذلك بفضل شيخ المنتدى جعفر @jjafferr مشكورا حيث استطاع إيجاد شفرة بديلة للدالة الأصل للـ vba. رجوت من زميلي فتح موضوع باسمه لهذا الموضوع المهم جدا برأيي ولكنه تأخر في الاستجابة وربما لم يرى فيه قدر الأهمية التي أراها أنا. على كل فليسمح لي على نشره تحت اسمي. الموضوع على الوصلة الآتية: فتح اخر صفحة في التقرير

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

جرب الآن مثال دخول وخروج_05.accdb

الله يبارك بعمرك استاذي الفاضل جزاك الله خيرا نعم هذا هو المطلوب بارك الله فيك وفي علمك

ProgSalse10.rar

جرب ، كما طلبت مثال دخول وخروج_03.accdb

تفضل ................... كنترول.accdb

جرب هذا المثال وإذا أقنعتك صممت لك استعلام وتقرير حسب التفصيلات التي تريدها. مثال دخول وخروج_02.accdb

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

ما هو طلبك اخي الفاضل حاول تركز على نقطة واحدة وان شاء الله سوف نحاول اكمال الملف خطوة خطوة .... حاول وضع الشرح داخل الملف مع توضيح الشيت الدي يتم جلب منه البيانات لانه غير مفهوم بالنسبة لي

العملية سهلة أخي ولكن لي ملاحظات قبل التعديل: يكفي أخي عمل جدول واحد يحتوي على 3 حقول رئيسية فقط وهي: 1- حقل رقم الموظف بدون الاسم. 2- حقل "تاريخ ووقت" بدون فصل وهو للدخول والخروج معا "بدون فصل" أيضا. 3- حقل نوع الوقت نوع Yes/No للتحديد نوع حقل "تاريخ ووقت" هل هو دخول أو خروج. شاور نفسك ورد علينا ، والحرية المطلقة لك ، ولكن من واجبنا تقديم النصيحة والمعلومة الأمثل. ويمكنك لاحقا ، مرحلة ثانية .. عمل بطاقات تحتوي على باركود تحصل منها على رقم الموظف بمجرد تمريرها على القارئ.

تاكد من الطابعات ... هل بينهم طابعة pdf اجعلها طابعة افتراضية وجرب

شكر وتقدير واحترام من أخيكم

جزاك الله خيراً استاذ ضاحي ان شاء الله نحاول نستفيد

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

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

السلام عليكم ورحمة الله تنويه: المعادلة التي وضعتها بالأعلى (في ردي السابق) تبحث عن الكلمة حتى وإن كانت داخل نص طويل... بالتوفيق..

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي بالنسبة لطلبك اعتقد ان جواب استادنا الكبير بن علية حاجي يوفي بالغرض لاكن لاثراء الموضوع وتعميم الفائدة للجميع بالمعادلات يمكنك بهده الطريقة =SI(ESTNA(EQUIV("ALI";$S$9:$S$25;0));"غير موجود";"موجود") او =SI(ESTNA(RECHERCHEV("ALI";$S$9:$S$25;1;FAUX));"غير موجود";"موجود") او =SI(ESTNA(EQUIV(A9;$S$9:$S$25;0));"غير موجود";"موجود") ملاحظة: المعادلات تمت كتابتها على اوفيس فرنسي .كما سبق الدكر اتجنب اعادة صيغتها تفاديا للاخطاء .يمكنك تحميل الملف من المرفقات سيتم ترجمتها تلقائيا على جهازك اما بالنسبة للاكواد هناك عدة طرق منها لنفترض انك ترغب ظهور النتيجة في الخلية ("A5") Sub test1() Dim code As String Dim Trouve As Range With Sheets("Sheet1") Set Trouve = .Range("S:S").Find(what:="ALI", LookIn:=xlValues, lookat:=xlWhole) If Trouve Is Nothing Then Range("A5") = " غير موجود" Else Range("A5") = "موجود" End If End With End Sub وبهده الطريقة ادا كانت لك رغبة بالبحث بقيمة خلية معينة ولنفترض انها M4 Sub test2() Dim code As String Dim Trouve As Range With Sheets("Sheet1") ' تحديد العمود ورقم الخلية Set Trouve = .Range("S:S").Find(what:=Range("M4"), LookIn:=xlValues, lookat:=xlWhole) If Trouve Is Nothing Then 'M6 ظهور التنيجة في الخلية Range("M6") = " غير موجود" Else 'في حالة عدم العثور على القيمة Range("M6") = "موجود" End If ''''''''''''''''''''''''''''''''''''''''''' Sub test4() Dim MH As Range Set MH = Range("S9:S25").Find(What:=Range("M4").Value, LookIn:=xlValues, LookAt:=xlWhole) If Not MH Is Nothing Then Range("M6").Value = "موجود" Else Range("M6").Value = " غير موجود" MsgBox " غير موجود" End If End Sub End With End Sub اما في حالة الرغبة في البحث وتنفيد نفس الامر على عدة قيم في نطاق معين يمكنك بهده الطريقة Sub test3() Dim X As Variant Dim Rng As Range 'تحديد نطاق القيم المبحوث عنها ' مثال من الصف 9 الى 13 For i = 9 To 13 'تحديد رقم العمود X = Cells(i, 11) 'تحديد نطاق القيم المبحوث عنها With Sheets("sheet1").Range("S9:S25") Set Rng = .Find(what:=X, After:=.Cells(.Cells.Count), _ LookIn:=xlValues, lookat:=xlWhole, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Rng Is Nothing Then 'في حالة العثور على القيمة Cells(i, 10).Value = "موجود" Else 'في حالة عدم العثور على القيمة Cells(i, 10).Value = "غير موجود" End If End With Next i End Sub قد تم اضافة الاكواد والمعادلات للملف المرفق بالتوفيق........... التحقق من وجود قيمة معينة.xlsm

وعليكم السلام ورحمة الله وبركاته * حل بالمعادلات: إذا فرضنا أن الخلية C1 تحوي كلمة ALI التي تبحث عنها... المعادلة تكون على الشكل التالي: =IF(COUNTIF($S$9:$S$25;"*"&$C$1&"*");"موجود";"غير موجود") * الحل نفسه بـ VBA : Sub Test() If Application.CountIf(Range("S9:S25"), "*" & [C1].Value & "*") <> 0 Then MsgBox "موجود" Else MsgBox "غير موجود" End If End Sub في انتظار حلول أخرى...

رحم الله والديك .. أزلت عنا مشكلة عاشت معنا عشرات السنين. لو تفتح موضوع خاص بهذا الحل ليكون سهل الوصول له. تفاديا لتكرار هذه السطور يفضل تحويلها إلى إجراء يستدعى كما الإجراء الأصل كالتالي: 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

هذا المثال جميل جدا فى اضافة سجل الى شاشة اخرى مفتوحة ولكن كيف يتم اضافة اكثر من سجل فى حدث بعد التحديث اريد ان يضيف اكثر من سجل حسب ما اكتب له فى كود vba وشكرا اضافة سجل.rar

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

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

بارك الله فيك أستاذ ضاحى وبالتوفيق دائماً

ممتاز طبعاً الى الأمام دائماً أستاذ ضاحى وفقكم الله .مجهود ممتاز

نعم أستاذى الكريم ولكن ان لابد ان تسبقها علامة لا تساوى داخل علامة التنصيص "<>"

وعليكم السلام -تفضل لأن ذلك بسبب انك بالنسبة لشهور السنة الموجودة بالقائمة المنسدلة انت عاملها عام 2021 ..فقد تم تغييرها الى 2022 ..وأما بالنسبة لما لا يظهر معك من عقوبة ومهمة وذلك لأنك عامل نطاق القائمة المنسدلة حتى الصف الخامس فقط أما هذان الإختياران فموجودان حتى الصف السابع فقد تم التعديل وشكراً .. والشرح كما بالصور , حتى يتم غلق المشاركة .. أما بالنسبة لموضوع الترحيل فلابد من فتح مشاركة وموضوع جديد فهذا لا يتم الا بكود ولابد من رفع الملف بإمتداد يقبل إضافة الأكواد وهو Xlsm كشف حضور 1مميز.xlsx

وعليكم السلام ..رجاءاً قبل طرح أى مشاركة جديدة عليك بإستخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً .فيمكنك استخدام هذه المعادلة =VLOOKUP($A2,$G$2:$H$50,2,0)*$B2 معادلة if الشرطية 1.xlsx

أحسنت استاذ ضاحى دائماً مبدع بارك الله فيك وشكراً جزيلاً على هذا العمل الممتاز

يالضبط دكتور محمد طاهر وهذا بالفعل الذى يتم

هذه هي النتيجة

اين اسماء العملاء؟ اذا كنت تريد طباعة ما فى الملف -تفضل مثال.xlsm

تفضل اخى الكريم ولتثبيت اى خلية كما تطلب عليك بتحديد الخلية ثم الضغط على f4 لتصيح رقم الخلية بين علامتين الدولار كما ترى بالملف $ مثال.xls

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