kaser906

هذا الكود لم يكن موجود بعد اضافته اصبح الامر تمام شكرا لك اخوي ابو موسى ربي يبلغك في موسى وحسين بس لا تنسى تعزمني

استاذي الصورة اللي وضعتها فقط للخطأ هذا هو الكود اللي وضعته بالكامل ويطلع الخطأ Dim rst As DAO.Recordset mySQL = "SELECT Tbl_Month.exchange, Tbl_Month.Monthly, Tbl_Month.Yaree" mySQL = mySQL & " FROM Tbl_Month_exchange INNER JOIN Tbl_Month ON (Tbl_Month_exchange.Yaree = Tbl_Month.Yaree) AND (Tbl_Month_exchange.Monthly = Tbl_Month.Monthly)" mySQL = mySQL & " WHERE (((Tbl_Month.Monthly)=" & Forms!frm_3!Monthly & ") And ((Tbl_Month.Yaree)=" & Forms!frm_3!Yaree & "))" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If rst!exchange > 0 Then MsgBox "Exchange field value is Greater than Zero" Else MsgBox "Not Greater than Zero" End If Exit_Report: rst.Close: Set rst = Nothing Exit Sub err_Report: If Err.Number = 3021 Then MsgBox "لا يوجد تشابه بين الجدولين" Resume Exit_Report Else MsgBox Err.Number & vbCrLf & Err.Description End If

عندما وضعت الكود في برنامجي ظهر عندي هذا الخطأ عندما وجد شرط ينطبق اي هناك سجل في في الجدول Tbl_month وكان قيمة القل exchange اكبر من صفر ولم يجد سجل في الجدول Tbl_Month_exchange

الله يعطيك العافية استاذي نسيت تضيف شرط ان تكون قيمة الحقل exchange اكبر من صفر

الله يعطيك الف عافية اخوي ابو موسى اسمح لي اتعبتك كانت المشكلة عندي في نسخة الاكسس الان كل شي تمام

يبقى الصف متجمد لايظهر اي شيئ ماهو السبب

ان شاء الله تكون الصورة هذي توضح المطلوب

السلام عايكم ورحمة الله وبركاتة بالمرفق اريد كود عند النقر على زر الأمر في النموذج frm_3 يعد السجلات بالجدول Tbl_Month والتي يكون فيها حقل exchange اكبر من صفر وحقل Monthly = حقل Monthly في النموذج frm_3 وحقل Yaree= حقل Yaree في النموذج frm_3 والشرط من الجدول Tbl_Month_exchange أن لايحتوي على نفس قيمة Monthly وحقل Yaree في النموذج frm_3 ,والنتيجة اذا كان عدد السجلات اكبر من 0 تظهر رسالة اكمل السجلات في جدول Tbl_Month_exchange countmy.rar

حاولت ما نجحت اذا ممكن تشرح الطريقة حاولت ما نجحت اذا ممكن تشرح الطريقة

هههههههههه لك كل الدخل استاذي العزيز استاذي معليش خذني على قد عقلي الملف اللي انا رفعته كان حقل Monthly والحقل Yaree بالجدول Tbl1 مفهرس نعم التكرار مقبول نعم فقمت انت الله يحفظك ويطول بعمرك ويرزقك ويسعد ويقضي حاجتك بجعل الحقلين Monthly والحقل Yaree بالجدول Tbl1 مفهرس نعم التكرار مقبول لا الشيئ الاخر عجزت اربط بين الحقلين في الجدولين ما يظهر عندي الا حقل واحد فقط

عفواً استاذي جعفر العلاقة بهذه الطريقة لن تسمحل لي بتكرا ر الشهر المفروض ان لايتكرر الشهر مع السنة نفسها مثال 2016/2 المفروض مايتكرر العلاقة هذي ما راح تسمح ادخل الشهر مرة اخرى ولن تسمح لي بادخال السنة مرة اخرى مع شهر أخر 2015/2

لسلام عليكم ورحمة الله وبركاتة احاول انشاء علاقة بين الجدول Tbl1 والجدول Tbl_Month_exchange مثل العلاقة بين الجدول Tbl1 والجدول Tbl_Month كلما حاولت بناء العلاقة تظهر خصائص العلاقة غير معرف حاولت كثيرا ولم استطع علماً اني انا من انشئت العلاقة السابقة المصيبة الاكبر عندما احذف العلاقة بين الجدولين واحاول اعادة بنائها تظهر غير معرف alaqat.rar ا المطلوب انشاء نفس العلاقة مع الشرح

ما هي غايبة عن بالي من وقت كتابتي للموضوع إلى الأن وانا اعمل نسخ ولصق احاول اعمل مثال مصغر كل الامثلة طالعة معي باخطاء

جداول وعلاقات واكواد وحداات نمطية استعلامات هذا اللي صعب علي ارفاق القاعدة

هذي عاد عليك انت

ماشاء الله تبارك الله عليك نسخة الكود كان السبب ما غيرت فيه المسمى الى الحقل الجديد الله يرحم والديك

استاذي ابو موسى بعد تطبيق الكود على البرنامج عندي مع تغيير بعض المسميات ظهر عندي هذا الخطا

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

السلام عليكم ورحمة الله وبركاتة في النموذج الفرعي وضعة =Nz(Sum([Expr1])) وفي النموذج الرئيسي جعلت الحقل يساوي حقل النموذج الفرعي لكن عندما لاتكون هناك قيم مدخلة =Nz([Frm_Month].[Form]![sh])

الله يعطيك العافية اخي الكريم هذه الطريقة تستوجب مني الذهاب الى الجدول tbl_kind و وضع وتأشير الحقل asd أو ان اقوم بتحديث الحقل coodkindexchange في النموذج Frm_Monthexchange علماً النموذج فقط لعرض السجلات ولن تتم عليه اي اجراءات ما اريده ان تكون التصفية مباشرة بمجرد فتح النموذج

السلام عليكم ورحمة الله وبركاتة بالمرفق مثال النموذج الاساسي tabl يحتوي على حقل الرصيد ويضم النموذج الفرعي Frm_Monthexchange والنموذج الفرعي tbl_kind اريد تصفية مربع التحرير والسرد في النموذج tbl_kind بحيث لايدرج ارقام الصنف المعروضة في نموذج Frm_Monthexchange فقمت بوضع معيار في استعلام مربع مصدر الصف كما بالصورة ارجو المساعدة في تصفية جميع tbl.rar

up

الف مبروك ابو عبد الله تستاهل كل خير

السلام عليكم ورحمة الله وبركاتة بالمرفق مثال النموذج الاساسي tabl يحتوي على حقل الرصيد والنموذج الفرعي يحتوي الحقل total = حقل الرصيد المتاح بالنموذج الاساسي حقل عدد الكمية المطلوبة وحقل سعر الوحد عند ادخال العدد المطلوب يكون العدد المطلوب * سعر الوحدة الناتج: اجمالي مبلغ العدد المطلوب وضعت كود لمقارنة اجمالي المبلغ بمبلغ الرصيد المتاح بالنموذج الاساسي قبل التحديث لضبط العملية الحسابية وعدم وجود اخطاء If Me!Total3 > Me![total] Then MsgBox "مبلغ العدد المدخل اكبر من الرصيد المتاح ", vbCritical, "رسالة خطأ" DoCmd.CancelEvent required_numberexchange.Undo لكن للاسف يتم حسم المبلغ في حقل total قبل تنفيذ الكود فتظهر رسالة بأن مبلغ العدد المطلوب اكبر من مبلغ الرصيد المتاح امل المساعدة في جعل الكود يتأكد من العدد ويقارن المبلغ بالرصيد المتاح قبل التحديث TOTE.rar

عندما تجتمع العمالقة وتدور رحى التفكير تظهر الحلول شكرا استاذي جعفر