اذهب الي المحتوي
أوفيسنا

ابو جودي

أوفيسنا
  • Posts

    6,833
  • تاريخ الانضمام

  • Days Won

    187

كل منشورات العضو ابو جودي

  1. وفين الحقل الخاص برقم البطاقة اصلا ؟ هل هو الرقم الشخصى ؟!....... ياريت تحدد طلبك رقم البطاقة هاد يخص مين تحديد وهل موجود باكثر من جدول واللا لاء وماذا تقصد بالنموذج الاول ولو فى اكثر من اسم متشابه ايه الحل ؟؟؟؟ - يعنى مثلا فى محمد وله قريب اسمه صالح ههههههه صالح يجى مع مين محمد واللا احمد ؟!
  2. وعليكم السلام ورحمة الله تعالى وبركاته غير الكود التى فى الموديول تبعا للشرح الاتى Function RunSub() 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 ="***" & "\" & "db.accdb" DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing DoCmd.RunCommand acCmdExit End Function غير ال *** ل اسم الجهاز السيرفر او IP حق الجهاز السيرفر على ان يكون بهذا الشكل مثلا... \\192.168.1.3 فيكون السطر بهذا الشكل بعد التعديل MyFile ="\\192.168.1.3" & "\" & "db.accdb" وفى حالة اسم الجهاز يكون بعذا الشكل MyFile ="\\servername" & "\" & "db.accdb"
  3. معلش ممكن تفصيلا للموظف كمال 1 سنة , 5 أشهر , 13 يوم كيف تم احتسابهم
  4. انا مش فاهم ممكن من فضلك توضيح الاتى متى تتم الاضافة واين سوف تتم وهل تتم الاضافة للموظف اكصر من مرة ؟! برجاء وضع البيانات الحقيقة التى تريد الحصول عليها مستقبلا بطريقة الية مع التوضيح الممل لما سبق
  5. نعم ممكن ذلك ان كانت قاعدة البيانات تعمل ضمن شبكة محلية بشرط ان تكون قاعدة الجداول موجوده على مجلد داخل مجلد اون درايف على سبيل المثال هذا مسار المجلد فى الجهاز C:\Users\Moh3ssam\OneDrive\ShardDB يتم عمل مشاركة لهذا المجلد وبذلك يكون مسار القاعدة لباقى الاجهزة \\192.168.1.3\ShardDB الان يمكن لاى مستخدم ضمن الشبكة المحلية العمل على قاعدة البيانات ضمن تلك الشبكة من خلال مشاركة المجلد ومن ناحية أخرى قاعدة الجداول يتم مزامنتها تلقائيا على حساب on drive ولا يمكن الوصول الى المجلد عبر السحابة الا من واقع صاحب الحساب وان كانت قاعدة البيانات مقسمة الى قاعدتين امامية وخلفية لن يكون قادرا على التعامل مع القاعدة ان كان خارج الشبكة المحلية
  6. اتفضل ان شاء تجد الالية هنا ان لم تتمكن من الفهم او التطبيق كرما وفضلا وليس امر ارفق قاعدتك ليتم عمل الازم Multi Filters.mdb
  7. ممكن مرفق
  8. طيب قم بتعطيل هذا السطر من الكود وسوف يعمل ان شاء الله انتظر ردكم اخى الحبيب
  9. انت الاجمل اتفضل يا استاذ @Moosak جزاكم الله خيرا لتلبية دعوتى اتمنى لا تتفزع من هذا المرفق 😄 Moosak.accdb
  10. برامج الانتى قايروس أو حاولت عمل ضغط واصلاح للقاعدة والقاعدة كانت معلقة لم تغلق كليا لتلافى تلك المشكلة بنسبة 99% قم بوضع كلمة مرور لحماية الاكواد
  11. بانتظار النتيجة واتمنى ارفاق لقطة شاشة حية من التجربة مع رأيكم من واقع التجربة تجربة شيقة.zip
  12. اولا الفضل كله لرب العزة سبحانه وتعالى ثانيا الحمد الله انك وجدت ضالتك ثالثا جزانا الله واياكم خير الجزاء
  13. من باب المشاركة اثراء للموضوع
  14. غير ال ى Dim db As DAO.Database
  15. فكرة جديدة لاحتساب تاريخ نهاية الصلاحية بدون بدون حتى كتابة تاريخ الصلاحية داخل الجدول ExpirationDate.mdb
  16. العفو يا دكتور تحت امرك انا طويلب صغير اقوم بالتعلم من اساتذتى العظماء فى هذا الصرح الرائع
  17. ان كنت تستخدم متغير بهذا الشكل Dim db As Database فم باستبداله فيكون Dim db As DAO.Database
×
×
  • اضف...

Important Information