eidgs قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 السلام عليكم لدي بيانات كثيرة على ملف اكسل هل يمكن نقلها مره واحدة الي الاكسس تحياتي رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 34 دقائق مضت, eidgs said: لدي بيانات كثيرة على ملف اكسل هل يمكن نقلها مره واحدة الي الاكسس نعم رابط هذا التعليق شارك More sharing options...
eidgs قام بنشر أكتوبر 27, 2018 الكاتب مشاركة قام بنشر أكتوبر 27, 2018 ممكن شرح كفية النقل رابط هذا التعليق شارك More sharing options...
فقير ومشتري الدنيه بضحكتي قام بنشر أكتوبر 27, 2018 مشاركة قام بنشر أكتوبر 27, 2018 يمكنك النقل من ملف اكسيل الى ملف اكسيس بشرط ان تتطابق لديك الحقول في الجدول في الاكسيس مع الحقول في الاكسيل وبنفس نوع البيانات ويتم ذلك عن طريق عدة طرق ولكنني سوفاخبرك بطريقة بسيطة وقوية وانشاء الله تنجح معك مثلما نجحت معي وهي طريقة برمجية 1- اختر انشاء - مايكرو واختر import export spreadsheet 2- املا الحقول وكالتالي transfer type استيراد او import spreadsheet type excel workbook table name اختر اسم الجدول الموجود في برنامج الاكسيس المراد استيراد البيانات اليه file name فتح ملف اهم شي مسار الملف الاكسيل يمكنك ان تجعله ثابت او متغير عن طريق صندوق حوار has field name تختار نعم وهذا يعني ان البيناتا التي سوف تستوردها لها عنوان احفظ المايكرو باسم ما مثلا 111 انشيء زر واكتب الكود التالي On Error GoTo t: Dim diag As FileDialog Set diag = Application.FileDialog(msoFileDialogFilePicker) diag.AllowMultiSelect = False diag.title = "اختر ملف اكسيل " diag.Filters.Clear diag.Filters.Add "excel file", "*.xls*" If diag.Show Then Me.t22 = diag.SelectedItems.Item(1) للتوضيح هنا عملت مربع نص اسميته t22 لعرض مسار ملف الاكسيل 'DoCmd.SetWarnings False DoCmd.RunMacro "111" تنفيذ المايكرو End If t: MsgBox Err.Description رابط هذا التعليق شارك More sharing options...
فقير ومشتري الدنيه بضحكتي قام بنشر أكتوبر 27, 2018 مشاركة قام بنشر أكتوبر 27, 2018 يمكنك النقل من ملف اكسيل الى ملف اكسيس بشرط ان تتطابق لديك الحقول في الجدول في الاكسيس مع الحقول في الاكسيل وبنفس نوع البيانات ويتم ذلك عن طريق عدة طرق ولكنني سوفاخبرك بطريقة بسيطة وقوية وانشاء الله تنجح معك مثلما نجحت معي وهي طريقة برمجية 1- اختر انشاء - مايكرو واختر import export spreadsheet 2- املا الحقول وكالتالي transfer type استيراد او import spreadsheet type excel workbook table name اختر اسم الجدول الموجود في برنامج الاكسيس المراد استيراد البيانات اليه file name فتح ملف اهم شي مسار الملف الاكسيل يمكنك ان تجعله ثابت او متغير عن طريق صندوق حوار has field name تختار نعم وهذا يعني ان البيناتا التي سوف تستوردها لها عنوان احفظ المايكرو باسم ما مثلا 111 انشيء زر واكتب الكود التالي On Error GoTo t: Dim diag As FileDialog Set diag = Application.FileDialog(msoFileDialogFilePicker) diag.AllowMultiSelect = False diag.title = "اختر ملف اكسيل " diag.Filters.Clear diag.Filters.Add "excel file", "*.xls*" If diag.Show Then Me.t22 = diag.SelectedItems.Item(1) للتوضيح هنا عملت مربع نص اسميته t22 لعرض مسار ملف الاكسيل 'DoCmd.SetWarnings False DoCmd.RunMacro "111" تنفيذ المايكرو End If t: MsgBox Err.Description ملاحظة مهممة عند نقلك للبيناتا من ملف اكسيل الى ملف اكسيس يجب ان تكون مرتبة حسب الجدول في الاكسيس وان تكون البيناتا ونوعها حسب ما موجود في جدول الاكسيس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان