ابو جودي

up

انا اسف انا فاتح من موبايل انا لم افهم المطلوب ممكن توضيحه مع ارفاق مثال واتمنى ان يساعدك احبابنا لان الانترنت منقطع 😠 او تحمل تاخرى فى الرد عليكم 😒😩

ارفق البرنامج

استاذى العزيز واخى الحبيب الاستاذ Khalf انها طريقتكم

اتفضل PhotoF.zip

اين المرفق

اتفضل غياب_الطلاب.mdb

طيب جرب هذا المرفق وأخبرنى بالنتيجة خالد.accdb

بعد اذن استاذى واخي خالد سيسكو Database8 (3).accdb

الأستاذ @خالد عبد الغفار تحية عطرة اتفضل جرب هذه الفكرة المتواضعة 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 بيت