رحال قام بنشر أغسطس 1, 2004 قام بنشر أغسطس 1, 2004 بسم الله الرحمن الرحيم الأخوتى الأفاضل / بالمنتدى السلام عليكم و رحمة الله كيف يمكن لى ان احسب قيمة على مربع قيمة اخرى داخل احد النماذج لم استطع إرفاق الملف ؟! و لكن ببساطه شديدة عندى 3 حقول SiteA SiteB Result الكل حقول رقمية و احتاج عند استخدام هذه الحقول من خلال نموذج ادخال القيمة فى كل من حقلى : SiteA و SiteB يقوم بحساب نتيجة : قسمة SiteA على مربع SiteB و يسجل القيمة فى حقل Result الجدول أو ان يقوم بحساب نتيجة : قسمة SiteA على جذر SiteB و يسجل القيمة فى حقل Result الجدول اسم الجدول : Tbl7 اسم النموذج : FrmTbl7 أرجو من الله أن يكون لها حل .. مع الشكر للجميع
Access XP قام بنشر أغسطس 1, 2004 قام بنشر أغسطس 1, 2004 (معدل) أخي الكريم : الحل الذي تطلبه موجود في سؤالك ، فبكل بساطة ضع العملية الحسابية التي ترغب بها في مصدر عنصر التحكم لمربع النص الذي ترغب باظهار النتيجة فيه مثلا : أنت تريد إظهار نتيجة قسمة SiteA على SiteB في مربع نص اسمه Result إذن : في مصدر عنصر التحكم لمربu النص المسمى Result أكتب : =[SiteA]/[SiteB] تم تعديل أغسطس 1, 2004 بواسطه Access XP
رحال قام بنشر أغسطس 2, 2004 الكاتب قام بنشر أغسطس 2, 2004 (معدل) أخى الفاضل / Access XP بارك الله فيك و شكرا لك على ردك الكريم الحقيقة يا اخى ان ما اسئل عنه هو المعادلة التى يمكن استخدامها للحصول على مربع (القيمة المسجلة) احد هذه الحقول أو جذر (القيمة المسجلة) احد هذه الحقول و استخدامة فى عملية القسمة .. ثم تسجيل الناتج فى حقل النتيجة و غالبا الحقل المراد مريع او جذر قيمتة هو الحقل SiteB للجميع تحياتى تم تعديل أغسطس 2, 2004 بواسطه رحال
السيد عبد العال قام بنشر أغسطس 4, 2004 قام بنشر أغسطس 4, 2004 هناك أسلوبين للتعامل الأسلوب الاول: (غير مطلوب فى السؤال وذكرته للتوضيح) هو عدم تخزين النتائج فى الجدول والاكتفاء بحقلى SiteA وٍSiteB فى جدول Tbl7 مع عمل المعادلات اللازمة فى استعلام أونموذج أولا : فى النموذج FrmTbl7 يتم أضافة حقلى SiteA و SiteB ثم يتم أضافة مربع نص نسميه Result ونضع بها أحدى المعادلات الأتـية =[siteA]/Sqr([siteB]) =[siteA]/([siteB]*[SiteB]) =[siteA]/[siteB]^2 المعادلة الاولى للجذر التربيعى والثانية والثالثة للمربع ثانيا: فى استعلام يتم عمل Calculated Field به معادلات شبه السابقة مع مراعاة أن "= "يستعاض عنها ب" :" الأسلوب الثانى( وهوالمطلوب فى السؤال) يتم تخزين النتائج فى الجدول أولا: باستخدام النموذج: وفى هذه الحالة يكون حقل Result موجودا فى الجدول ويتم استخدام حدث AfterUpdate لكل من حقل SiteA و SiteB لحساب النتيجة وتسجيلها فى الحقل Ruselt Sub CulculateResult() On Error GoTo CulculateResult_Err If IsNull([SiteA]) Then MsgBox "SiteA Cant be Null ." Exit Sub ElseIf IsNull([SiteB]) Then MsgBox "SiteB Cant be Null ." Exit Sub Else [Result] = [SiteA] / Sqr([SiteB]) 'Or [Result] = [SiteA] /([SiteB]*[siteB]) 'Or [Result] = [SiteA] /[SiteB]^2 End If Exit Sub CulculateResult_Err: MsgBox "Error " & Err.Number & " :" & Error Err.Clear Resume Next End Sub Private Sub SiteA_AfterUpdate() CulculateResult End Sub Private Sub SiteB_AfterUpdate() CulculateResult End Sub والكود يشرح الفكرة فقط وقد يحتاج لبعض التنقيح ثانيا: عن طريق استعلام التحديث يمكن عمل استعلام تحديث لحساب النتائج فى Calculated Field و تخزينها فى حقل Result
رحال قام بنشر أغسطس 8, 2004 الكاتب قام بنشر أغسطس 8, 2004 الأخ الكريم / السيد عبد العال بارك الله فيك ، وشكرا لك على الكود إن شاء الله ساجربة اكرر شكرى و تقديرى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.