د.كاف يار

السلام عليكم و رحمة الله و بركاته على الجميع ابو عبدالرحمن اتفضل هذي المشاركة من طرفي يمكن تفي بالغرض برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

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

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

ضغط و اصلاح قاعدة البيانات في الازرار حدث عند الضغط SendKeys "{F10}" SendKeys "]sq" SendKeys "{F10}" SendKeys "tdc"

اخي الكريم للربط مع قاعدة البيانات يجب اولا احضار عنوان السيرفر و كذلك كلمة المرور و اسم المستخدم لاضافة السورس الخاص بالاتصال X1= عنوان السيرفر X2= كلمة المرور X3= اسم المستخدم Data Source=X2;Persist Security Info=True;User ID=X2;Password=X3 الان اتبع الصور لانشاء اتصال و ربط بقاعدة البيانات الاخرى

تفضل التعديل اخي الكريم ضبط_التاريخ.accdb

طيب ارفق القاعدة خلينا نحاول معاك

انشئ قاعدة بيانات جديدة و حاول ان تستورد القاعدة الحالية

تفضل هذا الكود اخي الكري مع مراعاة التغيير حسب المتغيرات الاسم و صيغة قاعدة البيانات كما يمكنك تثبيت موقع قاعدة البيانات من خلال تثبيت القيمة للمتغيير strBEFileSpec1 On Error GoTo errorhandle Dim varThis As Variant Dim strBEFileSpec1 As String Dim TabolPath, DataTayb As String TabolPath = "TabelName" DataTay = ".mdb" strBEFileSpec1 = Application.CurrentProject.Path & "\" & TabolPath & DataTay For Each varThis In CurrentDb.TableDefs With varThis If Trim(Nz(.Connect)) Like ";DATABASE=*" Then .Connect = ";DATABASE=" & strBEFileSpec1 .RefreshLink End If End With Next varThis Next varThis MsgBox "تم ربط قاعدة البيانات بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد الربط" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

اخي الكريم لافراغ الجداول استخدم الكود التالي ما اضافة اسم كل جدول DoCmd.RunSQL "DELETE FROM " & "Table Name 1" DoCmd.RunSQL "DELETE FROM " & "Table Name 2" DoCmd.RunSQL "DELETE FROM " & "Table Name 3" لعمل نسخة احتياطية بتاريخ كل يوم استخدم الكود التالي في كود النسخة الاحتياطية سيتم عمل الأتي تلقائيا - انشاء مجلد بإسم Backup - انشاء جدول يتضمن رقم النسخة و مسار النسخة و تاريخها - يتم عمل نسخة مطابقة بالكامل في نفس المجلد Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup\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" DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);" Dim db As DAO.Database Dim MaxBackup_NO As Integer MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1 Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Backup") With rs .AddNew ![Backup_NO] = MaxBackup_NO ![Backup_Name] = Format(Date, "dd-mm-yyyy") ![Backup_Path] = DstFile ![Backup_Date] = Now() .Update End With MsgBox "تم انشاء نسخة احتياطية بنجاح" , vbMsgBoxRight + vbOKOnly, "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

اخي الكريم بما انك بدءت فتضل هذه البداية من قبلي استمر و اذا استصعب عليك شي فنحن في الخدمة برنامج المخاز.zip

العفو يا بو عبدالرحمن في خدمتك لكن فيه ملاحظة عندك استعلامات متشابهة في البنية اقترح تلغيها و تكتفي باستلام واحد و تستعمل الفلاتر يكون افضل و اسرع و اخف

تفضل التعديل يابو عبدالرحمن تم تغيير فهرسة العمود f15 الي تحتها هوية الطالب بحيث لا تقبل التكرار برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

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

تفضل هذا يا يو عبدالرحمن انسخ و الصق فقط تزيين و تضبيط لكود اخونا الكبير @صالح حمادي On Error GoTo errorhandle DoCmd.Beep If MsgBox("عزيزي المستخدم انت على وشك افراغ قاعدة البيانات" & vbNewLine & "هل تريد فعلا حذف البيانات ؟", vbCritical + vbYesNo + vbMsgBoxRight, "حذف بيانات") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM " & "CS_GetStudentScheduleReport" DoCmd.RunSQL "DELETE FROM " & "ImportSheet" DoCmd.RunSQL "DELETE FROM " & "Academic" DoCmd.SetWarnings True DoCmd.Beep MsgBox "تم حذف البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" Else MsgBox "تم الغاء حذف البيانات", vbInformation + vbMsgBoxRight, "الغاء الاجراء" End If errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

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

اتفضل يابو عبدالرحمن فقط حدد اسماء الجداول الي تحتاج تحذف بياناتها On Error GoTo errorhandle DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM " & "TableName1" DoCmd.RunSQL "DELETE FROM " & "TableName2" DoCmd.RunSQL "DELETE FROM " & "TableName3" DoCmd.RunSQL "DELETE FROM " & "TableName4" DoCmd.SetWarnings True MsgBox "تم افراغ الجداول بنجاح" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

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

تفضل هذا التعديل اخي الكريم لكن للعلم و الإحاطة !!! لا تقم بنسخ و لصق البيانات لعمل اختبار للترقم ! المرفق الحالي عملية الترقيم تتم بعد تحديث حقل الصنف من خلال الدالة التالية number = Nz(DMax("[number]", "[details]", "[sale_id]=[Forms]![sale]![sale_id]"), 0) + 1 يتم استدعاء اكبر قيمة في عمود التسلسل المسمى number بعد جلب القيمة يتم اضافة رقم 1 للنتيجة لتعطي الرقم التالي المفترض اذا فنسخ و لصق البيانات لن يجعل الكود يعمل copy.accdb

نعم تستيطع حفظ نسخة و مشاركة قاعدة البيانات في اكثر من مدينة و دولة انشئ حساب على سيرفر SOMEE https://somee.com/ بعد انشاء الحساب قم بانشاء قاعدة بيانات على SQL Server بعد انشاء قاعدة بيانات على السيرفر قم بتصدير قاعدة بياناتك الحالية على قاعدة بيانات سيرفر SOMEE اذا الفكرة بأنه يستحسن تقسيم قاعدة البيانات و ربطها مع السيرفر بقاعدة بيانات (( SQL Server )) من خلال ODBC

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

اختار اللغة العربية و راح تنتهي المشكلة انشاء الله

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

من الأفضل ارفاق نموذج لطلبك للتعديل عليه

العفو اخي الكريم فحن في خدمتكم دائما