kaser906

حل : جميل استاذ رمهان

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

UP

السلام عليكم ورحمة الله وبركاتة بالمرفق يوجد استعلام حاولت دمج حقل المجوع مع النص عن لكن للاسف يظهر قيمة حقل النص بدل النص حاولت اضافو الدالة column(1) اترككم مع الصورة للمطلوب مع المرفق NamoerAndTeixt.rar

تفضل result11.rar

اهنئك اخي ابو موسى بهذه المناسبة وجعل الله ايامنا وأيامك كلها فرح وسعادة وسرور لاشيئ جديد مبدع كالعادة

اعمل اعددات كما هو موضح وستتحول جميع التواريخ الى هجري

شكرا لك اخي ابو عبدالله وضحت الفكرة

السلام عليكم ورحمة الله وبركاتة ابحث عن مثال يبين كيف يتم صرف المواد من المخزن مع انقاص العدد

هذا جاب نتيجة isnull([coodkindexchange])= true شكرا استاذ شيفان شكرا استاذ جعفر

السلام عليكم ورحمة الله وبركاتة قمت بعمل كود لعد السجلات بشروط الكود عندما اضيف له شرط لايأتي بأي نتيجة and [coodkindexchange]= Null وعندما اقوم بإزالة هذا الشرط فقط يعمل علماً ان الشروط مستوفاة بالجدول لعمل الكود حيث يوجد سجلات توافق كل الشروط المذكورة بالكود التالي If DCount("[coodkind]", "Tbl_Month", "[exchange]>0 And[coodkindexchange]= Null And [Yaree] = Forms![frm_3]![Yaree] and Monthly = Forms![frm_3]![Monthly]") > 0 Then MsgBox "إكمل بيانات المواد المستبدلة أولا !!!", 48, " رسالة تنبيه !" Me.code_2.SetFocus End If

حول الحقول بالجدول الى مربعات نص واجعل تنسيق الحقل بالجدول والنموذج yyyy/mm/dd ضع هذا الكود في حدث بعد التحديث ActiveControl = UmFormat(ActiveControl.Text, ActiveControl.Format) من واقع تجربة لاتضع مع التاريخ "هـ" ستواجه مشاكل في الاحصاءات اجعلها في مربع تسمية في التقرير او النموذج اذا كنت محتاج اليها

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

استاذي / ابو موسى هل يوجد حل ام اترك الاستعلام وابحث عن حل عن طريق النموذج بواسطة كود يقوم باخذ دورة على جميع السجلات ليقوم بالعملية الحسابية

الله يعطيك العاافية لذلك انا توقفت عن العمل على هذي الجزئية من البرنامج لغاية الحصول على جوابها

السلام عليكم ورحمة الله استاذي جعفر معادلتي تفحص الكود في النموذج ويتم تحويل حقل siz_weight عن طريق هذا الكود ويتم تحويل القيمة مباشرة وتحفظ بالجدول الكود الاول , If Me.Size_Weight1 = Null Then If Me.Size_Weight = 0 Then Me.Size_Weight = Me.required_number * Me.Unit_price End If الكود الثاني , If Not (IsNull(Me![coodkind])) Or (Me![coodkind] = "") Then If (IsNull(Me![Size_Weight1])) Or (Me![Size_Weight1] = "") Then Me.Size_Weight1 = Me.Size_Weight Me.Refresh End If End If الاكواد اللي وضعتها انت بالاستعلام ايضاً سليمة وتعطي نتيجة لكن المشكلة انها تترك حقل siz_weight بالجدول على القيمة الصفرية وهنا تحدث المشكلة بالنسبة لحقل siz_weight1 حيث لم يعرف في الاستعلام انه تم تحويل القيمة عن طريق حقل غير منظم وياخذ قيمته من الجدول والنتيجة تكون 0

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

Size_Weight السلام عليكم ورحمة الله وبركاتة استاذي عند دخولي على الجدول وقمت باضافة الرقم 0 للحقل Siz_weight وتركت حقل Siz_weight فارغ بدون قيمة هذا الكود اعطاني النتيجة المطلوبة zSize_Weight: IIf([Tbl_Month].[Size_Weight]=0;[required_number]*[Unit_price];[Tbl_Month].[Size_Weight]) لكن هذا الكود zSize_Weight1: IIf(Not (Len([Tbl_Month].[coodkind] & "")=0) And Len([Tbl_Month].[Size_Weight1] & "")=0;[Tbl_Month].[Size_Weight];[Tbl_Month].[Size_Weight1]) اعطاني النتيجة 0 والمطلوب يعطيني نتيجة Siz_weight1 = Siz_weight في حالة كان الحقل لاتوجد به قيمة

ما فهمت ؟ هذا الكود عمل معاي كويس أما المعادلتين توجد مشكلة ما يعملوا استاذي بعد طول وقت عملت الجزئية الخاصة بالسؤال اليك المرفق وقد اوقفت الكود في حدث بالحالي من شان ما يغير الارقام وترجع تعدلهم بالجدول ما عليش تحمل اشوي المرفق بيتعبك بسبب ان بعض الكائنات تمت ازالتها لتقليل الحجم add.rar

انا جالس صار لي ساعتين احاول اعمل مثال مصغر على العموم راح اجرب وارد عليك

الحجم كبير جداول مرتبطة واستعلامات مع وحدات نمطية نماذج اساسية وفرعية ممكن اعمل استعلام واضيف فيه الحقول ؟ واذا كان كلا ولابد من جزئية البرنامج!! عطني إيميلك طال عمرك وارسله لك

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

السلام عليكم ورحمة الله وبركاتة الكود التالي قمت بوضعه بنموذج فرعي في طريقة عرض نماذج مستمرة في حدث النموذج في الحالي لكن للاسف لايعمل حتى اقف على كل سجل اريد تغيير الكود الحالي إلى جملة استعلام اضعها بالاستعلام مباشرة للحصول على نتائج افضل If Me.Size_Weight = 0 Then Me.Size_Weight = Me.required_number * Me.Unit_price End If If Not (IsNull(Me![coodkind])) Or (Me![coodkind] = "") Then If (IsNull(Me![Size_Weight1])) Or (Me![Size_Weight1] = "") Then Me.Size_Weight1 = Me.Size_Weight 'Me.Refresh End If End If

يستاهل الاخ / شفان الف مبروك ومنها للأعلى

شكرا على الإيضاح استاذ محمد