رمهان

السلام عليكم هناك الكائن tempvars والجديد في 2007 وما فوق ! وهو مفيد جدا لمثل هذه الحالة ! ساقوم بكتابة موضوع جديد حول هذا وقريبا باذن الله ! بالتوفيق

اخينا عمر السؤال عايز تركيز حبتين ! فصبرا جميل والله المستعان !

اخ كامل لم افهم المطلوب ! هل تشرح اكثر !

مثالك اخ المعتز بالله او مرفق بسيط به المطلوب ! وخليها بالالوان اسهل وعن طريق التنسيق الشرطي باذن الله ! بالتوفيق

عزيزي ماذا تقصد بالتوقيع هل تقصد ان التوقيع محفوظ كصورة ويتم ادراجه في المستندات لاختصار الوقت ! ام تقصد توقيع بما يحمله من معنى في البزنس بروسس ! وهنا للعلم : 1. هناك قلم الكتروني ومع شاشات خاصة يمكن التوقيع 2. هناك توقيع الكتروني ومصادقة الشهادات الرقمية 3. هناك توقيع الكتروني حسب صلاحية الدخول ورموز التحقق فارجو ايضاح المطلوب محددا بمثال عملي لديك ! بالتوفيق

وعليكم السلام ورحمة الله وبركاته مشاركة مع زملائي وبالتحديد تفعيل الخيار الضغط عند الاغلاق : انا مع ابو خليل وذلك للاسباب التالية 1. لم ياتي الخيار افتراضيا معمول صح ! معناته يوضع في حالات خاصة وهنا اتوقع انه عندما يكون لديك انشاء كائنات وحذف كائنات في نظامك اي هناك تعديلات في البنية او تركيبة القاعدة فهنا تحتاج بالضرورة لتفعيل هذا الخيار ! اما اذا كانت لحجم البيانات فهنا تستطيع ان تفعل الخيار في اوقات تحددها انت ثم تعيد ازالة الخيار ! فمثلا استطيع ان احدده عند وقت محدد او عند وصول حجم القاعدة الى حجم معين ! 2. لو كان من الافضل وضع الخيار دائما لتم وضع هذا الخيار ضمنيا في الاكسس وبدون خيار صريح للمستخدم لاحظ انه تولدت فكره من سؤالك ولضغط القاعدة الحالية وذلك بتفعيل الخيار ثم الاغلاق ثم الفتح وتعطيل الخيار وذلك من الامر : Application.SetOption "Auto compact", true Application.SetOption "Auto compact", False تحياتي

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

عزيزي ابا جمانة لايوجد لدي حساب بكل وسائل التواصل الاجتماعي ! ستكون باذن الله ولكن في الوقت المناسب ! تحياتي

السلام عليكم اخ وليد ارجو ان تتقبل وجهة نظري التالية ماتطلبه بمثابة برنامج كامل بل ان النظر في برنامج اعد مسبقا يتطلب فهم تركيبته وقراءة افكار معد البرنامج مما يتطلب وقت اكثر ! لذا استسمحك باننا نمر على الموضوع وبدون رد ! يمكنك تجزئة المطاليب باستفسارات محدده وفي اماكن محدده ! كان تقول عملت الدفعات في النموذج الفلاني واريد المجموع بالشكل الفلاني ! وهكذا اي استفسارات محدده وبمكان محدد ! هذا ويظل ماذكر وجهة نظر شخصية وللاخوة مايرون وحسب استطاعتهم ! بالتوفيق

بالتوفيق ابا جمانة ! وانا سعيد جدا بتعديلك وهو الافضل خصوصا لو احتمل ان ياخذ حقل الفواتير القيمة 0 ومطلوب اهمالها ! كما انني سعيد باسئلتك الملامسة للواقع العلمي ماشاء الله عليك متمنيا لك التوفيق والسداد ! تحياتي

اخينا ابو جمانة اعتذر والله على التاخير فقد نسيت الموضوع ولم اطرحه في وقته حيث كان يحتاج قليلا من التركيز ! ومشاركة مع اخي سيد ! اليك هذا الحل وما هو الا ترجمة لفكرتك باستخدام iif ! ضع التعبير التالي في استعلام تجميعي وفي صف الاجمالي اختر ماكس : Expr2: IIf(IsNull([الحركات].[الفواتير]);#01/01/1900#;[الحركات].[التاريخ]) اتمنى انه لما تريد وبالتوفيق

لا باس اخينا الفاضل القدير محمد سلامة !

حلوة الفكرة اخي الزباري ! متمنيا لك مزيدا من التوفيق ! تحياتي

حياك الله اخوي نور ! وجزاكم الله بالمثل واكثر وعلى مساعداتكم للاخرين ! تحياتي

حياكم الله دائما وابدا ! وحبيت انبه وللعلم ان الكود ليس مقيد بعدد خانات قناع الادخال ! بالتوفيق

اخبار التجربة اخ محمد !؟! تحياتي

سؤال جميل ! تفضل ومشاركة مع اخي نور Private Sub text1_Change() If Right(text1.Text, 1) <> "_" Then MsgBox ("hi") End Sub

هذا تطبيق للفكرتين بالتوفيق two_timers.rar

تمام اليك الفكرتين التاليتين : 1. الاستعانة بنموذج فرعي به تايمر خاص للعنوان المتحرك على النموذج الاب ! وطبعا يظل النموذج الرئيسي به تايمر للوقت ! ويمكن تشغيل التايمرين عند تحميل النموذج الرئيسي 2. عمل تايمر واحد للنموذج بفاصل زمني 100 والذي للنص المتحرك ! ووضع جملة شرطية عند وصول العداد لل 1000 او مضاغفاته يحدث كود الساعة ! والآن اخ وليد هل لديك القدرة على التنفيذ والا حاولت تنفيذها ! بالتوفيق

سؤال جميل كصاحبه ! من المعروف ان التايمر في الاكسس جزء من النموذج وليس عنصرا مستقل كالفيجول بيسك مثلا ! ولكن يمكن التحايل او القدرة عن طريق الاكواد سد هذا الفراغ في الاكسس ! لذلك هل يمكن اخ نور ذكر الحالة التي جعلتك تفكر في 2 تايمرز ! ولنحاول معا كيف تجاوزها في الاكسس! تحياتي

هذا الكود اخي عبدالله للفكرة اعلاه : xpath = "a\b\c\d" ypath = CurrentProject.Path & "\" For Each d In Split(xpath, "\") ypath = ypath & d & "\" MkDir ypath Next حيث xpath مجلداتك المراد انشاؤها ! بالتوفيق

عزيزي استخدم الدالة val للمقارنة حيث المصفوفة من نوع فارينت والكمبو رقم ! If Val(Combo2.Value) = Val(num1(i)) Then لكن هل ممكن شرح انت تريد ماذا ؟ قد يكون هناك كود اسهل ! حسب فهمي تريد ان تشيك وجود الارقام التي بالمصفوفة في القائمة ! صحيح ؟ اذا كان صحيح هناك طريقة اسهل وللعلم طريقتك او خوارزميتك ستظل تظهر سالة عدم وجود الرقم الى ان يتم وجوده ! بالتوفيق

وعليكم السلام ورحمة الله وبركاته هذا الامر يقوم بانشاء المجلد والمجلدات الفرعية مرة واحدة ! Shell ("cmd /c mkdir ""c:\a\b\c""") طبعا يمكنك التاكد من وجوده بالامر dir كما يمكن الاستدلال ب currentproject.path لمعرفة للتصريح بموقع المجلدات الفرعية وهناك فكرة استخدام الامر mkdir وكما في مشاركتي السابقة ولكن بتقسيم المسار المطلوب الى مصفوفة بواسطة الامر split وبمدلول العلامة \ ثم الدوران على على المصفوفة وبانشاء كل عنصر لوحده والذي يمثل مجلد وهكذا ! عند اتاحة وقتي ساقوم بتطبيق الفكرة الاخيرة ! بالتوفيق

اخي ابو جمانة بدرت لي ملاحظة : لاحظ ان الاستعلام لديك يقوم على التجميع على اساس اسم العميل والمحل ! بينما انا وضعت الحل على اساس العميل وهو طلبك ! فهل ياترى انت على علم بان اخر تاريخ للفاتورة هو للعميل بغض النظر عن المحل ؟ ولتعلم بان عمليات الجمع لديك هي على اساس العميل والمحل معا ! بمعنى لو تكرر العميل لمحل اخر سيكون هناك مجموعين للدفعات وللفواتير .. الخ ! بينما هناك تاريخ واحد فقط الذي يمثل اخر فاتورة وطبعا سيتكرر نفسه عند تكرر العميل لمحل اخر ! بالتوفيق

الحمد لله ان فهمنا مقصودك اخ ابو جمانة ! وبصراحة شفتك تاخرت في الرد قلت اكيد ابو جمانة خلاص حيستنا الاستاذ جعفر ! الان انت تريد نفس الحل ولكن بطريقة الاستعلام ! صحيح ؟