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

يمكنك النقل من ملف اكسيل الى ملف اكسيس بشرط ان تتطابق لديك الحقول في الجدول في الاكسيس مع الحقول في الاكسيل وبنفس نوع البيانات ويتم ذلك عن طريق عدة طرق ولكنني سوفاخبرك بطريقة بسيطة وقوية وانشاء الله تنجح معك مثلما نجحت معي وهي طريقة برمجية 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

عند تحميل النموذج في الحدث عند التحميل اكتب الكود الاتي me.maxmize=true واذا اردت ان يكون نموذجك هو الفعال والنشط ولا يمكن تجاوزه ابدا قم بالذهاب الى خصائص النموذج واختر نمط الحدود واختر مربع حوار اي اجعل الفورم مربع حوار عبر خاصية نمط الحدود وقم بالغاء ازرار التكبير والتصغير

Dim s1, As String On Error GoTo y: If MsgBox("هل تريد حذف البينات كلها من البرنامج ", vbYesNo, " تحذير ") = vbYes Then s1 = "DELETE * FROM [in]" اسم الجدول DoCmd.Requery DoCmd.SetWarnings False ايقاف اي عملية للاكسيس DoCmd.RunSQL s1 الكود اعلاه يحذف جميع البيناتا في الجودل

لمنع تشغيل اي رسالة من الاكسيس استعلام او حذف او اي شي قم بكتابة الكود التالي docmd.setwarning false

جرب هذا الكود الذي يلغي كل العمليات الخاصي بالاكسيس docmd.setwarning false

عند تحميل النموذج في الحدث عند التحميل اكتب الكود الاتي me.maxmize=true

=dcount("*","[اسم الجدول ]") ولا تنسى علامات التنصيص والفارزة العادية او المنقوطة الفاصلة بين الدالة

من خصائص الحقل توجد خاصية enabel ضمن تبويب data في نافذة الخصائص اجعلها لا وبذلك تمنع اي شخص من التلاعب بالقيمة

اخي العزيز اذا اردت ان تعرض فقط الشهر من حقل معين في الجدول استخدم الدالة التالي msgbox month([حقل التاريخ في الجدول])