ابو جودي

الأستاذ @خالد عبد الغفار تحية عطرة اتفضل جرب هذه الفكرة المتواضعة Function MyRound(NUM As Double, Near As Integer) As Integer MyRound = IIf(NUM - (NUM \ Near) * Near >= 2.5, (NUM \ Near) * Near + Near, (NUM \ Near) * Near) End Function يتم استدعاء الكود كالاتى MyRound([X],Z) حيث [X] هو اسم الحقل للأرقام التي تريد معالجتها اما Z هو الرقم الصحيح الذى تريد التقريب اليه قد يكون 5 او 10 حسب رغبتك لا تقول اوفيسنا ما دللتك

جزاك الله خيرا اخى mohamad dahleek على المثال الرائع

صمم الاستغلامات اولا ومن محرر الاكواد انظر اين تريد وضع الحدث الاتى ومتى DoCmd.SetWarnings False DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الاول" DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الثانى" DoCmd.SetWarnings False

هذا تعدل بسيط على طريقة الأستاذ @صلاح جبر zxc (1).accdb

عسي ان يكون هذا مرادك ومن فضلك مستقبلا ارفق قاعدتك للتعديل عليها اسهل Ju_ فصل المنازل العشرية بشرط.accdb

ممكن المرفق

اين المرفق ليتم التعدبل عليه

ومشاركة مع أخي الحبيب الأستاذ @Khalf اضع بين اياديكم هذا العمل المتواضع العمل في صمت بدون حتى فتح تطبيق الإكسل JU_ إستيراد شيت اكسل وتصدير حقل واحد.zip

يا مليون اهلا بأستاذي الفاضل واخى الحبيب اما عن النور فذاك من اهل المنتدى الطيبين

بعد كوب الشاي الرائع والنظر الى الأفكار والتحليل للمرفق مع الاخذ في الاعتبار هذه الملاحظة ومع الاطلاع على الموضوع تم بحمد الله تعالى تم الوصول الى هذه النتيجة اتركم مع التجربة على اى ملف إكسل مع انتظار آرائكم Ju_ Import Frome Excel File.zip

المرفق يحتاج الى تركيـــــز ودراسة وتحليل ولابد من كوب شاى أولا اعجبتنى الفكـر سأحاول عل الله يرزقنى بالاجابة

وهذه مشاركة العبد الفقير مساهمة مع استاذى الجليل الأستاذ خالد سيسكو Ju_ Dsum.accdb

أساتذتي الكرام وإخواني وأحبائي جزاكم الله خيـرا وافر التحية والإحترام لكم استاذى القدير kha9009lid وافر التحية والإحترام لكم استاذى القدير أحمد الفلاحجى

السلام عليكم ورحمة الله تعالى وبركاته أساتذتي الكرام إخواني وأحبابي في الله اوفيتم وكفيتم جزاكم الله الحير كله ورزقكم الجنة ان شاء الله اسمحوا لعبد الله المسكين ان يساهم في هذا الخيـر يا أستاذ nabil2255 شرح ع السريع 1- اعلان عن متغير نصى سوف يستخدم لاسم الجدول المؤقت Dim TblNm As String 2- تم اسناد اسم الجدول TblNm = "tblTemp" 3-حذف الجدول المؤقت DoCmd.DeleteObject acTable, TblNm 4-وهنا يتم معالجة البيانات من خلال الاستعلامات الإستعلام الأول هنا لحساب العمر وتعديله في الجدول المؤقت الإستعلام الثاني هنا لإلحاق البيانات في الجدول الرئيسي DoCmd.SetWarnings False DoCmd.OpenQuery "qryckEgeToExel" DoCmd.OpenQuery "qryAppendToSourctbl" DoCmd.SetWarnings True 5- JU_01_ import From Excel To Acces.zip

لا علاقة لنواة الويندوز سواء كانت 32 بيت او 64 بيت بعمل او ايثاق الاكواد ولكن هند اعداد الاوفيس على نظام ويندوز 64 بيت من خلال ملف الاوتو رن للاوفيس يقوم باعداد اوفيس 64 بيت لذلك اذا كانت نواة الويندوز 64 بيت يجب الدخول الى ملفات الاوفيس واختيار تنصيب الاوفيس 32 بيت

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

أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) رغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم مليون شكر ( أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) أنت وكل أساتذتنا الكرام ولو أنى أجد عبارت الشكر تخجل منكم فهى أقل من أن توفيكم حقكم وقدركم رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل طالب له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم شموع كثيرة تحترق ...لتنير دروب الآخرين عطاء وآمالا ... وتضحيات شتى تنثر ..من أجل الوصول للأسمى ...ومعكم حققنا ولمسنا مع العلم كل معاني الجود والكرم و الجمال أسعدكم الله فى الدارين ورزقكم البركة فى العمر والعلم والعمل والاهل والولد وغفر الله لكم ولوالديكم ومن تحبون وكل المسلمين ان شاء الله شكر الله لكم وجزاكم كل الخير ان شاء الله واحسن الله اليكم اسال الله تعالى ان ييسر لكم دروب الجنان كيفما شققتم ظلمة جهلنا بنور علمكم من غير كلل أو ثقم ولا ملل احبكم فى الله

جرب هذا المرفقات الاتية test.zip test 2.zip

لى عودة استاذى الجليل ومعلمى القدير الاستاذ @أبو إبراهيم الغامدي

ما شاء الله .... الله اكبـــــــــــر تمام جزاكم الله خيـــــــرا اعتذر للتأخيــــــر .. كنت على سفر

جرب يا دكتور الضغط على الفرعى (1).accdb

انا فهمت الان مقصدك انا اعتقد ان المشكلة من الموديول اللى حضرتك قمت باضافته hideshowaccess حضرتك مشكورا قم بتحميل المرفق الاصلى مرة اخرى واضف اليه اعادة التحجيم

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