اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

بسم الله الرحمن الرحيم

الأخوتى الأفاضل / بالمنتدى

السلام عليكم و رحمة الله

كيف يمكن لى ان احسب قيمة على مربع قيمة اخرى داخل احد النماذج

لم استطع إرفاق الملف ؟!

و لكن ببساطه شديدة

عندى 3 حقول

SiteA

SiteB

Result

الكل حقول رقمية

و احتاج عند استخدام هذه الحقول من خلال نموذج

ادخال القيمة فى كل من حقلى :

SiteA و SiteB

يقوم بحساب نتيجة :

قسمة SiteA على مربع SiteB

و يسجل القيمة فى حقل Result الجدول

أو ان يقوم بحساب نتيجة :

قسمة SiteA على جذر SiteB

و يسجل القيمة فى حقل Result الجدول

اسم الجدول : Tbl7

اسم النموذج : FrmTbl7

أرجو من الله أن يكون لها حل ..

مع الشكر للجميع

قام بنشر (معدل)

أخي الكريم :

الحل الذي تطلبه موجود في سؤالك ، فبكل بساطة ضع العملية الحسابية التي ترغب بها في مصدر عنصر التحكم لمربع النص الذي ترغب باظهار النتيجة فيه

مثلا : أنت تريد إظهار نتيجة قسمة SiteA على SiteB في مربع نص اسمه Result

إذن : في مصدر عنصر التحكم لمربu النص المسمى Result أكتب :

=[SiteA]/[SiteB]

تم تعديل بواسطه Access XP
قام بنشر (معدل)

أخى الفاضل / Access XP

بارك الله فيك و شكرا لك على ردك الكريم

الحقيقة يا اخى ان ما اسئل عنه هو المعادلة التى يمكن استخدامها

للحصول على مربع (القيمة المسجلة) احد هذه الحقول أو جذر (القيمة المسجلة) احد هذه الحقول و استخدامة فى عملية القسمة .. ثم تسجيل الناتج فى حقل النتيجة

و غالبا الحقل المراد مريع او جذر قيمتة هو الحقل SiteB

للجميع تحياتى

:fff::fff:

تم تعديل بواسطه رحال
قام بنشر

هناك أسلوبين للتعامل

الأسلوب الاول: (غير مطلوب فى السؤال وذكرته للتوضيح)

هو عدم تخزين النتائج فى الجدول والاكتفاء بحقلى 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

قام بنشر

الأخ الكريم / السيد عبد العال

بارك الله فيك ، وشكرا لك على الكود

إن شاء الله ساجربة

اكرر شكرى و تقديرى

:fff::fff::fff:

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information