النهر العطشان قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 رمضان كريم اعاده الله علينا وعليكم والامة الاسلامية بالخير والبركة السلام عليكم مرفق قاعدة بيانات اكسس وشيت اكسل . عند استيراد السجلات من الاكسل عن طريق فورم في الاكسس احتاج الى رساله باللغة العربية تبين عدد السجلات التي سيتم استيرادها من الاكسل . وشكرا Access -Import.rar
Shivan Rekany قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 20 دقائق مضت, النهر العطشان said: عند استيراد السجلات من الاكسل عن طريق فورم في الاكسس احتاج الى رساله باللغة العربية تبين عدد السجلات التي سيتم استيرادها من الاكسل لان عملية استراد بيحذف الجدول وبيضاف من جديد استخدم هذا الكود بدل الكودك السابق عند الضغط على الزر Dim dcou As Integer DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True txtImportFile = "" dcou = DCount("*", "Table") MsgBox ("تم استيراد ( " & dcou & " ) سجلات بنجاح") واليك ملفك بعد تعديل Access -Import.rar
ابو جودي قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 (معدل) 31 دقائق مضت, النهر العطشان said: رمضان كريم اعاده الله علينا وعليكم والامة الاسلامية بالخير والبركة السلام عليكم مرفق قاعدة بيانات اكسس وشيت اكسل . عند استيراد السجلات من الاكسل عن طريق فورم في الاكسس احتاج الى رساله باللغة العربية تبين عدد السجلات التي سيتم استيرادها من الاكسل . وشكرا Access -Import.rar ان شاء الله يعجبك الفكرة Access Import 02 .rar اعتذر عن التأخير فى وضع الملف بعد التعديل كنت اصلى العصر عذرا وعفوا استاذ @Shivan Rekany انا كنت فاتح المنتدى على المشاركة ورفع المرفق لكن هممت الى الصلاة ولما عدت وقمت بحفظ المشاركة لم انتبه الى انكم وضعتم الحل اسأل الله تعالى ان يعجلكم دائما وابدا سباقون للخيرات تم تعديل مايو 27, 2017 بواسطه ابا جودى
Shivan Rekany قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 3 دقائق مضت, ابا جودى said: عذرا وعفوا لا تقول هذه الكلمات معي اخي الحبيب لذلك انا فتح موضوع هنالك لكن للاسف بعد ما رديت علي الجماعة المجلس
ابو جودي قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 1 دقيقه مضت, Shivan Rekany said: لا تقول هذه الكلمات معي اخي الحبيب لذلك انا فتح موضوع هنالك لكن للاسف بعد ما رديت علي الجماعة المجلس جزاكم الله خيرا واحسن اليكم كما تحسنون دائما الى كل رواد المنتدى 1
النهر العطشان قام بنشر مايو 27, 2017 الكاتب قام بنشر مايو 27, 2017 رمضان كريم اعاده الله علينا وعليكم والامة الاسلامية بالخير والبركة السلام عليكم شكرا الى الاستاذ شفان ريكاني والى الاستاذ ابا جودى على سرعة الاجابة وجعلها الله في ميزان حسناتهم . المثالين يا اساتذه رائعه . ولكن المشكله انه عند تكرار عملية الاستيراد تضهر نفس الرساله ولكن بما انه القيود مكررة فلا يقوم بتنبيهي بذلك وكانه تم استيرادها . المطلوب يا اساتذه ياكرام السماح باستيراد السجلات وان كانت مكرره . فانا استخدم هذا البرنامج او مايشابهه في حركة يومية مستمرة وان تكررت الاسماء او بيانات الطلاب ...الى ذلك . ويجب فيه ان يتكرر السجل اكثر من مرة في حالة قمت باعادة استيراده من اكسل اخر يحوي نفس البيانات . وشكرا
ابو جودي قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 (معدل) 37 دقائق مضت, Shivan Rekany said: لان عملية استراد بيحذف الجدول وبيضاف من جديد استخدم هذا الكود بدل الكودك السابق عند الضغط على الزر Dim dcou As Integer DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True txtImportFile = "" dcou = DCount("*", "Table") MsgBox ("تم استيراد ( " & dcou & " ) سجلات بنجاح") واليك ملفك بعد تعديل Access -Import.rar وطربقة استاذنا الجليل واخونا الحبيب استاذ @Shivan Rekany افضل من طريقتى واعتذر كنت اتمنى عمل اعجاب ولكن يخبرنى انى استخدمت عدد 10 اعجاب اليوم ولا يسمح لى الموقع بذلك ولكن بأفعلها على طريقتى الشخصية 6 دقائق مضت, النهر العطشان said: رمضان كريم اعاده الله علينا وعليكم والامة الاسلامية بالخير والبركة السلام عليكم شكرا الى الاستاذ شفان ريكاني والى الاستاذ ابا جودى على سرعة الاجابة وجعلها الله في ميزان حسناتهم . المثالين يا اساتذه رائعه . ولكن المشكله انه عند تكرار عملية الاستيراد تضهر نفس الرساله ولكن بما انه القيود مكررة فلا يقوم بتنبيهي بذلك وكانه تم استيرادها . المطلوب يا اساتذه ياكرام السماح باستيراد السجلات وان كانت مكرره . فانا استخدم هذا البرنامج او مايشابهه في حركة يومية مستمرة وان تكررت الاسماء او بيانات الطلاب ...الى ذلك . ويجب فيه ان يتكرر السجل اكثر من مرة في حالة قمت باعادة استيراده من اكسل اخر يحوي نفس البيانات . وشكرا وحضرتك بالصحة والخير والسعادة ان شاء الله انت عايز لو مافى اى قيم مختلفة فى شيت الاكسل يخبرك برساله بذلك وان كان هناك اختلاف يخبرك بعدد السجلات فقط المختلفة والتى سيتم استيرادها ؟! تم تعديل مايو 27, 2017 بواسطه ابا جودى 1
النهر العطشان قام بنشر مايو 27, 2017 الكاتب قام بنشر مايو 27, 2017 نعم استاذي الفاضل ان يقبل الاستيراد من الاكسل حتى لو كانت السجلات مكررة
Shivan Rekany قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 16 دقائق مضت, النهر العطشان said: ولكن المشكله انه عند تكرار عملية الاستيراد تضهر نفس الرساله ولكن بما انه القيود مكررة فلا يقوم بتنبيهي بذلك وكانه تم استيرادها . تم تغير الكود اولا سنعرف على عدد سجلاتنا في الجدول وبعد العملية الاستيراد راح نعدد سجلاتنا من جديد والفرق بينهما هو عدد استيراد السجلات Dim dcou As Integer Dim dcou1 As Integer dcou = DCount("*", "table") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True dcou1 = DCount("*", "table") txtImportFile = "" MsgBox ("تم استيراد ( " & dcou - dcou1 & " ) سجلات") اليك قاعدة بياناتك بعد تعديل 18 دقائق مضت, النهر العطشان said: المطلوب يا اساتذه ياكرام السماح باستيراد السجلات وان كانت مكرره الطلبية الاستيراد مكررة او غير مكررة هذا يعود لك ونحن لا نقدر ان نغير فيه لان هذه المشاركة مختصة ب رسالة عدد السجلات التى ستم استيرادها واليك ملفك بعد التعديل Access -Import.rar
ابو جودي قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 10 دقائق مضت, Shivan Rekany said: تم تغير الكود اولا سنعرف على عدد سجلاتنا في الجدول وبعد العملية الاستيراد راح نعدد سجلاتنا من جديد والفرق بينهما هو عدد استيراد السجلات Dim dcou As Integer Dim dcou1 As Integer dcou = DCount("*", "table") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True dcou1 = DCount("*", "table") txtImportFile = "" MsgBox ("تم استيراد ( " & dcou - dcou1 & " ) سجلات") اليك قاعدة بياناتك بعد تعديل الطلبية الاستيراد مكررة او غير مكررة هذا يعود لك ونحن لا نقدر ان نغير فيه لان هذه المشاركة مختصة ب رسالة عدد السجلات التى ستم استيرادها واليك ملفك بعد التعديل Access -Import.rar السلام عليكم من جديد المره دى انا عملت ريفريش قبل ما اعمل مشاركه هههههههههههه بعد ذان استاذى الجليل واخى الكريم @Shivan Rekany ممكن اشارك بالفكرة المتواضعة ده
Shivan Rekany قام بنشر مايو 27, 2017 قام بنشر مايو 27, 2017 الان, ابا جودى said: ممكن اشارك بالفكرة المتواضعة ده استغفر الله اخي @ابا جودى هذه المنتدى للتعليم لذا اكتب لنا ما عندك كلنا راح نستفيد منك تقبل تحياتي
النهر العطشان قام بنشر مايو 27, 2017 الكاتب قام بنشر مايو 27, 2017 شكر وتقدير الى الاساتذه الكرام على مجهودهم المبارك جعلها الله في ميزان حسناتكم وشكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.