[ تمت الإجابة ]هل من الممكن تجاهل الكسر العشري

بدأه مبتدئ جرئ في 12 أبريل 2010 · 2 رد · 602 مشاهدة · في قواعد بيانات Microsoft Access

#112 أبريل 2010 في 01:37 صاحب الموضوع

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

اخواني الاعزاء اساتذتي:

مشكلتي تتلخص في :

هل من الممكن تجاهل الكسر عشري ، مئوي ،...الخ ... اذا كتب في خانة الرقم الخاص ولا يكون له تاثير علي الاختيار من الجداول المرتبطة ؟ اعني عندما اكتب مثلا في خانة الرقم الخاص رقم 855 ثم انتر سيظهر في خانات التصنيف الثلاثة ما يلي : ( الاداب ) ( الادب الايطالي ) ( الأشكال الأدبية للأدب الايطالى) فهل يمكن عندما اكتب 855.2 مثلا يظهر في خانات التصنيف نفس ما سبق وتتجاهل الكسر العشري ؟ ام لابد ان يدخل الكسر العشري بجدول جديد يضم الكسر العشري ويرتبط مع باقي الجداول ؟ اتمني ان يكون هناك حل بدون اضافة جدول جديد لانه مرهق للغاية لان الكسر العشري الواحد سيضم 9000 خانة فاذا وصلنا مثلا ل 855.245 ساحتاج لاتمام ذلك 27000 خانة وده عذاب وعبء علي القاعدة .............................ارجو افادتي يا اهل الخبرة .

100.rar

الي زهرة المنتدي

أم عهود زهرة الأكسيس بدون منافس

لك مني كل الثناء والتقدير

مبتدئ جرئ

#212 أبريل 2010 في 02:17

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

لست متأكداً أخي الكريم، من أنني قد فهمت مرادك جيداً، لكن إذا كان كل المطلوب هو تجاهل الكسر تماماً، فيمكنك استخدام الدالة Int، كما يلي:

Private Sub Text1_LostFocus()
    Me.Text2.Value = DLookup("[group_name]", "Qgroups", "[sgroupcode2]=" & "'" & Int(Me!Text1) & "'")
    Me.Text3.Value = DLookup("[s_group_name]", "Qgroups", "[sgroupcode2]=" & "'" & Int(Me!Text1) & "'")
    Me.Text4.Value = DLookup("[s_group_name2]", "Qgroups", "[sgroupcode2]=" & "'" & Int(Me!Text1) & "'")
End Sub

كما ينبغي حذف الشرط في الاستعلام، لأن التصفية مكررة (نحن نقوم هنا في النموذج باختيار السجل المطلوب بالفعل)، أو تعديل الشرط كذلك بنفس الدالة Int. انظر من فضلك الملف المرفق، وقد استبعدت فيه الشرط كليةً.

والله أعلم.

100.rar

مذكرات حول تصميم قواعد البيانات وتطبيقاتها - الجزء الأول

مذكرات حول تصميم قواعد البيانات وتطبيقاتها - الجزء الثاني