jjafferr

لي الشرف 🙂 وحياك الله 🙂 جعفر

السلام عليكم 🙂 كتابة التاريخ بطريقة المرفق ، انقذتني في الكثير من الحالات ، لأن اعدادات الكمبيوتر العميل تختلف عن كمبيوتري ، وهذه الطريقة تحل المشكلة : جعفر

اما اذا اردت عمل تقريرين: 1. اعمل نسخة من الاستعلام qry_rpt_sum_2 ، وسمّيه qry_rpt_sum_3 ، 2. في الاستعلام qry_rpt_sum_2 ، اترك الحقول الاساسية ، من حقل السنة الى حقل Name1 ، واحذف نصف الحقول الباقية (حسب ما تشتهيه نفسك 🙂) ، 3. في الاستعلام qry_rpt_sum_3 ، اترك الحقول الاساسية ، من حقل السنة الى حقل Name1 ، واحذف الحقول التي تم استخدامها في qry_rpt_sum_2 ، 4. التقرير: تقرير سنوي_2 ، ارجع طريقة عرض البيانات في الحقل من عمودية الى عادية : Vertical = No ، واحفظه ، 5. اعمل نسخة من التقرير: تقرير سنوي_2 ، وسمّيه تقرير سنوي_3 ، 6. اجعل الاستعلام qry_rpt_sum_2 مصدر بيانات التقرير: تقرير سنوي_2 ، 7. اجعل الاستعلام qry_rpt_sum_3 مصدر بيانات التقرير: تقرير سنوي_3 ، 8. في زر الطباعة في النموذج (ولا يمكن عمله في التعيين) ، اطبع التقرير الاول ، ثم الثاني ، والسلام 🙂 جعفر

حياك الله اخوي حسين 🙂 لم اعرف اي نموذج/تقرير انظر فيه !! على العموم ، كتابة التاريخ بطريقة المرفق ، انقذتني في الكثير من الحالات ، لأن اعدادات الكمبيوتر العميل تختلف عن كمبيوتري ، وهذه الطريقة تحل المشكلة : جعفر

اشوف الحمدلله استفدت من الشرح 🙂 . انا اقترح التقرير بهذه الطريقة: . اللي مصدر بياناته: . جعفر 1396.2.1.مطابقة موجودات.accdb.zip

تم فصل السؤال اعلاه الى موضوع جديد ، فرجاء متابعة الموضوع هناك 🙂 جعفر

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

الحمدلله 🙂 طريقة التخطيط والتنفيذ : 1. اجعل الحقل/مربع النص كاملا للرقم ، واحذف الهوامش الاضافية لجميع الحقول: . 2. كان واضح ان المطلوب هو ان عرض مربع النص يجب ان يتماشى مع عدد الارقام فيه ، وعرض الارقام بالنسبة للارقام الانجليزية ثابت لجميع الارقام ، وبعد تحليل النتيجة في الصورة ، كعدد ارقام ، وعرض مربع النص : ، اتضح ان كل حرف محتاج الى 145.5 تويب Twip (وحدة قياس الاكسس) ، وبتقنين الرقم وبعد عدة تجارب توصلت الى الرقم 140 ، لذلك ، اذا استعملت خط Font آخر ، او الخط بحجم اكبر/اصغر ، فيجب عليك تغيير هذه القيمة ، بالتجارب 😁 اذن ، عرض كل حقل يحتاج الى معرفة عدد الارقام ف الحقل ضرب 140 ، للحصول على هذا الرقم لكل حقل (هذه معادلتك) ، جعلنا القيمة في المتغير fld_value عليه يصبح عرض كل مربع (وعلشان نعرف عدد الارقام في الحقل ، نستخدم الدالة Len ، ويجب تحويل الرقم الى نص CStr ، للحول على النتيجة الصحيحة للدالة) : . وفي آخر سطر من المعادلات اعلاه ، جمعنا محموع عرض هذه المربعات في المتغير width_Added ، . 3. العرض المتوفر هو width_Avail : عرض التقرير - هامش اليمين لبكرة الطابعة - هامش اليسار لبكرة الطابعة : . 4. اذن في عملنا اعلاه ، عرض جميع مربعات النص يكون صحيح ، ويحتوي على الرقم كاملا فيه ، بالعرض (الضيق) الذي يناسب الرقم ، ولكنه لا علاقة له بالعرض الحقيقي الموجود في التقرير ، لذا ، سنلاحظ انه ترك مسافة فارغة زائدة عن حاجة المربعات ، 5. هنا قمت انت بحساب عدد الحقول التي سيتم عرضها في التقرير ، الحقول التي مجموعها اكبر من صفر ، وفي المتغير fICnt : . 6. المعادلة التالية تقوم باخذ عرض التقرير ، ناقصا مجموع عرص المربعات ، فيعطينا المسافة الفارغة الزائدة عن حاجة المربعات : فنقوم بتوزيعها بالتساوي بعدد الحقول ، فيصبح نصيب كل مربع : . 7. اذن عرض المربع النهائي سيصبح: عرض المربع الحقيقي (رقم#2 اعلاه) + القيمة المضافة / الاضافية (رقم #6 اعلاه) : . . جعفر

اخي الفاضل ، هذه الرسالة لا دخل لها بنسخة نظام التشغيل ، اذا تستعمل الاوفيس/الاكسس 2007 فأكثر ، اذا فتحت اي برنامج اكسس من مجلد غير موثوق به ، ستظهر لك هذه الرسالة 🙂 وفي الاكسس 2010 فما فوق ، لما تظهر لك هذه الرسالة ، يمكنك النقر على "تمكين المحتوى" ، ولن تظهر مرة اخرى ، حتى ولو لم يكن البرنامج في مجلد موثوق 🙂 جعفر

جرب الآن 🙂 1396.مطابقة موجودات2.accdb.zip

جميع من جرب البرنامج ، اشتغل عندهم ، فيمكن يحتاج تحاول مرة ثانية 🙂 جعفر

تقريبا جميع الكمبيوترات الآن تعمل على الاكسس 2007 فأكثر ، وهذه الرسالة ستظهر كل مرة تفتح البرنامج في مجلد غير موثوق به ، او جعفر

وعليكم السلام 🙂 جعفر

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

هذا له علاقة باعدادات عرض النموذج ، بدون برواز ووو شوف النموذج الثاني ، والمساحة البيضاء هي بسبب ان الصورة صغيرة الحجم ولم تقم بملئ متصفح الانترنت. وبسبب عدم وجود طريقة لغلق هذا النموذج ، فالافضل ان تضع حدث للوقت Timer ، وبعد مدة تغلق النموذج 🙂 جعفر AniGIF.zip

وعليكم السلام 🙂 عملت تغيير في الاستعلام pv ، واسم وطريقة عمل النموذج الفرعي ، واستدعائه ، فرجاء تلقي نظرة عليه كذلك ، حتى يتماشى مع برنامجك : . والنتيجة . جعفر 1397.New Microsoft Access Database.accdb.zip

فقط علشان افهم السؤال: اذا ازلت الخلفية (يعني ان الصورة فيها جزء شفاف ، وانت تريد ان تُزيله) ، فما هو اللون الذي يجب ان يظهر مكانه؟ جعفر

اخي الفاضل @AliAli47 انت صاحب السؤال ، ولم نسمع منك، اذا اشتغلت عندك الصورة المتحركة !! جعفر

السلام عليكم 🙂 اولا علينا اخراج المجموع ، والمعدل لسنة واحدة ، فرجاء تحذف الحقول التي لا تدخل في المجموع: Summ : Nz([df1], 0) + Nz([df2], 0) + Nz([dav], 0) + Nz([af1], 0) + Nz([af2], 0) + Nz([aav], 0) + Nz([ef1], 0) + Nz([ef2], 0) + Nz([eav], 0) + Nz([rf1], 0) + Nz([rf2], 0) + Nz([rav], 0) + Nz([ejf1], 0) + Nz([ejf2], 0) + Nz([ejav], 0) + Nz([of1], 0) + Nz([of2], 0) + Nz([oav], 0) + Nz([ff1], 0) + Nz([ff2], 0) + Nz([fav], 0) + Nz([sf1], 0) + Nz([sf2], 0) + Nz([sav], 0) + Nz([mosf1], 0) + Nz([mosf2], 0) + Nz([mosav], 0) + Nz([mf1], 0) + Nz([mf2], 0) + Nz([mav], 0) + Nz([hf1], 0) + Nz([hf2], 0) + Nz([hav], 0) + Nz([maf1], 0) + Nz([maf2], 0) + Nz([maav], 0) ثم ننظر في معدل سنتين او ثلاث جعفر

وعليكم السلام 🙂 اكتب لنا الكود اللي عندك ، علشان نعدل عليه 🙂 جعفر

تفضل يا سيدي 🙂 . وهذا الجزء من الكود الذي تم تعديله: Me.FilterOn = True Me.Filter = "[yer] = " & MyYear & " and [num] ='" & MyNumnf & "' and [nu] ='" & MyMntj & "' and [NameEmb] ='" & MyMonth & "' and [jh] ='" & MyNoa & "'" ' يتم حساب عدد الحقول التي بها أرقام For i = 1 To 74 fld_value = DSum("fld" & i, "tbl", "[yer] = " & MyYear & " and [num] ='" & MyNumnf & "' and [nu] ='" & MyMntj & "' and [NameEmb] ='" & MyMonth & "' and [jh] ='" & MyNoa & "'") If fld_value > 0 Then 'Debug.Print fld_value 'If DSum("fld" & i, "tbl", "[Name1]='" & Myfilter & "'") > 0 Then flCnt = 1 + flCnt 'إظهار الحقول غير الفارغة Me("fld" & i & "").visible = True Me("lbl" & i & "").visible = True Me("s" & i & "").visible = True ' حساب عرض كل حقل Me("fld" & i & "").Width = Len(CStr(fld_value)) * 145.5 Me("LBL" & i & "").Width = Len(CStr(fld_value)) * 145.5 Me("s" & i & "").Width = Len(CStr(fld_value)) * 145.5 End If Next i If flCnt = 0 Then MsgBox "لا توجد حقول بها قيمة", , "خطأ" DoCmd.CancelEvent Exit Sub End If ' حساب عرض كل حقل 'For i = 1 To 74 'Me("fld" & i & "").Width = Me.Name1.Left / flCnt 'Me("LBL" & i & "").Width = Me.Name1.Left / flCnt 'Me("s" & i & "").Width = Me.Name1.Left / flCnt 'Next i ' إعادة توزيع الحقول غير الفارغة For i = 74 To 1 Step -1 Me("fld" & i & "").Left = WidthFld Me("lbl" & i & "").Left = WidthFld Me("s" & i & "").Left = WidthFld If Me("fld" & i & "").visible Then 'WidthFld = Me("fld" & i & "").Width + WidthFld WidthFld = Me("s" & i & "").Width + WidthFld End If Next i جعفر مطابقة موجودات2.zip

وعليكم السلام 🙂 هذا الرابط قد يفيدك : جعفر

هذه الصورة بصيغة Gif ، في النموذج ، ، في وضع التصميم ، استخدم عنصر الانترنت Microsoft Web Browser : . . . وفي حدث عند تحميل النموذج: Private Sub Form_Load() Me.ocxWebBrowser.Object.Navigate CurrentProject.Path & "\Blooming_Flower.gif" End Sub . ويجب ان تكنو مختار هذه المكتبة في صفحة الكود VBE : واذا كان نظام كمبيوترك 32 بت ، فيجب ان: انقر على ...Browse ، ثم C:\Windows\System32 ، واختار الملف ieFrame.dll . والنتيجة : جعفر

ياريت تضع مشاركتك في الرابط ، وتعطينا الاكواد والمكتبات اللي عندك ، واذا يكون بمرفق ، فيكون افضل : جعفر

السلام عليكم 🙂 اليك بعض الامثلة على طلبك: . . . جعفر