Shivan Rekany

السلام عليكم ورحمة الله وبركاته اهلا بك في منتداك قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.ومخالفة ذلك تعرض الموضوع للحذف وانا رديت عليك هنا ومن قبل كان طلبت منك ان ترفق قاعدة مصغرة من قاعدة بياناتك لكي نعمل عليه

الكود اصبح هكذ في محرر فيجوال بعد تحديث لمبلغ 1 و مبلغ 2 بنكتب هذا حسب قاعدة بياناتك Me.MECMOA = IIF([MBLX2] = 0, [MBLX1] * 50, IIF([MBLX2] > [MBLX1], [MBLX1] * 50, [MBLX2] * 50)) نموذج لتعديل.rar

شكرا سروك

استخدم هذا في الاستعلام او مصدر مربع نصي للمجموع وغير تسميات بما يناسب مع قاعدة بياناتك IIF([MBLX2]=0;[MECMOA]=[MBLX1]*50;IIF([MBLX2]>[MBLX1];[MECMOA]=[MBLX1]*50;[MECMOA]=[MBLX1]*50)) مبلغ 1 = MBLX1 مبلغ 2 = MBLX2 مجموع = MECMOA واذا تريد تستخدم في حدث بعد تحديث تكدر تستخدم هكذا IIF([MBLX2]=0,[MECMOA]=[MBLX1]*50,IIF([MBLX2]>[MBLX1],[MECMOA]=[MBLX1]*50,[MECMOA]=[MBLX1]*50)) الفرق بينهما هو الرموز ( ; ) و ( , ) وتكدر ايضا تستخدم دالة IF هكذا اذا تريد IF ME.MBLX2 = 0 THEN ME.MECMOA = ME.MBLX1 * 50 ELSEIF ME.MBLX2 <> 0 AND ME.MBLX1 > ME.MBLX2 THEN ME.MECMOA = ME.MBLX2 * 50 ELSEIF ME.MBLX2 <> 0 AND ME.MBLX1 <= ME.MBLX2 THEN ME.MECMOA = ME.MBLX1 * 50 ENDIF تحياتي

اي تكدر تستخدم دالة IIF

اتفضل ما تريد للعلم انا غيرت اسم الجدول واسماء الحقول واسماء المربعات النصيه‌ في نموذج استخدمت هذا بعد تحديث كومبوبوكس Private Sub Type1_AfterUpdate() On Error Resume Next If Me.Type1 = "إيداع" Then Me.t500 = "-" & Me.t500 Me.t200 = "-" & Me.t200 Me.t100 = "-" & Me.t100 Me.t50 = "-" & Me.t50 Me.t20 = "-" & Me.t20 Me.t10 = "-" & Me.t10 Me.t5 = "-" & Me.t5 Me.t1 = "-" & Me.t1 Else Me.t500 = Abs(Me.t500) Me.t200 = Abs(Me.t200) Me.t100 = Abs(Me.t100) Me.t50 = Abs(Me.t50) Me.t20 = Abs(Me.t20) Me.t10 = Abs(Me.t10) Me.t5 = Abs(Me.t5) Me.t1 = Abs(Me.t1) End If End Sub وفي حالة تحديث اي حقل استخدمت هذا Private Sub t500_AfterUpdate() Type1_AfterUpdate End Sub وهناك بعض ملاحظات : 1- المفروض ان نبتعد من استخدام الكلمات المحجوزة من قبل الاكسس مثل Type و Data 2- مستحسن ان نسمي الحقول او المربعات النصية يبدأ بحرف بعدين اذا نريد ان نضيفه ارقام تحياتي New.rar

مثلا تكدر تستخدم شي هكذا IF DCount("asm_haqil_raqam_watane","asm_cadwal", "[asm_haqil_raqam_watane]=" & Me.asm_Mirabaa_Nise_raqam_watane ) > 0 Then ' اكتب ما تريد من الاوامر مثلا ان يظهر رسالة وبيحذف ما كتبته او ماتريد else ' اي اذا كان النتيجة ليس اكبر من الصفر ' اكتب امر اذا كان تريد ان يفعل شي والا اقل الدالة اييف Endif غير asm_haqil_raqam_watane باسم حقل رقم الوطني اللي في جدول غير asm_cadwal باسم الجدول غير asm_merabaa_Nise_raqam_watane باسم مربع نصي في النموذج تحياتي

اخي الكريم اهلا بك في منتداك ارفق نسخه‌ مصغرة لقاعدة بياناتك لكي نعمل عليه تحياتي

حسب فهمي لسۆالك تكدر تستخدم دالة IF مع DCount

اتفضل هناك بعض ملاحظات: 1- لا يجوز ان يكون عندك ريكورد بالتاريخ اليوم مثلا وبعدين تجي تضيف ريكورد بالتاريخ البارحة اي قبل اليوم ... هذا لان "هل رأيت احد بيكدر ان يرجع للوراء " 2- تقول انا راح ارجع للوراء سانطيك مفتاح اخر لكي تعبر الخطوط الجوية الا وهو الرابط الاعلاه في مشاركتي السابقة تحياتي db1.rar

تابع الرابط الاسفل لعل تستفيد منها تحياتي

تابع هذه المشاركة بها ماتريد

بارك الله فيك يا مشرفنا

مع الحقول التواريخ بيستخدم "#" مع المعيار اي سيكون المعيار الاعلى هكذ واحيانا لازم نستخدم دالة فورمات مع تاريخ لكي يحدد نوع التاريخ [Xdate]<=#" & [Xdate] &"#" تحياتي

اعمل نموذج اولا واضف زر على النموذج واليك هذا الكود DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.OpenTable "TAB2", acViewNormal, acAdd DoCmd.RunCommand acCmdPasteAppend DoCmd.Close acTable, "TAB2", acSaveYes اكتبها خلف زر في محرر فيجوال @أم خلود جرب ووافيني بالنتيجة تحياتي

هكذا مثلا =IIF(DSum("[Expr1]";"sa3atIzn")>0 ;DSum("[Expr1]";"sa3atIzn");0)

في مصدر المربع النصي استخدم دالة IIF

اخي العزيز من جهازك افتح كونترل بنال و بعدين اللغه‌ والكيبور وبعدين اضبط الإعدادات الاقليميه على دولتك ان شاء الله راح يتم الحل والا جرب ان تنصب على جهازك برامج فيجوال بيسك ولكن الگريقه‌ الاولى احسن جرب ووافيني بالنتيجه‌ تحياتي

هل يفتح القاعده‌ على جهاز اخر ؟ احيانا يظهر هذه الرسالة حين لم يوصل القاعدة لكائنات المخزنة في ذاكرة مؤقته احذف القاعدة المؤقتة في الجهاز وبعدين افتح قاعدة بياناتك من جديد لعل تفيد وتكدر توصل الى قاعدة مؤقته في جهازك في مسار التالي C:\users\username\AppData\Local\Microsoft\Access\DatabaseCache\15.0 هذا والله يعلم تحياتي

افتح محرر فيجوال لقاعدة بياناتك افتح قائمة tools اختر ريفرينس وشوفيني مثل هذه الصورة

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

اسف اخي سروك اتفضل القاعدة بعد التعديل للعلم انا اضفت للكود اون تايمر Me.TimerInterval = 0 Private Sub Form_Timer() Se = Se + 1 If Se >= 2 Then Me.TimerInterval = 0 Call DeleteAllFormsAndReportsss DoCmd.DeleteObject acMacro, "autoexec" DoCmd.DeleteObject acModule, "module5" End If End Sub تحياتي end.rar

واليك طريق اخر او غير كود الكومبوبوكس من هذا Private Sub ID_AfterUpdate() Me.time1 = Time() Me.Date1 = Date() End Sub الى هذا Private Sub ID_AfterUpdate() Me.time1 = Time() Me.Date1 = Format(Date, "yyyy/mm/dd") End Sub سيتم الحل ان شاء الله بدون الطريقة السابقة

غير هذا السطر من الكود الى " And [التاريخ] = #" & Format(Me.Date1, "YYYY,MM,DD") & "#") احيانا يصير المشاكل مع التواريخ لانه ما نحدد اي تاريخ مانريد اليك ملفك بعد تعديل منع تكرار التسجيل.rar

الكود الاعلاه صرنا كمصدر المربع نصي والكود هو 1 - يبدأ من ( = ) يساوي اي المربع النص يساوي اللي ما بعد يساوي 2- بين شريحتين "" كتبنا ( " تقرير لـشهر " ) لكي يعرفه ان هو نص وليس شيء اخر 3- اضفنا ( & ) لكي يدمج الاول اي ( " تقرير لـشهر " ) مع اللي ما بعده 4- كتبنا Format(Date();"mmm") لكي بيأخذ شهر بكتابتاً من التاريخ اليوم 5- من جديد اضفنا ( & ) لكي يدمج اللي ما قبله و ما بعده 6- اضفنا فراغ بين شريحتين ("") اي اضفنا شريحتين بعيدين من الاخر هكذا ( " " ) لكي بيصير الفراغ بين الشهر اي اللي ما كتبنا واللي سنكتب بعد 7- من جديد كتبنا ( & ) لكي يدمج بين ما كتبنا وما سنكتب بعد 8- كتبنا Format(Date();"yyyy") اي لكي يأخذ السنة فقط من التاريخ اليوم ارجوا ان وصلت لك المفهوم تحياتي