jjafferr

تفضلي اختي عبير الزهور ، الملف حسب طلبك :) جعفر store2000.zip

يجب ان تضع الملف المرفق والذي هو بصيغة dll في مجلد windows وسيعمل البرنامج ، وهذا ما قصده الاخ اكرم. في الواقع هذا الملف بصيغة txt اصلا (غير صيغته وجرب فتحه وقراءة ما فيه) ، ولكن المبرمج غيره الى صيغة dll ، حتى لا يعرف المستخدم ماهية الملف ، واذا اردت قراءة مح…

تفضل يا اخي :) السر يكمن في إضافة خانه في النموذج الاساسي ، اسميتها no (ويمكنك اخفائها) ، وربطت النموذج الرئيسي بالفرعي عن طريق هذه الخانه ، اما بقية الاشياء ، فيقوم الكود التالي بعمله: Private Sub cmbCompany_AfterUpdate() For i = 0 To Me.lstFavColor.ListCount…

حياك الله :) وان شاء الله لما يخف عني الشغل شوي ، اشرح لك شوي :) والسبب انك ما تقدر تدخل في البرنامج الثاني ، هو ان صاحبه حاط له حمايه ، فرجاء مراجعة المبرمج :) واما طرق الحماية ، فاليك الرابط: /index.php/topic/279879-مساعدة-ازالة-ازرار-التحرير-من-العمل-النهائ…

حياك الله اخي ابوحاتم :) جعفر

ان شاء الله هذا اللي تريده :) غير السطر اعلاه الى هذا السطر: a = DLookup("[iNVOICENO]", "INVOICE", "[iNVOICENO]=" & Me.INVOICENO & " AND [KindInvoice]= '" & Me.KINDINVOICE & "'") جعفر

طويل العمر :) مالك شغل في شئ من البرنامج إلا النموذج frm_Chart لما تنقر مرتين على اسم العمود ، يتغير الرسم البياني ، ولما تنقر على زر Export All Charts ، فهنا يتكون السحر امام عينك ، ويتم نقل كل رسم بياني الى Ms Word :) ملاحظة 1: ولكن بعد الانتهاء من MS Word ،…

حياك الله :) طويل العمر ، اذا اردت صور الرسم البياني (يعني بدل نسخ/لصق) ، استعمل هذا الكود ، بحيث حجم الصورة 1025x1025 : Me.ChartSpace.ExportPicture "C:\yourdirectory\filename.gif", , 1024, 1024 اما اذا اردت ترحيل الرسم البياني الى اكسل ، استعمل هذا الكود: Me.…

حياك الله ، ومثل ما العمانيين يقولون: كل يوم تعال :) جعفر

لوسمحت تعطيني رابط للبرنامج اللي يعمل كده ، ومنكم نستفيد :) جعفر

سؤال: ما هي الصيغة النهائية اللي تريدها من الرسم البياني؟ هل تريدها على النموذج فقط ، أم تريد تطبعها؟ ﻻننا ممكن ان نعمل مربع سرد بالخانات المطلوبة ، ولما تختار الخانة ، تلقائيا يظهر لك الرسم البياني الجديد للخانه المختارة ، وعلى هذا اﻻساس ، فقد نعمل اﻻستعﻻم في…

> وذلك بدون تخزين مجموعه من الاسماء لا يمكن عمل البرنامج بهذا الشرط ، وحتى بدون الشرط ، البرمجة ستكون صعبة (ممكنه ولكن صعبه) ، لأن الاسماء العربية فيها مسافة بين الاسم مثل "عبد الرحمن". جعفر

تفضل :) استخدم السطر الثاني ، بدل سطرك الاول : a = DLookup("[iNVOICENO]", "INVOICE", "[iNVOICENO]='" & Me.INVOICENO & "'") a = DLookup("[iNVOICENO]", "INVOICE", "[iNVOICENO]=" & Me.INVOICENO) انت كنت تعامل INVOICENO انه نص ، بينما هو رقم :) جعفر

كيف تريد تتعامل مع البيان #VALUE! هل يحسب ام لا؟ في معادلتي ، انا لم احسبه!! جرب هذا الاستعلام ، حيث اني بسطته قدر استطاعتي : SELECT c, Count([c])/(DCount("*","ReportData","[c]='" & [c] & "' AND [ g ]<>'#VALUE!'"))*100 AS Perc FROM ReportData WHERE g ="Excelle…

هلا بالمحاول :) جرب محاولتي هاي ، وخبرني :) وبرنامجك الثاني ، عطني فيه يومين وان شاء الله ما يصير خاطرك الا طيب :) جعفر 53.tqeem.accdb.zip

السلام عليكم شباب :) مرفقين ، واحد للاخ المنطلق بطموحه بصيغة accdb ، والآخر للأخ محمود بصيغة mdb :) عملت تغيير في الفكرة ، علشان تكون اشمل ، وعليه ، هذه صورة الجدول اللي يتم فيه: 1. Sorting_ID وهي خانة الترقيم التلقائي (جداولي في جميع برامجي يجب ان تحتوي على ه…

حياك الله اخي محمود :) جعفر

وعليكم السلام اختي هذا الطلب جدا سهل عمله بالاكسس، ولكن رجاء إرفاق قاعدة بياناتك ، علشان كل شي يتم في برنامجك مباشرة. جعفر

السلام عليكم اعتذر على تطفّلي في هذا الموضوع المنتهي ، ولكن عندي مشاركة متممة :) الاخ محمود قال: >انا كل اللي عملته اني غيرت فقط نوع الخط في التقرير ليصبح بهذا الشكل في حالة الحضور يعني غير اسم الخط الى WingDings > اما بالنسبة لحالة الغياب فانا ضفت حقول للاستع…

وعليكم السلام ورحمة الله وبركاته المثال الذي تتكلم عنه: استخدم هذا الكود كمثال ، من الرابط: http://office.microsoft.com/en-001/access-help/sort-records-in-custom-order-HA010062658.aspx IIf([Title] = "Vice President, Sales", 1, IIf([Title] = "Sales Manager", 2,…