jjafferr

السلام عليكم لا ادري اذا قوانين المنتدى تسمح لك بعمل اكثر من حساب لشحص واحد ، كما هو الوضع معك radwan1991 و radwank64 !! المنتدى مليء بمواضيع تشبه طلبك ، فكل ما عليك عمله هو استخدام خاصية البحث للحصول على روابطها ، واليك بعض هذه المواضيع: https://www.officena.net/ib/topic/77097-استيعاب-سجلات-التقرير-كلها-فى-صفحة-واحدة-مهما-اختلف-عددها/?do=findComment&comment=494389 https://www.officena.net/ib/topic/36167-موضوع-مميز-الحل-الشافي-لتقارير-أكسس/ https://www.officena.net/ib/topic/45998-طباعة-عدد-سجلات-محدد-في-صفحات-التقرير-معدل/?do=findComment&comment=273465 جعفر

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

تفضل انا عملت تغيير في الجدول ، فعملت اسماء الخدمة عبارة عن رقم ، وفي النموذج ، يختار مربع السرد العمود الصحيح لإعطاء الاسم ، سواء بالعربي او الانجليزي ولكنك ستلاحظ ان الكود سيعمل الى ان تحصل على الخدمة السادسة بالمجان ، ولكن ماذا بعد ذلك؟ رجاء تجربة الكود لعدة زبائن والكود: Private Sub Name_employee1_AfterUpdate() Me.Amountofservice = Me.Name_employee1.Column(2) Me.ServiceName = Me.Name_employee1 'Me.Name_employee1.Column(1) Call Check_Qty End Sub Private Sub ServiceName_AfterUpdate() Me.Amountofservice = Me.ServiceName.Column(2) Me.Name_employee1 = Me.ServiceName 'Me.ServiceName.Column(3) Call Check_Qty End Sub Private Sub Check_Qty() If DCount("*", "Service", "[Nameemployee1]=" & Me.Name_employee1 & " And [CustomerNumber]=" & Me.CustomerNumber) = 5 Then Me.Amountofservice = 0 End If End Sub . جعفر 780.تجريي2.accdb.zip

غيّر Dcount الى Dsum جعفر

كان عندك ' زائدة في الاستعلام الاول ، لهذا السبب كنت تحصل على خطأ ، وتم تصحيح الاستعلام الثاني كذلك: . والنتائج . جعفر 779.QryVisitors.accdb.zip

يجب عدم استخدام Dlookup ، لأنها تعطي اول قيمة تلقاها في الجدول (كما قلت انت) والطريقة الصحيحة هي عمل استعلام يأخذ فيه جميع بيانات الجدول T_Caht ربطا بأسماء المستخدمين من الجدول user: . ومن هذه الجداول ، نرى ان بيانات الاستعلام صحيحة: . على هذا الاساس ، التنسيق الشرطي يصبح . والنتيجة: . جعفر 778.تنسيق شرطي.accdb.zip

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

في النموذج ، الحقل [xn3] فارغ

عفوا عفوا عفوا !! انا اعتذر عن هذا الخطأ تعديل اخير = iif([Travel2]=1 or [Travel2]=2 or [Travel2]=3 or [Travel2]=6 or [Travel2]=7 or [Travel2]=8 ; nz(Dcount("[Travel2]";"Tabil_Visitors";"[Num_brnamge]='" & [Num_brnamge] & " And [Travel2]=" & [Travel2]);0) ; 0) يعني في سطر واحد يصبح الكود = iif([Travel2]=1 or [Travel2]=2 or [Travel2]=3 or [Travel2]=6 or [Travel2]=7 or [Travel2]=8 ; nz(Dcount("[Travel2]";"Tabil_Visitors";"[Num_brnamge]='" & [Num_brnamge] & " And [Travel2]=" & [Travel2]);0) ; 0) جعفر

نسخة الاكسس 2003 لم يكن فيها xlsx ويمكنك استخدام الامر الذي تستخدمه xls ، لأنه يعمل على جميع اصدارات الاكسس جعفر

حياك الله اخوي وضاح جعفر

وعليكم السلام الله يطول في عمرك ، لازم تشوف رأي الاكسس ، مو رأينا اذا هذه الاختيارات موجودة في هذا الامر كما يمكنك استخدام الامر docmd.TransferSpreadsheet .... جعفر

تفضل =Nz(DSum("[Travel2]";"Tabil_Visitors";"[Num_brnamge]='" & [Num_brnamge] & "' and ([Travel2]=1 or [Travel2]=2 or [Travel2]=3 or [Travel2]=6 or [Travel2]=7 or [Travel2]=8)");0)

التنسيق الشرطي ينطبق على جميع السجلات الظاهرة على الشاشة ، رجاء ارفاق هذه الجزئية من برنامجك حتى استطيع مساعدتك. جعفر

accdb للذين يستخدمون الاكسس 2007 فما فوق ، mdb للذين لا يزالون يستعملون 2000 - 2003 جعفر

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

انت لم تستعمل استعلام تحديث (2) !! . بينما عند الضغط على زر التحديث ، يتغير شكل الاستعلام ، وعليه يكون هكذا: . جعفر 777.iep.accdb.zip

يعني اذا قصدك ان تستعين بالمعادلة داخل الاستعلام ، فيجب ان تعمل استعلام تجميعي جديد ، والمصدر الاستعلام اعلاه ، ثم تضيف الحقل التالي: D: Nz(count(iif([Travel2]= 2; 1;0));0) جعفر

وعليكم السلام 1. اذا كان عندك نموذج مستمر او نموذج بيانات (كما هو الحال مع النموذج detail) ، فالاكسس يعطيك ميزة جمع بيانات الحقل بهذه الطريقة (مثلا جمع بيانات الحقل debit) : =Sum([debit]) . فكان من السهل علينا استخدام نتيجة حقل المجموع ، واستدعائه من النموذج الرئيسي ، كما بإمكاننا ان نقوم بعملة الجمع بعدة طرق ، حتى من النموذج الرئيسي (او اي نموذج في قاعدة البيانات ، او حتى خارج قاعدة البيانات) ، فالمهم معرفة اي البيانات نريد ان نجمع (يعني بعد تصفية البيانات ، فمثلا في حالتك ، تصفية البيانات عن طريق CouponID) ، لذلك ، فعندنا مجموعة اماكن نستطيع ان نقرأ البيانات منها بعد التصفية ، من الجدول والاستعلام (واللذان يحتاجان استعمال معيار CouponID ) ومن النموذج الفرعي والذي يكون قد تم تصفية بياناته حسب CouponID النموذج الرئيسي ، وبعد معرفة اي البيانات نريد جمعها بعد تصفيتها ، نأتي الى طريقة الجمع ،ولكل مكان طرقه في الجمع 2. مادامت البيانات كلها موجدة في الحقل daleel ، فنضع على الحدث "بعد التحديث" . نضع هذا الكود (هذه الارقام بسبب الطريقة التي وضعتها انت في استعلام بيانات daleel) : Private Sub daleel_AfterUpdate() Me.Dept = Me.daleel.Column(2) Me.m1 = Me.daleel.Column(3) End Sub اما السؤال الثالث فما افهم فيه ، كما ان قوانين المنتدى لا تسمح بأكثر من سؤال ، لذا فرجاء ان تفتح فيه سؤال مستقل جعفر 763.3.سند مزدوج.accdb.zip

عفوا سؤالك غير واضح !! اذا قصدك تحديث بيانات التواريخ في الجدول ، فأنا اعطيتك الطريقة ، وقلت لك: . جعفر

وهذه النسخة بصيغة mdb مشتريات ومبيعات 2017.mdb.zip

وعليكم السلام اهلا وسهلا بك في المنتدى المنتدى مليء بمثل هذه المواضيع ، وكل ما عليك عمله هو استعمال خاصية البحث ، تفضل: https://www.google.com/search?ei=qMkjWsz4L-nQgAbK8rOIAQ&q=access+-excel+سكانر+site%3Awww.officena.net&oq=access+-excel+سكانر+site%3Awww.officena.net&gs_l=psy-ab.12..0i71k1l4.0.0.0.204684.0.0.0.0.0.0.0.0..0.0....0...1..64.psy-ab..0.0.0....0.LmqbH6uzz5g جعفر

اي مرفقات تريد؟

تمام ، اذن نحن في الطريق الصحيح جرب هذا =Nz(DSum("[Travel2]";"Tabil_Visitors";"[Num_brnamge]=" & [Num_brnamge] & " and [Travel2]=" & 2);0) جعفر

وعليكم السلام جرب هذا اذا الحقل رقم =Nz(DSum("[Travel2]";"Tabil_Visitors";"[Num_brnamge]=" & [Num_brnamge] & " and [Travel2]=2");0) اذا الحقل نص =Nz(DSum("[Travel2]";"Tabil_Visitors";"[Num_brnamge]='" & [Num_brnamge] & "' and [Travel2]=2");0) . يجب ان تربط الجدولين في استعلام ، ومنه قيمة الحقل Visitors ستكون للسجل الصحيح. جعفر