د.كاف يار

اخي الكريم يجب تحميل او تحديث adobe reader من هنا

تفضل طلبك اخي الكريم تستطيع عرض الصور و ملفات PDF و موقع الكتروني و صور من الانترنت Data1.accdb

تفضل هذا التعديل بناء على اخر رد لك الفكرة اولاً : اختيار جميع الملفات المطلوب استيرادها ثانياً : بعد الانتهاء من استيراد الملفات يتم استيراد البيانات منها الى الجداول في القاعدة مع عدم مسح البيانات السابقة Database1.accdb

طبعا هذا تعديل مبدئي مع الالتزام باسم الملف المستورد و اذا ضبطت الامور يصير نخليه حسب اسم الملف الي تستورده المهم الفكرة هل هي المطلوبة ؟؟ لأن الفكرة هي استيراد نطاقة البيانات من الاكسل

تفضل هذا التعديل Database1.accdb

اخي فايز طبعا المرفق فيه طالب واحد فقط صحيح ؟؟ يعني راح يكون فيه طلاب اكثر و هل تصميم المرفق ثابت ؟؟

شكرا لكم اخواني على هذه الكلمات الطيبة و الأخوية

تفضل التعديل اخي الكريم التاريخ.rar ماشاء الله مبددددع عجبتني جدا الفكرة مختصرة و عملية

الف الف شكر لك و للجميع اخي الكريم في خدمتكم دائما و لن نتكم علم انعم الله به علينا شكرا لك فالمشاعر تعجز عن التعبير في هذا الموقف

تفضل التعديل اخي الكريم NEW FROM NUM (2).rar

فعلا يوجد خطأ نسيت ان افرغ الحافظة Set imagefile = Nothing جرب هذا المرفق تم التعديل عليه سحب المستندات بالاسكانر.accdb

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

تفضل هذا التعديل اخي الكريم اضغط مزدوج على السيارة للاختيار تجارب.accdb

تفضل التعديل اخي الكريم مثال_للرسائل_عند_عداد_الوقت.zip

تفضل طلبك اخي الكريم سحب المستندات بالاسكانر.accdb

الملف سليم مافيه مشكلة لكن جرب هذا tree 01-07-2018.accdb

اقترح عليك ((( المحــــاولـــــــــة ))) الموضوع بسيط اخي الكريم و كلنا هنا في خدمتك لكن يجب ان تبدء لكي تتعلم و تجد العون انت تتكلم عن جمعية بها اسهم و بها مكتتبين او مساهمين اذا انت بحاجة الى عدة جداول بسيطة ( جدول باسماء المقترضين+ جدول الاقساط الشهرية) وهذي كلها حسب طبيعة عملك ابدء بانشاء الجداول ثم ابدء في انشاء نموذج لتعبئة تلك الجداول ابدء و ستجد الجميع معك قلبا و قالبا ستجد المتعة في عملك

للأن المطلوب غير واضح اين تريد اضافة اسم المستخدم بالضبط ؟؟

هل يتم مشاركة البرنامج على شبكة داخلية ؟ و هل قاعدة البيانات منفصلة على البرنامج ؟ هل يوجد لديك جدول للمستخدمين ?

نعم صحيح

تفضل اخي الكريم HLA_HLA.accdb

اخي الكريم لانشاء مجلد بإسم المادة استخدم هذا الكود Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrname =[text3] fldrpath = CurrentProject.Path & "\السجل الإلكتروني\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If و هذا تعديل لمتغيير كود التصدير فقط الصقه Dim LExcelOriginal As String Dim LExcelCopyOf As String LExcelOriginal = sXlsFile LExcelCopyOf = CurrentProject.Path & "\السجل الإلكتروني\" & [text3] & "\" & [Forms]![FORM2]![text2] & "_..xlsm" FileCopy LExcelOriginal, LExcelCopyOf

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

تفضل هذا التعديل اخي الكريم ستلاحظ اولا و الأهم بأن الادراج اصبح اسرع من قبل كذلك مع كثرة العمل على البرنامج ستلاحط بأنه السرعة لن تتأثر كثير بسبب عدم تحميل القاعدة للمرفقات لأن المرفقات ستكون في ملف خارجي بجوار قاعدة البيانات لأن فقط عليك استخراج الملفات من الملف المضغوط و جرب ملاحظة كثرة الضغط على قاعدة البيانات بالمرفقات تتسبب في ثقلها و احيانا في عطبها كذلك انصحك بانشاء نسخة احتياطية يومية و الكود الخاص بذلك سهل كماهو موضح ادناه فقط انسخ و الصق لا اكثر من ذلك Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select Programe.zip

ياليت لو انتك تحدد الجدول او الاستعلام الي تحتاج عليه التعديل لأنه بدون التحديد يصير الموضوع يحتاج تحليل لكن بشكل عام موضوعك بسيط جدا ضع في معيار الاستعلام تحت العمود الي تحتاج عليه الفرز و الفلترة IsNull Or 0 بالتالي ما راح تظهر امامك اي سطور فيها قيمة اكبر من الصفر