jjafferr

:)

:)

للاسف ، الكلمات العربية قلبت الامر ، فما صار مفهوم :( المفروض يكون بهذا التفصيل: DARIBA: IIf( ([comp]='شركة مصر للسياحة' And [KIND_TRANSE]='حقول') Or ([comp]='شركة ترافكوا' And [KIND_TRANSE]='حقول') ,0,[PRICE_LIST]*10/100) والمرفق 249.TRAVEL.mdb.zip

وعليكم السلام :) آسف ، لم افهم طلبك الاول :( إما انك ترفق قاعدة بياناتك علشان نشوفها ، او ترفق لنا صور منها في مكان الخطأ. اما ثانيا ، فيمكننا عمل هذا عن طريق الاستعلام ، ونجعل الاستعلام مصدر للنموذج :) 1. عملت جدول باسماء غير منظمه ، 2. وهنا الاستعلام الذي يع…

انا اعتذر منك اخ خالد ، فلم الاحظ اين الخطأ ، وانت لم تخبرني ان البرنامج اخذ "الداخلية" كصفر (يعني قلت في خطأ ولكن لم تحدد اين الخطأ بالضبط) ، وانا كنت انظر للعموم وليس للتفصيل :( تفضل الكود المعدل: DARIBA: IIf(([comp]='شركة مصر للسياحة' And [KIND_TRANSE]='حقو…

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

طيب غير مثل ما هو مطلوب ، ولكن هل تظهر لك النتائج؟ مرفق لبرنامج جعفر 249.TRAVEL.mdb.zip

حياك الله أختي :) إجابة على استفسارك عن DCount ، فطبعا ممكن استخدامها ، ولكني في مثل هذه الحالات لا افضل استخدمها ، ورجاء زيارة مشاركتي على هذا الرابط لمعرفة السبب: /index.php/topic/278832-زر-امر/?p=1344505 جعفر

وعليكم السلام اخي أمير :) انا لا اعرف سبب هذا الخطأ ، ولكن عندي اقتراح يعمل في جميع اصدارات الاكسس :) ضع هذا الكود في كود النموذج المراد فتحه (يعني تخلي هذا الكود في جميع النماذج طبعا مع تغيير مقاسات كل نموذج) : Private Sub Form_Resize() inch_Twip = 1440 cm_Tw…

حياك الله اخي العزيز ابو علاء ، واسعد الله ايامك وايام من احببت إن شاء الله :) جعفر

الله يطول عمرك اخي خالد ، كله شغال تمام :) هاي المعادلة في الاستعلام: وهاي النتيجة: جعفر

وعليكم السلام اخي ابوعبير :) تفضل الكود : Private Sub Form_Load() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject ' Search for open AccessObject objects in AllForms collection. Look_For = "نموذج" For Each obj In dbs.AllForms 'If Lef…

وعليكم السلام اخي ابوعلاء :) تفضل ، هذا الاستعلام :) SELECT Left([docno],1) AS Expr1, Count(Left([docno],1)) AS Expr2 FROM benfo GROUP BY Left([docno],1); جعفر 250.benfo.accdb.zip

وعليكم السلام اخي :) حسب فهمي للسؤال ، فأعتقد بانك تقدر تربط الجداول ، بس في الاستعلام ، اعمل استعلام_1 ، يربط الجداول بالشرطين ، اعمل استعلام_2 ، يربط استعلام_1 مع الجدول بعلاقة التاريخ ، اعمل نموذج به كود يفحص التاريخ ، اذا كان متطابق حسب طلبك ، فإجعله يستخد…

تفضل :) DARIBA: IIf([comp]='شركة مصر للسياحة' Or [comp]='شركة ترافكوا' And [KIND_TRANSE]='حقول',[PRICE_LIST]*0/100,[PRICE_LIST]*10/100) جعفر

انا اعتذر ، ولكني ما سمعت بهذه المشكلة مسبقا :( انزل جميع تحديثات الويندوز والاوفيس ، فقد يحل هذا المشكلة :) كذلك جرب الحلول في الروابط التاليه (صحيح الخطأ غير ، ولكن قد يكمن الحل فيه ، خصوصا الرابط الاول) : 1. /index.php/topic/278951-%D8%A7%D9%84%D8%AD%D8%B1%…

نعم أخي ، انا قمت باستعمال نفس البرنامج المرفق في مشاركتي رقم 6 اعلاه :) واذا عندك مشكلة ، فجرب البرنامج على كمبيوتر آخر :) جعفر

حياك الله :)

حياك الله :)

؟؟