د.كاف يار

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

اتفضل هذا التعديل يابوالحسن الفلتر كالتالي - اما ان تختار نطاق التاريخ او تختار السنة المالية فقط لكي يتم تعيين بداية السنة و نهايتها - نوع الحساب الختياري ضمن الفلتر الدائن و المدين.zip

بما ان عملية التحويل تتم بدون مشكلات من PDF الى Word فالأمور سهلة انشاء الله ميزان مراجعة استاذ عام.docx

تفضل هذه مكتبة اللوان من اروع المكتبات RGB_Color.html

لا طبعا و ليس هذا هو منطقة لغات البرمجمة تفضل هذه افضل مكتبة لأكواد vba سوف تجد امثلة لكل ما يخطر على بالك https://docs.microsoft.com

لحظة حذف الصورة ماهو بهذي الطريقة يكون ! فأنت تقوم بحذف المسار فقط و لا يتم حذف الصورة من المجلد تفضل هذا التعديل thaaer.zip يبدوا انني تسرعت اعتذر لم انتبه انك فعلا تستخدم وظيفة kill

تفضل هذا التعديل thaaer.zip

نصيحتي لك تعلم لغة الجافا java أو javascript فهي بوابتك لجميع اللغات الأخرى سهلة و من خلالها تستمد اللغات الأخرى

هل تريد مجاميع لجميع انواع الحسابات (وفق / او بدون) نطاق تاريخ معين او سنة مالية محددة

تفضل Dim f As Object Dim SelectFile As String Set f = Application.FileDialog(3) f.AllowMultiSelect = True With f .AllowMultiSelect = False .Title = "Select File Location to Export XLSx :" .InitialFileName = "jeffatwood.xlsx" If .Show = True Then For Each varFile In .SelectedItems SelectFile = varFile Next End If End With جلب صورة موظف.zip

تفضل هذا المثال Scaneer.accdb

من اين يستدعيها ؟ حاولت افهم طلبك للأسف لم استطع

يعني ما تحتاج نوع الحساب او كيف ما فهمت هذي النقطة

تدري انه جاهز و في بداية البرنامج سويته و انت اعترضت عليه فأزلت الارتباط له من الصفحة الرئيسية و الآن بعد مرور هذي المدة طلعت تحتاجه

استخدم هذا المكود و لا تنسى اضافة اسماء الجداول في المتغيير On Error Resume Next If MsgBox("هل تريد افراغ الجداول المحدد ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then If InputBox("ادخل كلمة المرور لتأكد الحذف", "تأكيد افراغ الجداول") = "123" Then Dim db As DAO.Database Dim tdf As DAO.TableDef Dim NonTB1 As String NonTB1 = "table_name1" NonTB1 = (NonTB1 + ",") & "table_name2" NonTB1 = (NonTB1 + ",") & "table_name3" Set db = CurrentDb For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then If tdf.Name <> Split(NonTB1, ",")(0) And tdf.Name <> Split(NonTB1, ",")(1) And tdf.Name <> Split(NonTB1, ",")(2) Then sSQL = "DELETE FROM " & tdf.Name db.Execute sSQL End If End If Next MsgBox "تم افراغ الجداول المحددة بنجاح", vbMsgBoxRight + vbInformation, "تأكيد" End If End If

تفضل هذا التعديل شامل لكل ما طلبت سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها الرقم السري داخل الكود لإفراغ البيانات 123 T2t2.accdb

تفضل هذا التعديل ارجوا ان يفي بالغرض T2t2.accdb

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

تفضل هذا التعديل لهذه الجزئية T2t2.accdb

هذا التعديل الاول استبدل الكود بالتالي و لا تنسى اضافة اسماء الجداول في الاستثناء If Me.txtPassWord = "123" Then Dim Msg As String Msg = MsgBox("كلمة المرور صحيحه" & vbNewLine & "" & vbNewLine & " هل تريد بالتأكيدحذف جميع البيانات ؟", vbYesNo, "انتبه") If Msg = vbYes Then MsgBox "جارى حذف جميع البيانات الان", vbInformation, "اعلام" On Error GoTo Error_TruncateTables Dim db As DAO.Database Dim TDF As DAO.TableDef Dim strSQL_DELETE As String Set db = CurrentDb() For Each TDF In db.TableDefs If Left(TDF.Name, 4) <> "MSys" Then If TDF.Name <> "اسم الجدول الأول" Or TDF.Name <> "اسم الجدول الثاني" Then strSQL_DELETE = "DELETE FROM " & TDF.Name & ";" db.Execute strSQL_DELETE End If End If Next MsgBox "تم حذف جميع البيانات فى الجداول", vbCritical, "تنبيه" db.Close Exit_Error_TruncateTables: Set TDF = Nothing Set db = Nothing Exit Sub Error_TruncateTables: Select Case Err.Number Case 3376 Resume Next Case 3270 Resume Next Case Else MsgBox Err.Number & ": " & Err.Description Resume Exit_Error_TruncateTables End Select Else MsgBox "لن يتم اجراء حذف البيانات من قاعدة البيانات", vbInformation, "اعلام" End If Else MsgBox "كلمة المرور خطأ", vbInformation, "تنبيه" End If End Sub

تفضل هذا التعديل ولكن لا تنسى تعديل اصدار قاعدة البيانات لإنشاء نسخة احتياطية من قاعدة البيانات الحالية استخدم الكود التالي Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim MyFile, DstFile As String Dim Syso As Object Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" 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 & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" لنسخ قاعدة بيانات في الخلفية او مختلف عن القاعدة الحالية استخدم التالي Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim MyFile, DstFile As String Dim Syso As Object Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) MyFile = "مسار قاعدة البيانات البعيدة" DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

طيب اتفضل هذي اضافة بسيطبة بحيث تكون النسخة الاحتياطية داخل مجلد مستقل Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim MyFile, DstFile As String Dim Syso As Object Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) MyFile = CurrentProject.Path & "\" & "autoBackup_be.mdb" DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

ماهو اسم قاعدة البيانات ؟؟ Dim MyFile, DstFile As String Dim Syso As Object MyFile = CurrentProject.Path & "\" & "autoBackup_be.mdb" DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing الصق هذا الكود في ازرار النسخة الاحتياطية لكن تأكد من الاسم و الصيغة قبل البدء

ايسر الطرق و اسهلها ان تجعل رقم الطالب و كود الترم كلتها مفتاح اساسي اي ان الطالب لن يتكرر في الترم الواحد

تفضل Dim MyFile, DstFile As String Dim Syso As Object MyFile = "مسار قاعدة البيانات البعيدة التي تريد انشاء نسخة احتياطية منها" DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb" ' هنا اسم قاعدة البيانات الجديدة DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing