د.كاف يار

اخي الكريم ارفق نسخة فارغة من ملفات الاكسس المطلوب فقط اسماء الاعمدة و سطر واحد لمعرفة نوع البيانات انت تريد استيراد ملف اكسل و هذا مر بسيط فالمنتدى غني بمثل هذه الأمثلة الاحترافية و السهلة

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

ارفق نسخة من البرنامج لأجل التعديل عليه أو راجع ملفي الشخضي فهنالك أمثلة على ذلك

تفضل هذا الحل في اعلا الصفحة وضعت التاريخ الميلادي و الهجري و اليوم ملاحظة التاريخ يتم جلبه من سيرفر خارجي ‏‏f_absent - نسخة.zip

من ناحية الحلول فالخيارات كثيرة لكني افضل ايسرها من وجهة نظري فالمنطق أنه يجب ان يكون لديك سجلات بالعدد المطلوب و يكون تعاملك معها فقط بالتحديث اذا رغبت اتبع الأتي اضف حقل مرتبط مسمى _ ( الطاقة الاستيعابية ) انشئ ازرار بمسمى _( فتح فصل جديد ) ثم اتبع الطريقة في المثال المرفق الفصول.accdb

اخي الكريم اليك طريقة بسيطة جدا اولا / افتح نموذج فارغ و اضف اليه الحقول التي ترغب بها مع مراعاة تسمية الحقول بنفس المسمى في الجدول لتسهل عملية ترحيل البيانات للجدل ((( اذا المطلوب منك نموذج و حقول غير منضمة للجدول ))) ثانيا / استدعاء قيمة من النموذج السابق اتبع الأتي ضع القيمة ادناه مع التعديل على اسم النموذج و اسم الحقل =[Forms]![FormName]![TextBox] ثالثا / اضف ازرار لترحيل البيانات للجدول و ضع الكود التالي مع التعديل المطلوب Dim db As DAO.Database Dim rs As DAO.Recordset On Error GoTo errorhandle Set db = CurrentDb Set rs = db.OpenRecordset(" ضع اسم الجدول هنا") With rs .AddNew ![F1] = Me.[TextBox1] ![F2] = Me.[TextBox2] .Update End With MsgBox "تم الحفظ بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

عدل التاريخ من نفس الجهاز عندك و تنتهي المشكلة اختار تقويم ام القرى فقط

تفضل طلبك اخي الكريم مع ايقاف رسائل التنبيه تحديد الجميع بالماكرو.accdb

جرب هذا الكود اخي الكريم مع العلم بأن مسار قاعدة البيانات الحالية يكون بهذا الشكل مسار قاعدة البيانات الحالية MyPath=CurrentProject.Path لمعرفة اسم قاعدة البيانات الحالية CurrentProject.FullName الأن نبدء بالكود الخاص بنسخ الملف - اضف مربع نص و لنجعل اسمه xFile - اضف ازرار و اعطه اسم FileDialog أو اي اسم تريده و ضع الكود التالي في حدث عند النقر لاختيار الملف المراد نسخه Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) Else Exit Sub End If End With - ضع ازرار أخر و اعطه اسم مثلا | نسخ الملف المحدد | و ضع الكود ادناه في حدث عند الفتح Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo errorhandle MyFile = "مسار الملف المراد نسخه" DstFile = "D:\\" مسار الملف الجديد DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing MsgBox "تم نسخ الملف بنجاح" , vbMsgBoxRight + vbOKOnly, "تاكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit Exit Sub ErrH: Select Case Err.Number End Select و يمكن وضع مربع نص اخر لوضع مسار الملف الجديد و جعله ارتباط تشعبي ليسهل الوصول اليه

تفضل اخي الكريم عقود خدمات 1.accdb

ماشاء الله حل سهل و ذكي و جميل كنت اود المشاركة لكني لن استطيع تقديم فكرة افضل من هذه

تفضل التعديل اخي الكريم العقودrar.rar

الف الف مبروك لاخونا و حبيبنا @Khalf معاً نكمل مسيرة نشر العلم و نتعلم كل ماهو جديد تحياتي

تفضل التعديل اخي الكريم عقود خدمات 1.accdb

للأسف جدا صعب و الأصعب عنوان الموضوع

تفضي هذه المشاركة من قبلي الاصناف.rar

تفضل التعديل اخي الكريم New.accdb

تفضل التعديل اخي الكريم ddd.accdb

تفضل التعديل اخي الكريم New.accdb

استدعاء حقل في نموذج فرعي [Forms]![Form1]![Form2]![TextBox]

تفضل اخي الكريم تم استبدال كود الفلتر بجملة استعلام SQL يمكنك تعديل باقي البرامج لديك على هذا الاساس 8.accdb

تفضل التعديل f4.rar

تفضل هذا الكود اخي الكريم حدد البيانات المراد تحديثها و كذلك الجداول Dim db As Database Dim sSQL As String On Error GoTo errorhandle ' الجدول الأول Set db = CurrentDb sSQL = "UPDATE Employees SET NameEmploye = '" & Text1 & "', StutesEmploye = '" & Text2 & "' WHERE [NoEmploye]=1;" db.Execute sSQL ' الجدول الثاني Set db = CurrentDb sSQL = "UPDATE LeaveRequest SET StutesEmploye = '" & Text2 & "' WHERE [NoEmploye]=1;" db.Execute sSQL MsgBox "تم تحديث الجداول بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

تفضل التعديل f1_2.rar اقترح عليك تعديل المسميات الى الانجليزية ليسهل عليك التعديل

تفضل التعديل اخي الكريم سيتم اعادة الترقيم التلقائي بداية كل شهر Lab 2020 OK.accdb