أبوبسمله

صراحه لم اجد حلا غير هذا المثال وقمت بالتعديل عليه ليناسبك ولعل احد اخواننا واساتذتنا يشاركونا بحلول اخرى وهو كان حل مقدم لسؤال الاستاذ محمود فؤاد تركى عالرابط التالى http://arabteam2000-forum.com/index.php?/topic/228816-كيف-يتم-التقريب-لاقرب-5/&do=findComment&comment=1136389 وان شاء الله تجد حلول اخرى بالنسب للتقريب لادنى 10 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Round.rar

ولا يهمك اخى فاننى مازلت اتعلم واخطىء احيانا كثيره وكما قال اخى واستاذى خالد وكنت سوف انصحك بقرائه مواضيع العمل على الشبكه وهذا افضل وده شرح بملف وورد جزاها الله كل خير ام عهود حمله واقرائه لعله يكون افضل حلا لك https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=42858 وان لم يكن مناسبا لك سوف نحاول الفهم اكثر منك واخوانك واساتذتنا لايقصرون تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

جزاك الله خيرا اخى محمد على المثال

اخى الفاضل افتح جدول 3 والذى هو جدول المخابره ستجد به حقل مضاف اسمه رقم الاضباره هذا الحقل اسمه العلمى فى قواعد البيانات مفتاح فرعى افتح جدول 1 وهو جدول الكتاب ستجد به حقل مضاف اسمه رقم المخابره هذا الحقل اسمه العلمى فى قواعد البيانات مفتاح فرعى هذه الجداول مربوطه مع بعض عن طريق المفتاح الاساسى بكل جدول والمفتاح الفرعى بالجدول الاخر الموجود بجانبه شكل مفتاح يشكل الرئيسى والاخر المقابل له فرعى لعلى اكون قد قمت بايضاح الصوره لك ولعلى لك افهم طلبك بشكل واضح والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

ومشاركه لاخى واستاذى محمد @ابا جودى يمكنك استخدام المعادله اذا كانت الحقول المطلوبه هى حقول اضافيه بها معادالات اجعلها بداخل المعادله فلا يلزم وضع حقول اخرى انظر للاستعلام نسخه من استعلام 3 الرقم الموجود به 4545.5292 وهو ناتج جمع الحقل num انظر لاستعلام 3 بعد وضع المعادله به 4545.52 وهو كالتالى Sum(tbl.NUM) SELECT fix(100*(Sum(tbl.NUM)))/100 AS SumمنNUM FROM tbl; والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_ex.mdb

وعليكم السلام اخى الفاضل ارفق لك مثال لاستعلام الحاق لجدول الطلاب من قاعده البيانات dbu الى قاعده بيانات dbu1 افتح القاعده الثانيه افتح الجدول هتلاقيه فارغ افتح القاعده الاولى شغل الاستعلام اغلق القاعده اذهب الى الثانيه ستجد البيانات قد تم ترحيلها لعل هذا ما تقصد ان لم يكن اشرح لنا بمثال من عندك ماذا تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق New folder.rar

الشكرلله والحمدلله انك انتبهت للكود بالتوفيق اخى

وعليكم السلام اخى الفاضل فضلا لا امرا يجب ارفاق ملف بعد ذلك مع اى استفسار لسهوله العمل ده كود من برنامجى للتوضيح DoCmd.SetWarnings False 'الحاق السجل اللى عليه التركيز ثم حذفه AutoNum.SetFocus DoCmd.RunSQL "INSERT INTO TDelASEEDB ( ID, AutoNum, ZCustomerID, [In], Out, Eladafy, ZDate, Tel, Mlahzat ) " & vbCrLf & _ "SELECT RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat " & vbCrLf & _ "FROM RASEEDB " & vbCrLf & _ "WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));" 'حذف DoCmd.RunSQL "DELETE RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat" & vbCrLf & _ "FROM RASEEDB " & vbCrLf & _ "WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));" DoCmd.SetWarnings True تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

وشوف المثال ده A_ex.mdb

جزاك الله خيرا اخى خلف

مرفق مثال لك A_ex.mdb

جربها فالاستعلام لديك

مرزق ياعم 3 اساتذه مره واحده @خالد سيسكو و @ابا جودى و @kha9009lid جزاكم الله خيرا اخوانى واساتذتى الافاضل تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

وعليكم السلام هل هذا ما تقصد ان لم يكن ارفق مثال لما لديك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Forms-فتحى اكثر من نموذج من خلال نموذج رئيسى.rar

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

نحن نعمل معك مليون لايك اختنا عبق الرياحيين لعوده استاذنا الحبيب محمد عصام ابا جودى ولحلوله الرائعه التى نتعلم منها جزاه الله كل خير وجميع اخواننا واساتذتنا

وعليكم السلام اخى احمد جربها واخبرنا بالنتيجه Fix(100*[x])/100 X = اسم الحقل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

وعليكم السلام شوف المثال ده لعلك تقصد مثل هذا او وضح بمثال تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق مثال للتبديل بين نموذجين فرعيين بالكود-ChangeSubForm.rar

جزاك الله خيرا اخى @صلاح جبر عالتعديل تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

جزاك الله خيرا اخى صلاح عالتعديل جميل حذف جدول الاخطاء ومفيش فضايح ولا حاجه ههههه الحمدلله واحنا بنتعلم فظهور الاخطاء يعلمنا اكثر واكثر جزاك الله خيرا DoCmd.DeleteObject acTable, "ورقة1$_أخطاء الاستيراد" قمت بتجربه ملفك مره اخرى الان اخى صلاح لم يعمل برضه هل ممكن توضح لى طريقه العمل لعى اعمل شىء خاطىء جزاك الله خيرا اخى خلف على هذه المعلومات القيمه لانى اول مره اتعامل مع الاكسس والاكسيل وان شاء الله ربنا ييسر الامور وتتقرب المسافات بتوضيحكم اخوانى تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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