د.كاف يار

تفضل عدل الحقول التي تريدها من هنا سيتم فقط تصدير الحقول الموجودة داخل هذا الاستعلام تصدير ملف اكسل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

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

تفضل هذا التعديل استيراد ملف نصي.accdb

التعديل في الجدول

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

تقضل التعديل Desktop.zip

اذا كانت صلة القرابة تعرف بآخر الإسم فتفضل هذا الكود انشئ Module جديد و الصق فيه الشفرة التالية Public Function StrLast_name(FullName As String) On Error Resume Next Dim name As String Dim first_name As String Dim mid_name As String Dim last_name As String name = FullName first_name = Left(name, InStr(name, " ") - 1) mid_name = Mid(name, InStr(name, " ") + 1, InStrRev(name, " ") - InStr(name, " ") - 1) last_name = Right(name, Len(name) - InStrRev(name, " ")) StrLast_name = last_name End Function في الإستعلام اضف الحقل التالي Strlast_name([ename2]) و ضع له المعيار التالي Strlast_name([Forms]![eform1]![ename]) و يكون بهذا الشكل و ستكون النتجية بهذا الشكل الإستعلام بناء على الإسم الأخير و كل من له علاقة بالإسم الأخير Database2.accdb

تفضل تحديث.accdb

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