د.كاف يار

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

استبدل السطر كامل بالتالي Dim BackObj As DAO.TableDef, BackDB As DAO.Database

تفضل هذا التعديل قد يفي بالغرض Usrse.zip

تم انشاء نسخة مماثلة من الجدول المرتبط بالنموذج الفرعي و تم ربط النسخة mainData_NonSave بالنموذج الفرعي و تم انشاء استعلام الحاقي لكي يتم اخذ جميع السجلات من النسخة الجديدة و الحاقها بالجدول الرئيسي و افراغ الجدول بعد الإلحاق If DCount("*", "mainData_NonSave") = 0 Then MsgBox "لا توجد بيانات لترحيلها", vbCritical + vbMsgBoxRight, "تنبيه" Else If MsgBox("هل تريد حفظ البيانات و ترحيلها ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تأكيد الحفظ") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "AddNew_minData" '================ تشغيل الاستعلام الإلحاقي =============== DoCmd.RunSQL "DELETE FROM mainData_NonSave;" '============== افراغ الجدول المؤقت من البيانات بعد تشغيل الاستعلام الالحاقي ========== DoCmd.SetWarnings True mainData.Requery MsgBox "تم حفظ البيانات و ترحيلها بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" End If End If

نعم تستطيع تفضل التعديل s.zip

ابو الحسن حدد اين تريد الزيادة هل تقصد فقط في الجدول او النماذج بعد الإطلاع على المرفق انصحك بأن تقوم بتغيير التكنييك في ما يخص الاستخدام فمثلا مثل هذا النموذج التصميم غير منطقي فلو احتجت مستقبلا زيادة المخازن فبهذا النموذج لن تستطيع التقدم الا بتعديلات كبرى يجب ان تقوم بالتفكير بطريقة عرض تخدمك مستقبلا اما في ما يخص اضافة المخازن في جدول المخازن تفضل استخدم الحلقة التكرارية Dim db As DAO.Database Dim sSQL As String Set db = CurrentDb For i = 8 To 25 sSQL = "INSERT INTO tbl_Stores (Auto_Date , iStore_Name) " & _ " VALUES('" & Now & "', '" & "مخزن" & i & "')" db.Execute sSQL Next MsgBox "تم انشاء المخازن بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" حدد النماذج التي تحتاج الى تعديلها و التقارير و ستجدني انشاء الله في خدمتك

هذا الكود لا يتناسب السجلات المتعددة فقط للسجلات الفردية لكني تفضلي هذا الإسلوب في تخزين و ترحيل البيانات بين الجداول حيث تم انشاء نسخة مطابقة للجدول لحفظ البيانات المؤقته فيه و من ثم يتم ترحيلها للجدول الأساسي تفضلي التعديل test.zip

تفضل عدل الحقول التي تريدها من هنا سيتم فقط تصدير الحقول الموجودة داخل هذا الاستعلام تصدير ملف اكسل1.accdb

قم بإنشاء Module جديد و الصق فيه الشفرة التالية Public Function SetUserLogIn(User_Name_LogIn As String, Form_Name As String, Branch_Name As String) On Error Resume Next Dim varFilter As Variant Call Edit_Tables varFilter = Null varFilter = (varFilter) & "[User_Name_LogIn] LIKE '" & User_Name_LogIn & _ "' AND [Branch_Name] LIKE '" & Branch_Name & "'" With Forms(Form_Name) .DataEntry = False .Filter = varFilter .FilterOn = True .Requery End With End Function Public Sub Edit_Tables() On Error Resume Next Dim tdf As DAO.TableDef Dim db As DAO.Database 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 DoCmd.RunSQL "ALTER TABLE " & tdf.Name & " ADD [User_Name_LogIn] varchar(90)" DoCmd.RunSQL "ALTER TABLE " & tdf.Name & " ADD [Branch_Name] varchar(90)" End If Next End Sub و في جميع النماذج و التقارير في حدث عند الفتح ضع الكود التالي Call SetUserLogIn("حقل اسم المستخدم", Me.Form.Name, "حقل الفرع") تفضل التعديل asd (5).accdb

فيه مشكلة في ايصال المعلومة حدد اسماء الأعمدة التي ترغب في تصديرها

و هذا مثال Database2.accdb

مشكلتك تكون في هذا السطر DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") curPath = DTPath & "\salah- " & Format(Date, "dd-mm-yyyy") & ".xl'sx" لم سيتطع التعرف على تنسيق ملف الإخراج xl و الصحيح xls / xlsx تفضل التعديل بيانات التوجبه نهائي معدل.accdb

حبيبي اب الحسن هذا للإثراء لتثبيت مقاس النموذج بحيث يأخذ الحد الأقصى من المقاسات في جميع الإتجاهات استخدم التالي Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With و لإخفاء شريط ادوات الأكسس DoCmd.ShowToolbar "Ribbon", acToolbarNo جميع هذه الأكود توضع في حدث عند الفتح

تم ... تفضل التعديل s.zip

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

ارفق نسخة بدون بيانات لابد يكون فيه حلول نختار ايسرها و اسهلها انشاء الله

ايسر الطرق و اسهلها من الإعدادات الإقليمية لجهازك

العفو اخي الكريم هل هذا ما كنت تريده فعلا ؟

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

ابو زهرة موضوعك جدا سهل و بسيط للغاية تستطيع تحديث البرنامج بالكامل لدى جميع المستخدمين بإستخدام لوحة الأوامر CMD سويت لك هذا المثال للتوضيح و تقدر تضيف جدول فيه اسماء المستخدمين الي قام بالتحديث يصير ما تظهر عنده الرسالة او التنبيه اتفضل هذا المثال الفكرة بإختصار بعد ما تخلص من جميع تعديلاتك تقوم تنشئ نسخة مماثلة من آخر التعديلات يعني نسخة احتياطية و تحطها في مجلد خاص بالتحديثات بحيث يدخل المستخدم و ياخذ نسخة من التحديث و يستبدل النسخة الي عنده بالنسخة المحدثة طبعا كل هذا ما راح يتم بشكل مباشر من المستخدم فقط بالكود سيتم انشاء ملف نصي يتحوي على جميع هذه الأوامر و سيتم ارساله لشاشة الأوامر CMD Pro.zip

تفضل التعديل تصدير للاكسيل.zip

لإيقاف الحفظ التلقائي في التموذج اتبعي التالي في محرر الأكواد و في اعلا المحرر بعد الإعلان Option Compare Database نضع المتغيير و الأحداث التالية Dim ِ AllwUpdate As Boolean Private Sub Form_Dirty(Cancel As Integer) If AllwUpdate = False Then Cancel = True End Sub Private Sub Form_AfterUpdate() AllwUpdate = False End Sub و في حدث عن الفتح نضع التالي AllwUpdate = True و في ازرار الحفظ نضع التالي DoCmd.RunCommand acCmdSaveRecord AllwUpdate = True تفضلي التعديل test.zip

لا يوجد كود لكي يتم التعديل عليه

تفضلي هذا التعديل البحث - بــ / أو الرقم أو نطاق الرقم - بـــ / أو التاريخ او نطاق التاريخ test.zip

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