jjafferr

اخي كامل بدل ان تكتب الكود اعلاه مباشرة في الرد ، ويكون تنسيقه عديم الفائده ، استخدم الاداة التالية (انظر السهم الاحمر): ليصبح التنسيق مقروء هكذا: DoCmd.ApplyFilter , " اللقب like '*" & [Forms]![اسم النموذج]![اسم مربع النص] & "*'" جعفر

انا لم ارى اي مرفق ، لذلك قولي ارتجالي لا تستطيع استعمال كومبو متغير في نموذج مستمر ، اي ان الكومبو تتغير قيمه حسب حقل آخر في السجل. جعفر

تعرف ليش الرسالة فارغة؟ انظر الى الكود مرة اخرى ، وستلاحظ انك استخدمت msgbox a بدل msgbox S !! اعطني دقائق وساعمل على بقية الكود جعفر تفضل هذا كود الالحاق للجدول CCP ، وطبعا تقدر قبل الادخال انك تتأكد من البيانات هذا الشهر اذا كانت موجودة (كما عملت انت في كود التقرير عند حدث الغلق) او بأي طريقة اخرى: والنتيجة: جعفر 288.krimo2015V1.mdb.zip

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

تم عمل هذا ، وتم حساب الوقت بالدقائق (لسهولة جمعه وتغييره الى ساعات لاحقا): . الآن حتى لا تتكرر الايام ، سنعمل المجاميع ، ولكن ماذا تريد العمل مع الاشخاص الذين ليس لديهم تاريخ حضور؟ جعفر 280.2.New.accdb.zip

لا يا كريمو ، هذا مو انصاف منك!!! هذه المرة اشوفك متخربط!! انا قلت: وانت طبعا تطلع نتائجك خطأ ، لأنك كتبت المعادلة خطأ وبعد التصحيح الى معادلتي ، هذه نتيجة الاستعلام والتقرير والكود: . . انا اعطيتك البيانات وقلت لك: فيعني انا ما عملت اي شئ بالجدول CCP جعفر

هاك الخطوات: نستعمل الاستعلام من التقرير: . نحفظه باسم qry_1-5_Sum . في النموذج ، FrmTransfer نضع هذا الكود لعملية الجمع ، وتستطيع جمع نتائج الاستعلام مع هذه النتيجة: . وقد عملت حقل لرقم الحساب في النموذج ، والنتيجة : . الآن عندك رقم الحساب ، والمجموع والتاريخ من النموذج ، فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت جعفر

وعليكم السلام أخي سلمان انا بخبرك عن كمبيوتر اشتريته حق الاولاد من سنين ، واقول لك شو صار فيه: الكمبيوتر كان بمواصفات عاليه وافضلها في وقتها ، بعد مدة عملت فورمات ، لأنهم حطوا على الكمبيوتر ما هب ودب ، ثم قفلته بواسطة برامج DeepFreeze ، بعد مدة غيّرت القرص الصلب وأضفت واحد زيادة ، لأن الالعاب الجديدة صارت تيجي بالجيجا ، بعد مدة غيّرت motherboard ، لأنهم احتاجوا يستعملوا كرت خاص للعرض ، بعد مدة غيّرت كرت الشاشة ، علشان Rendering ، واللي احتاج ان يغيّر Power Supply ، علشان كرت الشاشة ، بعد مدة غيّرت الشاشة ، وحتى Keyboard و Mouse تغيروا ، نعم لم اغيّر CPU ولا الهيكل الخارجي فهل الكمبيوتر اللي ظل عندي هو نفس الكمبيوتر الاصل!! جعفر

انا قلت الاستعلام ، ولم اقل التقرير لذا ، استعمل كود شبيه (ولكن على الاستعلام) ، يعمل من النموذج FrmTrasfer قبل فتح التقرير مثلا ، هكذا: Set Rs = CurrentDb.OpenRecordset("Select * From qry_1-5") جعفر وتحصل على المجوع هكذا مثلا: S= Dsum ("[Thevalue]","[qry_1-5]") جعفر

وعليكم السلام البرنامج اللي ارفقته محمي وما ممكن النظر فيه جرب انزال الملف من الرابط: https://sites.google.com/site/masaderedu/ جعفر

شوف الرابط التالي: http://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/ جعفر

السلام عليكم قصدك ان (1) نعمل حقل بإسم Nccp في النموذج FrmTransfer ونخذ المعلومه منه ، (2) ومن الحقل txtMonth1 ، التقرير مبني على الاستعلام qry_1-5 ، فهذا معناه اننا نستطيع ان نستخلص (3) Sum([SumOfTheValue]) المطلوبة مباشرة من الاستعلام ؟ جعفر

السلام عليكم أخي كريمو والله من أمس وانا ادور في حلقه مفرغه وماني قادر استوعب المطلوب النموذج FrmTransfer لا يحتوي على (1) ، ولا (3) ، فمن اين تريد ان تأخذ هذه البيانات لإدخالها للجدول CCP !! التحويل مرة واحدة فقط ؟؟ انا اعتذر منك ، فالمسأسلة فيها حلقه ضائعة ، فرجاء تشرح لي بالتفصيل عن المطلوب جعفر

وعليكم السلام في الاكسس 2010 الموضوع اسهل ، اول ما تشغل البرنامج من مجلد غير موثوق ، ستلاحظ ظهور خط اصفر في اعلى الشاشة ، اوقف الماكرو ، اضغط على الزر في الخط الاصفر ، وسيعمل البرنامج بطريقة صحيحة جعفر

وعليكم السلام ورحمة الله وبركاته إزيك يا راجل ، وحشتنا ، اخبارك ايه، من زمان ما سمعنا منك ان شاء الله تكون والاهل بخير وعافية اما نحن فبخير الباري ونعمه والطافه وبعد رد السلام ، تفضل: أفضل طريقة في اخفاء صف (المسمى الاصح هو تصفية سجل) ، هو ان تجعل الاستعلام مصدر لنموذجك او تقريرك ، واذا افترضنا ان اسم الحقل الذي تريد اجراء التصفية عليه اذا كان فارغا ، myID ، فضع المعيار التالي له في الاستعلام: is not null AND [myID]<>'' او ان تجمع هذين المعيارين في امر واحد: len([myID] & '')<>0 جعفر

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

أخي الفاضل هناك بعض الضوابط التي يجب ان تتبعها في مسميات الكائنات في الاكسس ، والتي سوف تساعدك كثيرا في المستقبل ، مثلا: 1. لا تترك مسافة بين الاسم ، وانما اجعله موصولا بحركة _ 2. لا تعطي الجداول والاستعلامات والنماذج نفس الاسم ، وانما ابدأ بـ t او tb او tbl للجداول ، و qry للإستعلامات ، و frm للنماذج ، و rpt للتقارير ، انا فككت لك الاستعلام Trade Account ، والذي هو مصدر معلومات النموذج Trade Account: . . وهنا تلاحظ اني عملت اول استعلام الحاقي للجدول tbl_Temp . وهذه حقول الجدول ، بحسب حقول الاستعلام Trade Account . ونتيجة بيانات الجدول ، ومقارنتها مع الاستعلام الاصلي Trade Account (يجب ان تفتح كل الاستعلامات الخمسة واحدا واحد وتصلح الخطأ ، فقد اكون الحقت احد القيم الى الحقل الخطأ) . وفي النهاية تغير مصدر النموذج Trade Account الى الجدول tbl_Temp . ولأني لم اعرف اين اشغل استعلامات الالحاق الخمسة ، فاني جعلتها في الحدث عند تحميل النموذج ، هكذا: Private Sub Form_Load() 'empty tbl_Temp CurrentDb.Execute ("Delete * From tbl_Temp") 'Append Records without warnings DoCmd.SetWarnings False DoCmd.OpenQuery "qry_1" DoCmd.OpenQuery "qry_2" DoCmd.OpenQuery "qry_3" DoCmd.OpenQuery "qry_4" DoCmd.OpenQuery "qry_5" 'set the warnings ON again DoCmd.SetWarnings True 'lets read the correct values form the table now Me.Form.Requery End Sub واصبح النموذج الان يعمل بسرعة ، ولم ألحظ عليه مشاكل ، لذلك ، وتماشيا لتوصياتي في المشاركات السابقة ، فاستعمل هذا الجدول المؤقت (او اي جداول مؤقته اخرى) ، والمفروض ان لا تحصل على المشكلة التي تعاني منها . جعفر 285.INVNTORY.accdb.zip

الظاهر لسبب ما ان الاستعلام UPQ لم يتقبل اسم النموذج بالعربي ، فغيرته الى Employee_Data ، مع بعض التعديلات. ولكن رجاء تتأكد ان تضبط "وضع أمان الاكسس " الى منخفض. جعفر 278.1.accdb.zip

نعم ، انت قلت: فالرسالة الاولى تطلب المعلومة من النموذج FrmTransfer ، اما الرسالتين الباقيتين ، فلم اعرف مصدرها جعفر عفوا بالنسبة للرسالة الثانية ، فالتقرير فيه هذا الحقل ، ولكن لا يوجد ما يشير الى مصدره!! الرسالة الثالثة لم اعرفها من اين

صافي يا لبن

أخي كريمو شوف الفرق بين معادلتك ومعادلتي: معادلتي DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#" ومعادلتك DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datet جعفر

وعليكم السلام أخي كريمو ' stDocName![rptTransfer]![qryTransfer].Controls("Datetirag") = Me.Datetirag ' DoCmd.Close acReport, "rptTransfer" DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#" في حدث النقر المزدوج ، اعمل هذا التغيير: جعفر

حياك الله أستاذ بس شوي شوي على اولادنا الطلبه جعفر

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

في احد برامجي ، والذي كان في الخدمة لمدة 14 سنه تقريبا ، وكان منقسم الى قسمين ، البرنامج كان على الشبكة ويُستعمل طوال اليوم من 5 مستخدمين على الاقل ، كانت خاصية الضغط عند الاغلاق مُفعّلة في جزء الجداول ، وبدون اي مشكلة جعفر