jjafferr

تفضل :) 1. التقرير الاول: أ. اضف الحقول كما في الصورة التالية: ب. الكود التالي يخفي الحقول الغير مطلوبة ، ويعمل بمقارنة رقم الصفحة بالصفحة الاخيرة من التقرير: Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If Me.Page = Me.Pages…

حياك الله :) جعفر

وعليكم السلام اختي :) 1. غيري اسم الحقل من count الى counter ، لأن count احد اوامر اكسس ، 2. استخدمي هذا الكود في الحال للنموذج الرئيسي: Private Sub Form_Current() Me.Counter = Me.Table1_History.Form.RecordsetClone.RecordCount End Sub جعفر

حياك الله :) رجاء عمل تغيير على الكود ليصبح: Function Return_Value(v) If v >= 100 And v <= 1000 Then Return_Value = v * 0.02 ElseIf v >= 1001 And v <= 3000 Then Return_Value = v * 0.03 ElseIf v >= 3001 And v <= 4000 Then Return_Value = v * 0.04 End If End Func…

وين المرفق؟

هل هذا المطلوب؟ 1. بالنسبة الى النموذج الفرعي ، نعمل هذا التعدلت في ربطه مع النموذج الرئيسي: 2. بالنسبة الى القائمة ، نغير: الى وهنا نرى العمل في هذه الصور المتحركة (اضغط على الصورة لكي تعمل): جعفر 243.long goals.accdb.zip

وعليكم السلام ورحمة الله وبركاته اولا: ليش تريد عمل هذا ؟ ثانيا: تقدر تعمل المطلوب على خطوتين: أ. استعمل اكسس 2010 وحول البرنامج الى صيغة 2000 ، ب. استعمل اكسس 2003 او اكسس XP او اكسس 2000 ، ثم حول البرنامج الى اكسس 97 :) جعفر

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

تفضل طريقة اخرى ، المعادلة في كود او وحدة نمطية :) 1. التقرير: 2. والكود: Function Return_Value(v) If v >= 100 And v <= 1000 Then Return_Value = 0.02 ElseIf v >= 1001 And v <= 3000 Then Return_Value = 0.03 ElseIf v >= 3001 And v <= 4000 Then Return_Value = 0.0…

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

وعليكم السلام :) وهذا تأييد لجواب الاخ ssm :) الفارق اللي موجود عندك بين القيمتين هو (حسب ما هو واضح في الصورة) : 2.84217E-14=-0.0000000000000284217- لذلك ، يجب عليك معالجة هذا الموضوع برمجيا :) جعفر

وعليكم السلام :) الاكسس يأخذ إعدادات الساعة والتاريخ من الوندوز ، فالافضل تعديلها هناك وليس الاكسس. جعفر

ياريت يا ابوعلي ترفق لي برنامجك اللي فيه هذه الجزئية فقط ، فالموضوع سيكون واجد اسهل لي افهمه واشوفه واتابعه معاك ، وان شاء الله نتوصل لحل له :) جعفر

تفضل ، والسموحة على التأخير :) انا استخدمت qry_Ship_Name و rpt_Ship_Name جعفر 241.Northwind 2007.accdb.zip

حياك الله ابوعلي :) ما فهمت سؤالك :( رجاء تعطيني تفاصيل اكثر ، وبمثال لو سمحت ، وما هو الحقل الذي يربط النموذج الرئيسي بالفرعي؟ جعفر

تفضل :) >اعمل نموذج اولي ، وليكن اول نموذج تفتحه قاعدة البيانات بعد إدخال اسم المستخدم ، فيه هذا الكود: Private Sub Form_Load() This_Form_Name = me ' Show certain Forms based on CurrentUser() If CurrentUser() = "مسؤول مبيعات" Or CurrentUser() = "مسؤول مبيعات2"…

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

تفضل :) ضع هذا الكود على ضغطة الزر المزدوجة للقائمة: Private Sub SearchList_DblClick(Cancel As Integer) 'On Error Resume Next 'Forms![gardd]![Vdes] = [SearchList] 'Forms![gardd].Form.Requery 'Forms![gardd]![id].SetFocus ID2 = Me.SearchList.Column(1) Set rs = M…

:)

نعم ، تم عمل الازم بمربع واحد ، عن طريق الامر SelStart :) وهذا هو الكود: Option Compare Database 'keep the value of what/where we clicked, in memory Public Where_Clicked As String Function Change_Time(N) Dim T, TT As Date 'keep the values in memory, as the tim…