اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Moosak

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2166

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    55

 نوع المحتوي 

كل منشورات العضو Moosak

  1. Moosak
    أهلا بك أخي @naguib_3778 🙂 جرب تغيير المستخدمين كل مرة ... كلمة المرور 123 للجميع وتم إضافة النوع في الجدول 2المرسل.accdb
  2. Moosak
    العفو أخي محمد 🙂 لحذف الملف بعد نقله عدل أكواد الزرين للتالي : Private Sub CopyBtn_Click() 'On Error Resume Next CopyFile Me.PicFile, Me.jjj DleteFile Me.jjj MsgBox "تم النقل بنجاح" End Sub Private Sub FolderCopyBtn_Click() 'On Error Resume Next CopyFolder Me.FolderFrom, Me.FolderTo DleteFolder Me.FolderTo MsgBox "تم النقل بنجاح" End Sub وأضف هاتين الدالتين للموديول FileFoldeCopyMod Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function Public Function DleteFile(FilePath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFile FilePath, True Set fs = Nothing End Function
  3. Moosak
    متى نزل هذا الإصدار ؟؟ أليس الإصدار 365 أحدث منه ؟ لأن كل هذي الميزات موجودة سابقا في النسخة 365 !!
  4. Moosak
    شكرا عمي @Eng.Qassim معلومة استفدت منها شخصيا ☺️ وأنا طبقتها على الجزء الأيسر من التقرير ونجحت ولله الحمد .. والباقي عليك أخي @elghoultk 🙂 Access Database.zip
  5. Moosak
    جرب الآن أخي محمد .. 🙂 أحس أن هناك شي غير طبيعي في الموضوع 😁 غيرت عدة أشياء في الاستعلام لحد ما ضبطت الأمور .. زر النقل الأول لنقل الصورة فقط زر النقل الثاني ينقل المجلد .. إذا لايزال المطلوب لم يكتمل فخذ الفكرة وطبقها على ملفك ، أو عدل الملف لكي تتضح لنا الصورة أكثر .. لا يزال لم تتضح لي الحكمة من هذا الطلب .. 😏 Photo.rar
  6. Moosak
    أستاذ محمد .. إنت عايز تنقل مجلد بالملفات اللي داخله ؟ ولا عايز تنقل ملف واحد بس ؟
  7. Moosak
    العفو أخي @hougar 🙂 .. ولا تنسى تمر على الموضوع الجميل ☺️ :
  8. Moosak
    طيب يا غالي ... جرب هذي الدالة : Public Function CopyFile(CopyFrom As String, CopyTo As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile CopyFrom, CopyTo, True Set fs = Nothing End Function ولاستخدامها بهذي الطريقة : CopyFile("CopyFrom", "CopyTo")
  9. Moosak
    أهلا بك أخي @elghoultk 🙂 لفتح نفس السجل في التقرير تضيف هذه العبارة في زر أمر فتح التقرير : ولجعل مربع النص يكبر ويتقلص حسب حجم النص الموجود فيه .. قم بتفعيل خاصية إمكانية التمدد وإمكانية التقلص Access Database.zip
  10. Moosak
    بخلت علينا أوي بالشرح أستاذ محمد @محمد احمد لطفى 😅 يحتاج نجيب عراف ولا مشعوذ يخبرنا أنت عايز أيه بالضبط ؟! 😂
  11. Moosak
    جرب هذه الدالة أخي @hougar 🙂 : DCount("[ID]","[ItemsTable]","[ExpiryDate] >=#"& date &"# And [ExpiryDate] <=#"& date+30 &"#") لعد المنتجات التي ستنتهي خلال ال 30 يوما القادمة .
  12. Moosak
    الأول : الثالني :
  13. Moosak
    مهندس محمد الأرقام اللي عطيتك كانت لجهاز الدوام أجربها بكرة إن شاء الله .. بس الحين اديني لجهازي الشخصي .. وهذي الأرقام : الأول: 101,V1.01|4C4C4544-0044-3610-8053-C8C04F513932 الثاني: 102,V2.00|4C4C4544-0044-3610-8053-C8C04F513932
  14. Moosak
    الأول : 101,V1.01|F5E6D9AB-7EF9-E111-A0F2-C5CD35F1225F الثاني : 102,V2.00|F5E6D9AB-7EF9-E111-A0F2-C5CD35F1225F
  15. Moosak
    وعليكم السلام ورحمة الله وبركاته أخي طارق 🙂 قمت بتحويل الاستعلام المسمى Q_CHILD إلى استعلام إجماليات بناءا على تاريخ التقديم وأظهر النتيجة المطلوبة .. وقام بجمع المبالغ في خلية واحدة. ولكن الاستعلام قام بتغيير مسميات الحقول فلم يعمل التقرير ، قمت بتغيير المسميات في التقرير ولكن لكثرتها ظهرت رسائل خطأ .. الآن تم عمل المطلوب في الاستعلام المذكور Q_CHILD .. وعليك تكملة الباقي 😁 مساعدات مرضية NEWWWW.zip
  16. Moosak
    تم التعديل أخي هاني 🙂 تجميع غياب لكل طالب.mdb
  17. Moosak
    جميلة وممتعة واذا دمجناها مع افكارنا فى الاكسيس النتيجة بتكون خرافية أيش رايك تشاركنا تجربتك في قسم ال #C بالمنتدى ؟ أنا أيضا عندي توجه لتعلم هذي اللغة 😊 لعل الله يحيي القسم على يديك 😁👌🏻
  18. Moosak
    وعليكم السلام ورحمة الله وبركاته أخي هاني 🙂 عملتها لك في استعلام .. ويمكنك أن تصمم منه نموذج ، وممكن تجعل فيه شرط [تحديد السنة]. اسم الاستعلام : Qry_No_of_Days_Abcent تجميع غياب لكل طالب.mdb
  19. Moosak
    شكرا جزيلا لك أخي @Amr Ashraf هدية رائعة كروعة صاحبها 🙂 بشرنا أيش أخبار الـ #C عندك ؟ 😊
  20. Moosak
    الله الله الله ... شكرا على الهدية الرااااااااااائعة ... 😊🌹
  21. Moosak
    @ابو جودي الله يحفظك يا عبقري ويزيدك من واسع علمه وفضله ... 😊 وعبي يابا .. 😂
  22. Moosak
    بعد إذنك باش مهندس محمد @ابو جودي 🙂 اشتغلت على نفس ملفك وعملت كل العمليات في كويري واحد .. وطلع عندي نتيجة قريبة منك بفارق يومين لكل شخص ( إزاااااي ؟؟ ... متسألنيش ) 😂 اسم الكويري : Qry_Moosa_Calc EmploymentPeriods.accdb
  23. Moosak
    السلام عليكم أخي @figo82eg 🙂 أنظر أنا لم أشتغل على ملفك تلافيا للدخول في تعقيدات المسميات وغيرها .. وعملت لك ملف عام وقاعدة عامة لجلب الملفات وإنشائها تلقائيا (في حال عدم وجودها) ووضعها في مجلدات بجانب قاعدة البيانات سواء كانت ملف واحد أو مفصولة لواجهات وجداول .. ولا تتأثر الروابط فيها بنقل البرنامج من جهاز لآخر بشرط نقل المجلدات معها ووضعها بجانبها 🙂 ويمكنك تطبيقها بسهولة على برنامجك مع مراعاة نقل الموديول المرفق وكذلك تغيير مسميات الحقول في الكود (مهم جدا) . وهذه صورة للنموذج مع وجود المرفق . في هذا المثال سيتم إنشاء المجلدات بهذه الصورة : C: \ مكان القاعدة \ الوارد \ دائرة المالية \ مواضيع عامة \ 1 \ ثم اسم الملف أو الصورة وعند نقل البرنامج يجب عليك نقل كل هذه الملفات بنفس مواقعها : AttachFilesToDB.rar
  24. Moosak
    بعد التجربة الدالة راااائعة ما شاء الله ويمكن تطبيقها على أكثر مما تتصور ، واحتياجات متعددة 🙂 .. وهذه بعض الأمثلة : 1 2 3 4 5 6 7 8 9 1-2-3-4-5-6-7-8-9 12-34-56-78-9 1234-5678-9 1/2/3/4/5/6/7/8 A/B/C/D/E/F/G م ح م د ع ص ا م شـــكـــرا
  25. Moosak
    وعليكم السلام ورحمة الله وبركاته ..🙂 ألف شكر باش مهندس محمد ..🌹 وعلى طول نجرب ونقول ينقل للمكتبة اللي بالي بالك 😁
×
×
  • اضف...

Important Information

  I accept