علي المصري قام بنشر أكتوبر 10, 2015 قام بنشر أكتوبر 10, 2015 السلام عليكم ورحمة الله وبركاته لدي بيانات في جدول اكسل تحتوي على رقم الطالب - الاسم بالعربي - الاسم بالإنجليزي - الصف - الشعبة - رقم تليفون ولي الأمر اريد استيراد هذه البيانات إلى قاعدة بيانات اكسيس بنفس المواصفات للجدول - برمجيا شكرا للجميع
رمهان قام بنشر أكتوبر 11, 2015 قام بنشر أكتوبر 11, 2015 السلام عليكم ورحمة الله وبركاته لدي بيانات في جدول اكسل تحتوي على رقم الطالب - الاسم بالعربي - الاسم بالإنجليزي - الصف - الشعبة - رقم تليفون ولي الأمر اريد استيراد هذه البيانات إلى قاعدة بيانات اكسيس بنفس المواصفات للجدول - برمجيا شكرا للجميع وعليكم السلام اخ علي يبدو ان المره هذه حظك مع رمهان هل تريد الاستيراد كجدول جديد ام الحاقا بسجلات لجدول موجود ؟
jjafferr قام بنشر أكتوبر 11, 2015 قام بنشر أكتوبر 11, 2015 وعليكم السلام اخ علي يبدو ان المره هذه حظك مع رمهان
علي المصري قام بنشر أكتوبر 11, 2015 الكاتب قام بنشر أكتوبر 11, 2015 (معدل) السلام عليكم ورحمة الله وبركاته لدي بيانات في جدول اكسل تحتوي على رقم الطالب - الاسم بالعربي - الاسم بالإنجليزي - الصف - الشعبة - رقم تليفون ولي الأمر اريد استيراد هذه البيانات إلى قاعدة بيانات اكسيس بنفس المواصفات للجدول - برمجيا شكرا للجميع وعليكم السلام اخ علي يبدو ان المره هذه حظك مع رمهان هل تريد الاستيراد كجدول جديد ام الحاقا بسجلات لجدول موجود ؟ إلحاق بجدول له نفس الحقول أضافة البيانات الجديدة وحذف القديم مع الشكر الجزيل لكل منكما في المنتدى جزاكم الله خيرا تم تعديل أكتوبر 11, 2015 بواسطه علي المصري
رمهان قام بنشر أكتوبر 12, 2015 قام بنشر أكتوبر 12, 2015 تفضل استاذ علي واسف عالتاخير لانشغالي جدا DoCmd.TransferSpreadsheet , , "table1", "c:\Users\ali\Documents\ali.xlsx", True وانا متاكد ان الامر السابق لديكم علم به ولكن مع النقاش سنصل لما تريد باذن الله تحياتي 2
علي المصري قام بنشر أكتوبر 12, 2015 الكاتب قام بنشر أكتوبر 12, 2015 (معدل) شكرا جزيلا وبارك الله فيك الكود اعرفه والحمد لله DoCmd.TransferSpreadsheet , , "table1", "c:\Users\ali\Documents\ali.xlsx", True ويمكن كتابته بالطريقة التالية DoCmd.TransferSpreadsheet , , "StudentsNames", CurrentProject.Path & "\Ali.xls", True ولكن اريد كود بحيث يفتح مربع حواري للبحث عن الملف المراد استيراد البيانات منه شكرا جزاك الله خيرا تم تعديل أكتوبر 12, 2015 بواسطه علي المصري
رمهان قام بنشر أكتوبر 12, 2015 قام بنشر أكتوبر 12, 2015 تفضل مع ملاحظة وضع مرجع ل microsoft office object library وحسب الاصدار لديك If Application.FileDialog(msoFileDialogFilePicker).Show = -1 Then DoCmd.TransferSpreadsheet , , "table1", Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1), True بالتوفيق ولديك الخيار استاذ علي في تنفيذ امر مسح السجلات من الجدول او حذف الجدول قبل تنفيذ الامر السابق تحياتي 1
رمهان قام بنشر أكتوبر 12, 2015 قام بنشر أكتوبر 12, 2015 وهذه زيادة http://www.officena.net/ib/topic/62218-ايجاد-طريقة-لاستيراد-sheet-اكسل-الى-قاعدة-بيانات-اكسيس-من-خلال-فورم/
علي المصري قام بنشر أكتوبر 12, 2015 الكاتب قام بنشر أكتوبر 12, 2015 (معدل) متأسف تم وضع الكود بالخطأ كود تصدير إلى اكسيل تم تعديل أكتوبر 12, 2015 بواسطه علي المصري
رمهان قام بنشر أكتوبر 12, 2015 قام بنشر أكتوبر 12, 2015 DoCmd.OutputTo acOutputTable, "StudentsNames", acFormatXLSX, "", True, _ "", , acExportQualityPrint لم افهم المقصود هنا استاذ علي ! هذا كود للتصدير ! ام ماذا ؟
رمهان قام بنشر أكتوبر 13, 2015 قام بنشر أكتوبر 13, 2015 هل تم المراد اخ علي وتمت الاجابة ؟ ام لك ملاحظة على الكود ؟ تحياتي
علي المصري قام بنشر أكتوبر 13, 2015 الكاتب قام بنشر أكتوبر 13, 2015 تفضل مع ملاحظة وضع مرجع ل microsoft office object library وحسب الاصدار لديك If Application.FileDialog(msoFileDialogFilePicker).Show = -1 Then DoCmd.TransferSpreadsheet , , "table1", Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1), True بالتوفيق ولديك الخيار استاذ علي في تنفيذ امر مسح السجلات من الجدول او حذف الجدول قبل تنفيذ الامر السابق تحياتي تمام يا خبير ولكن هل سيختلف الكود على اختلاف إصدارات اكسيس حتى لا يحدث مشاكل فيما بعد
رمهان قام بنشر أكتوبر 13, 2015 قام بنشر أكتوبر 13, 2015 هذه الطريقة اخ علي بدأت من الاكسس 2002 ومافوق ! اذا كنت حتعمل مثلا على 2000 او 97 استخدم طريقة api وهي معروفة ومنتشرة http://access.mvps.org/access/api/api0001.htm طبعا كلك بركة ! انا ذكرت انه لابد من عمل مرجع للطريقة السابقة وهذا معروف لدى الكثير بل ان الاكسس 2010 يعطيك رسالة تنبيهية اثناء كتابة الكود بانه لابد من المرجع فهل تريد اضافته وعند اختيار موافق من الرسالة يضيف المرجع تلقائيا ! يمكن هذه الخطوة تجعلك تقوم بخطوة اضافة المرجع اليا ومن الكود وهذا يتطلب عمل اضافي ! هنا تم تحسين الكود لكي يعمل بدون الحاجة للمرجع وهو ما يسمى الربط المتاخر للكائنات : Set xlfile = Application.FileDialog(1) If xlfile.Show = -1 Then DoCmd.TransferSpreadsheet , , "table1", xlfile.SelectedItems(1), True جرب ستجده يعمل وبدون وضع المرجع ! وطبعا لاتنسى من 2002 وما فوق ! بالتوفيق 2
علي المصري قام بنشر أكتوبر 13, 2015 الكاتب قام بنشر أكتوبر 13, 2015 هذه الطريقة اخ علي بدأت من الاكسس 2002 ومافوق ! اذا كنت حتعمل مثلا على 2000 او 97 استخدم طريقة api وهي معروفة ومنتشرة http://access.mvps.org/access/api/api0001.htm طبعا كلك بركة ! انا ذكرت انه لابد من عمل مرجع للطريقة السابقة وهذا معروف لدى الكثير بل ان الاكسس 2010 يعطيك رسالة تنبيهية اثناء كتابة الكود بانه لابد من المرجع فهل تريد اضافته وعند اختيار موافق من الرسالة يضيف المرجع تلقائيا ! يمكن هذه الخطوة تجعلك تقوم بخطوة اضافة المرجع اليا ومن الكود وهذا يتطلب عمل اضافي ! هنا تم تحسين الكود لكي يعمل بدون الحاجة للمرجع وهو ما يسمى الربط المتاخر للكائنات : Set xlfile = Application.FileDialog(1) If xlfile.Show = -1 Then DoCmd.TransferSpreadsheet , , "table1", xlfile.SelectedItems(1), True جرب ستجده يعمل وبدون وضع المرجع ! وطبعا لاتنسى من 2002 وما فوق ! بالتوفيق شكرا جزيلا هل الكود يقوم بحذف البيانات القديمة ثم يقوم بالاستيراد ام لا
رمهان قام بنشر أكتوبر 14, 2015 قام بنشر أكتوبر 14, 2015 (معدل) ولديك الخيار استاذ علي في تنفيذ امر مسح السجلات من الجدول او حذف الجدول قبل تنفيذ الامر السابق نبهت بهذا سابقا ! هل الكود يقوم بحذف البيانات القديمة ثم يقوم بالاستيراد ام لا لا ! عليك بحذف السجلات : docmd.runsql "delete * from table1" واذا الحقول متغيرة احذف الجدول : docmd.deleteobject actable,"table1" بالتوفيق تم تعديل أكتوبر 14, 2015 بواسطه رمهان
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.