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

Moosak

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

  • Posts

    2175

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

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

  • Days Won

    55

 نوع المحتوي 

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

  1. Moosak
    هاك الجواب يا سيدي 🙂 : Public Function GetTableNameFromComboBox(cbo As ComboBox) As String On Error Resume Next Dim strTableName As String, x As Integer, y As String Dim ctl As Control Set ctl = cbo If Not ctl.RowSourceType = "" And Not ctl.RowSource Like "SELECT*" Then Exit Function End If If ctl.RowSourceType = "Table/Query" Then strTableName = Mid(ctl.RowSource, InStr(ctl.RowSource, "FROM ") + 5) For x = 1 To Len(strTableName) If Mid(strTableName, x, 1) = ";" Or Mid(strTableName, x, 1) = " " Then GoTo NextStep y = y & Mid(strTableName, x, 1) Next NextStep: strTableName = y ElseIf ctl.RowSourceType = "Value List" Then strTableName = "Value List" End If GetTableNameFromComboBox = strTableName End Function DataUp1.rar
  2. Moosak
    الكود الحالي يخدم القضية الحالية بعينها 🙂 أيضا ماذا لو كان مصدر الاستعلام جدولين أو أكثر ؟!! وماذا لو كان هناك شروط في جملة الاستعلام where ؟!! وماذا لو .... وماذا لو .... ؟؟؟؟؟ هناك احتمالات كثيرة .... 😁 وكل مشكلة ولها حل .. 🙂
  3. Moosak
    أسأل الله العظيم لك طول العمر مع حسن العمل مع سلامة البدن يارب 🙂 تفضل عمي @ابوخليل استخدمت هذه الدالة لاستخراج اسم الجدول من جملة ال SQL : Function ExtractTableNameFromSQL(strSQL As String) As String Dim strTableName As String ' استخرج اسم الجدول من الجملة SQL strTableName = Mid(strSQL, InStr(strSQL, "FROM ") + 5) ' يتم استخراج الجزء بعد الكلمة "FROM" strTableName = Left(strTableName, InStr(strTableName, ";") - 1) ' يتم استخراج الجزء قبل الفاصلة المنقوطة ' اعرض اسم الجدول ExtractTableNameFromSQL = strTableName End Function DatabaseUp8.rar
  4. Moosak
    وعليكم السلام ورحمة الله وبركاته.. ما شاء الله تبارك الرحمن .. 🌹🌷 شغل معلمين يحتاجله 10 سطل قهوة عشان تجيب كل التركيز اللي في العالم لراسك 😅👌 هدخله المكتبه ازاي ده ؟؟!!! 😂 شكر لك باش مهندس ومنتظرين التكملة 👍🏼😊
  5. Moosak
    مزيد من المعلومات حول ""
    شكرا لك أخي أبو يحيى 🙂 أنظر هنا الإصدار الأحداث لهذه الأداة :
  6. Moosak
    كفو عليك عمي أبو خليل .. 😊🌼🌹 أيش رايك تعلمنا كيف نصيدها .. بدل ما ناكلها جاهزة 😁😅🖐🏻🌼
  7. Moosak
    وعليكم السلام ورحمة الله وبركاته.. ضع مربعي نص في النموذج (من) (إلى) استخدم استعلام وضع تحت حقل ال ID المعيار : Between Forms!FormName!TextBoxFrom and Forms!FormName!TextBoxTo بحيث يكون التقرير يأخذ بياناته من نفس الاستعلام.
  8. Moosak
    وعليكم السلام ورحمة الله وبركاته أخي @ابو عبد الله العراقي 🙂 ضع هذا الكود على زر [ التالي ] ليخبرك عندما تصل إلى نهاية السجلات : Private Sub cmdNext_Click() If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acNext Else MsgBox "لقد وصلت إلى نهاية السجلات" End If End Sub وضع هذا الكود على زر [ السابق ] ليخبرك عندما تصل إلى بداية السجلات : Private Sub cmdPrevious_Click() If Me.CurrentRecord > 1 Then DoCmd.GoToRecord , , acPrevious Else MsgBox "لقد وصلت لبداية السجلات" End If End Sub
  9. Moosak
    كلمات كلها راحة نفسية وطمأنينة وتشرح الصدر 😄🌹🌹🌼 أجاب الله دعواتك حبيبنا الغالي ورزقك أمثالها أضعافا مضاعفة 😊🤲 وأنا شخصيا هذه الأداة تعتبر من الأساسيات عندي والتي لا أستغني عنها 🙂
  10. Moosak
    شكرا لكم يا مبدعين.. 🙂🌷
  11. Moosak
    برنامج مرتب وتصميم جميل ماشاء الله 🙂 فقط عندي بعض الملاحظات : 1- بالنسبة للتعليمات أعلاه أقترح عليك أن تضبطها بنفسك قبل تسليمها للمستخدم النهائي .. ويفضل أن تقوم بتحزيم البرنامج بأحد برامج التحزيم .. ومن ضمن الأشياء التي تعدها أيقونة البرنامج في سطح المكتب .. 🙂 2- عند إغلاق الشاشة الرئيسية تبقى شاشة الأكسس مفتوحة في الخلف وجميع عناصر البرنامج مشرعة للمستخدم ( يفضل إغلاقها بعد إغلاق آخر نموذج ) .. 3 - جميلة فكرة الأيقونات خارج البرنامج ولو أني أقترح عليك تضمينها في البرنامج لأنها لا تستهلك من حجم البرنامج إلا الشيء اليسير ، أما الصور التي تضعها في الخارج فهي المرفقات المصاحبة للسجلات المتزايدة فهي التي ينصح بإخراجها .. ولكن لو أردت إبقائها خارج البرنامج فأنصحك بجمعها في مجلد خاص بها بجانب البرنامج ولا تبقى مبعثرة بهذا الشكل 🙂
  12. Moosak
    يسلم بؤك مهندسنا الغالي .. 😊🌹 مكتباتنا عااااااااامرة بإبداعاتك .. دي نقطة فبحركم 😅 أتفق معاك تماماً سيدي الفاضل .. 👍🙂 الأصل أن الشخص يتعلم الأساسيات ثم يستخدم الأداة بعدها .. أو يستخدمها ليتعلم منها 😏👌 ومن ضمن الأهداف النبيلة لوجود مثل هذه الأداة تسريع العمل واختصار الوقت حتى مع وجود الخبرة 🙂 وياليتك تيجي تشوف أيش العمايل اللي سواها الذكاء الاصطناعي في المبرمجين !! 😅 ربنا يبارك فيك وحياتك وعلمك أستاذنا المبدع .. 😊🌼 ومنكم نتعلم 🙂
  13. Moosak
    🌼 السلام عليكم ورحمة الله وبركاته 🌼 يسرني اليوم أن أقدم لكم الإصدار الثاني والمطور من الأداة المتميزة والرائعة ( الكاتب الذكي لدوال المجال ) . Dloockup, DCount, DMax, DMin, Dfirst, DLast هذه الأسطورة التي تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. :: ما هو الجديد :: اليوم أحتفل معكم بإصدار النسخة الثانية والمطورة لهذه الأداة والتي تتميز بالإضافات التالية : 1- إمكانية إضافة عدد لا نهائي من المعايير ( الشروط ). 2- التعرف التلقائي على نوع بيانات الحقول. 3- جلب قيمة المعيار من التقارير. 4- ميزة إضافة الأقواس حول المعايير. 5- حفظ بيانات آخر عملية قمت بها. 6- كتابة الدالة بمجرد الضغط على زر Enter. 7- تم إضافة أزرار لتسهيل كتابة الدالة NZ والمعامل Like. 8- تكبير لوحة الناتج بالضغط المزدوج عليها. 🌹🍀🌹🍀🌹 وهنا تم شرح هذه الإضافات بالتفصيل : :: شرح كيفية استخدام الأداة بالتفصيل :: :: 🌼 شكر وتقدير 🌼 :: لكل من ساهم برأي أو فكرة أو تطبيق في هذا العمل ، وجزاكم الله عن المسلمين كل خير 😊🌹 :: حمل الإصدار الثاني للكاتب الذكي لدوال المجال 2.0 :: ‏‏‏‏Domain Functions Builder V2.0.accdb
  14. Moosak
    فيه دالة DCount تقوم بهذا العمل 🙂
  15. Moosak
    وغفل عن أشياااااااء كثييييرة بعد .. خليها على الله بس 😅🖐🏻 لكن هناك حيل للتغلب على أغلب المشاكل .. ومنها موضوع المهندس القدير جعفر 🙂 والذي أشار له الأستاذ @kanory
  16. Moosak
    ما شاء الله عليك يا كبيييييييييير .... عملتها بطريقة المعلمين 😅👌🏼 الجهد واضح جدا جدا .. تبارك الله .. دايما ميزتك تعمل حل متكامل لكل الأزمان 👍🏻😊 بارك الله لنا فيك وبارك الله في علمك ونفع بك 🤲🏻 العم @Foksh أعتقد السبب أنك نقلت الملف من مكان آمن موثوق لمكان مش موثوق بعد 🙂 إدعس باليمين على الملف وألغ الحضر .. 🙃👇🏻 :
  17. Moosak
    ستجد عبارة اختر كأفضل إجابة اسفل كل مشاركة .. الهدف منها ارشاد رواد المنتدى بالإجابة الأفضل التي تجيب على سؤالك .. 🙂
  18. Moosak
    إذا عليك بفكرة الأستاذ @Barna 🙂
  19. Moosak
    وعليكم السلام ورحمة الله وبركاته .. 🙂 في النموذج المستمر من الصعب عمل أوامر برمجية بشكل مباشر من هذا النوع .. والحل هو أن يتم إخراج الصور من البرنامج كملفات خارجية ويتم الإشارة إليها كرابط .. وهذه النتيجة 🙂 : ويمكنك إخفاء المربع الذي في اليسار (Image Source) عند الانتهاء .. لاحظ يجب أن يكون ملف الصور بجانب البرنامج وعدم تغيير موقعه حتى لايتم فقد الرابط بينهما : Change Image.zip
  20. Moosak
    جرب اضغط Ctrl+H أو ضع الكود التالي على الزر : Me.TextBoxName.Setfocous Application.SendKeys "^h" 🙂
  21. Moosak
    شكرا لك أخي @dr_bioman على مشاركة المعلومة 🙂 هل توجد صور توضيحية للمشكلة ؟
  22. Moosak
    وعليكم السلام ورحمة الله وبركاته 🙂 حسب ما يبدوا أنه ليست هناك طريقة لمعرفة وقت وتاريخ إضافة سجل معين مالم تكن قد أضفت حقل خاص بتسجيل تاريخ الإضافة مسبقا .. والله أعلم
  23. Moosak
    شكر لك أخي @mrsadek2000 على البرنامج .. وجعله الله في ميزان حسناتك 🙂 أقترح عليك توفير نسخة لمستخدمي النواة 64 بت فهم كثر ( وأنا واحد منهم ) 😅🖐 وكذلك أقترح عليك إضافته لمكتبة الموقع لكي يستفيد أكبر عدد من الناس منه 🙂🌼 رابط المكتبة : ◀◀ مكتبة الموقع / قسم الأكسس ▶▶ بارك الله فيك وزادك علما 🙂🤲🏻
  24. Moosak
    تم تحديث المرفقات في المشاركة الأساسية 🙂
  25. Moosak
    وعليكم السلام ورحمة الله وبركاته أخي @hanafymahmood 🙂 خذ نسخة من البرنامج (مهم) .. واحذف منها جميع السجلات ما عدا 10 تقريبا تضعها كنموذج للتجربة عليها .. وأرفق البرنامج في موضوع جديد مستقل ( مهم ) .. ثم أشر لهذا الموضوع بوضع الرابط الخاص به في موضوعك الجديد .. ونتمنى لك التوفيق 🙂
×
×
  • اضف...

Important Information

  I accept