ابوخليل

الف شكر لاستاذنا القدير عصام ربيع برنامج الضغط الذي استخدمه احدث من الذي عندك انا استخدم winrar اصدار 5.50.0.0

السلام عليكم لا يحذف شيء في المنتدى .. الا وقت حملات التنقيح على المشاركات القديمة النظام المتبع هنا عند المخالفات هو اغلاق الموضوع او نقله لمكانه المناسب ونضطر احيانا لإخفائه حتى نرى ما يتقرر بشأنه وكل هذه الاجراءات تتم بعد ابلاغ العضو صاحب المشاركة او الموضوع اين كانت هذه المشاركة ؟ وفي اي موضوع ؟

حبيبنا ابو جود كل ما تفضلت به اعلاه صحيح لا غبار عليه وانا عارف انه زي ماجبنا الرمز للجدول يمكننا استخراجه بالاسلوب نفسه ولكن كان قصدي ان (0)(-1) اسهل واخف من استخدام الدالة وايضا يمكننا استخدام true و false

مرحبا حواديت نعم ممكن ، انظر المرفق ملحوظة : بعد فك الضغط ضع المجلد على C AccsAcsl.rar

عمل ولا اجمل ولا اخصر ابا جودي شكرا لك

تفضل لاحظ انه يجب ان يكون المؤشر على الحقل الصحيح عند تنفيذ امر الادراج تم الاحتياط بمنع تكرار الادراج ( انظر المفاتيح في جدول المدفوعات ) 04-Cherche 15-04-2019.rar

عليكم السلام نعم يمكن ...

sum(round(total ; 2)) شكرا لك اخي الكريم على حرصك على نفع اخوانك وعرض ما توصلت اليه وهذه الدالة مألوفة للجميع وتستخدم كثيرا ، ولكن قد تغيب عن البال ، لاعتماد الغالبية على التطبيق العملي لحل المشكلات البرمجية ----------------------------------------------------------------------------------- وحسب علمي ان دالة round في الكود اعلاه تسبق دالة sum ليصبح الترتيب هكذا round(sum(total);2) ما رأي خبرائنا في ذلك ؟

جميل جدا ورائع .. يكون بديلا لخانة خيار نعم/لا المعتادة . وقد تكون الفكرة معروفة ومستخدمة لدى البعض ولكن السبق ان تفردها بموضوع مستقل . وانا على يقين انك ادرجت الرمز في الجدول لتبين امكانية ذلك وزيادة في اثراء الفكرة وإلا فإن استخدام القيم المعروفة (0)(-1) أولى .. لما قد نحتاجه مستقبلا في عمليات التصفية شكرا ابا جودي ،،،

عليكم السلام علاج هذه بزيادة او انقاص الهوامش من الجهات الاربع السبب وجود زيادة في مساحة مقاطع الصفحة (الرأس او التذييل أو التفصيل ) بصفة عامة يمكنك ضبط التقرير على اي استمارة خارجية جاهزة مهما كانت اطوالها المهم انك تحاول مرة واخرى وستنجح باذن الله

بارك الله فيك وزادك علما وتعليما ورفعة .

ازرار التنقل مرتبطة بمصدر سجلات النموذج فلما نفتح النموذج مباشرة يكون المصدر جميع سجلات المصدر (الجدول) لهذا يظهر في ازرار التنقل رقم السجل وترتيبه من اما حين يكون الفتح من نموذج البحث فإننا نعمل تصفية بحيث يصبح مصدر النموذج سجل واحد فقط وبكذا لن يظهر عدد السجلات الموجودة في الجدول لان الفورم لا يرى الا سجلا واحدا ---------------------------------------------. لتطبيق فكرتك يمكنك عمل حقل يظهر عدد السجلات في المصدر باستخدام Dcount

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

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

اخي تم تعديل المرفق ، والمطلوب منك تفهم ما اشرح لك بكل دقة اولا : الادخال يكون بعملة واحدة محددة وهي هنا افتراضيا الدولار . ثانيا : جعلنا سعر الصنف حر قابل للتحديث بالزيادة او النقص ثالثا : العملات الاخرى يتم تحديثها بطريقة اسهل بما يعادل قيمة دولار واحد رابعا : اختر من مربع التحرير العملة المطلوب طبع الفاتورة لها وشاهد الفاتورة لاحظ انه يمكنك طباعة فاتورة واحدة بعدة عملات ( انظر الوحدة النمطية العامة) اتمنى ان الفكرة تروق لك ، وتتمكن من نقلها الى برنامجك CurConvert10.mdb

لا اعلم وان وجدت شيئا زودتك به .

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

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

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

عليكم السلام هذه وحدة نمطية عامة تتحكم في اظهار واخفاء جميع الكائنات .. وتستطيع تعطيل اي كائن او تركه يعمل Public Function HideAndShowAll(vbln As Boolean) Dim obj As AccessObject Dim dbs As Object Dim db As Database Dim T As TableDef Dim TName As String Dim I As Integer Dim vCnt As Integer Set db = CurrentDb() Set dbs = Application.CurrentProject On Error Resume Next For Each obj In dbs.AllForms Application.SetHiddenAttribute acForm, obj.Name, vbln Next obj For Each obj In dbs.AllReports Application.SetHiddenAttribute acReport, obj.Name, vbln Next obj For Each obj In dbs.AllModules Application.SetHiddenAttribute acModule, obj.Name, vbln Next obj For Each obj In dbs.AllMacros Application.SetHiddenAttribute acMacro, obj.Name, vbln Next obj Set dbs = Application.CurrentData For Each obj In dbs.AllQueries Application.SetHiddenAttribute acQuery, obj.Name, vbln Next obj For I = 0 To db.TableDefs.Count - 1 Set T = db.TableDefs(I) TName = T.Name If Not TName Like "msys*" Then Application.SetHiddenAttribute acTable, TName, vbln vCnt = vCnt + 1 End If Next I End Function ونستدعيها من اي حدث هكذا : للإخفاء : HideAndShowAll(true) وللإظهار : HideAndShowAll(false) لاحظ انك لو استدعيت الكود في زر داخل نموذج فلن يتفاعل النموذج والسبب انه مفتوح ، ولكن من الماكرو مثلا يتم التطبيق على الكل hidAshow.mdb

الملف سليم اخوي لا تخاف .. وافق على الحفظ

CurConvert1.mdb

تفضل تم التعديل باقرب طريق انظر جدول السعر والاستعلام ثم انظر الشرط في الكود CurConvert1.rar

توقعت انك تسأل لذا شرحت لك الطريقة اعلاه ويبدوا انك بحاجة الى شيء غير الشرح

تفضل التعديل تم داخل الاستعلام مصدر صف الرسم البياني : استبدال groub by بـــ sum Forum.mdb