بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,065 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
51
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Moosak
-
واجهة بقوائم منسدلة مجانية هديتي لهذا المنتدى
Moosak replied to فوزي صلاح اليافعي's topic in قسم الأكسيس Access
شكرا جزيلا أخي @فوزي صلاح اليافعي على الهدية الجميلة 🙂🌹 -
سؤال :تمرير قيمة من خلال متغير خاص فى روتين عند استخدام FileDialog
Moosak replied to ابو جودي's topic in قسم الأكسيس Access
ما شاء الله عليكم تعمقتم في الموضوع وخضتم وتشعبتم في بحور المكتبات 😄🖐🏼️ أما أنا أعود بكم للموضوع الأصلي لأنه خطرت لي فكرة فما أردت لها أن تضيع في زحام الأفكار 😁👌🏼 الفكرة سلمكم الله هي أن تتيح للمستخدم كتابة أنواع الملفات في معامل الدالة على شكل مصفوفة هكذا ("jpg", "png", "pdf", "rar") ومن ثم يجمعها الكود بالشكل الصحيح ليتم استخدامها في الكود حسب الصياغة الصحيحة وإضافة النجمة لها * .. هكذا (jpg, *.png, *.pdf, *.rar.*) ولعمل ذلك استعنت ب ChatGPT لكتابة الكود التالي مع الكثير من التعديلات لإيصال الفكرة لكم .. 🙂 Function FilesTypes(ParamArray Types() As Variant) As String Dim combinedTypes As String Dim i As Integer ' Initialize the combined string combinedTypes = "" ' Loop through the array items and concatenate with the delimiter For i = LBound(Types) To UBound(Types) combinedTypes = combinedTypes & "*." & Types(i) & ", " Next i ' Remove the last "," If Len(combinedTypes) > 0 Then combinedTypes = Left(Trim(combinedTypes), Len(Trim(combinedTypes)) - 1) End If FilesTypes = IIf(Len(combinedTypes) > 0, combinedTypes, "*.*") End Function Sub testing() Debug.Print FilesTypes("jpg", "png", "pdf", "rar") 'Result = *.jpg, *.png, *.pdf, *.rar Debug.Print FilesTypes() 'Result = *.* End Sub ملاحظة مهمة : طبعا حسب إفادة موقع مايكروسوفت المعامل من نوع ParamArray يجب أن يكون في آخر المعاملات في الدالة وهو إختياري في جميع الأحوال ويمكن تركه فارغا .. ولا يصلح أن يتم استخدامه مع المعاملات من نوع ByVal, ByRef, or Optional . لذلك تركت لك مسألة التعامل مع المعامل btOptionDialog الذي في كودك الأصلي لتجد له حلا 😅🖐🏼️ مرجع : https://learn.microsoft.com/ar-sa/office/vba/language/reference/user-interface-help/function-statement -
هدية مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁
Moosak replied to Moosak's topic in قسم الأكسيس Access
اللهم آمين .. 🙂🤲🏼 تقبل الله دعواتكم أجمعين .. ولكم بالمثل 🌹 -
تحويل ملفات PDF إلى صور عن طريق الكود VBA Access
Moosak replied to walid7799's topic in قسم الأكسيس Access
بعد البحث والتحري .. قمت بتجربة هذا الكود .. فظهر لي أنه مصمم لبرنامج الباوربوينت وليس للأكسس .. جربت إضافة مكتبة الباوربوينت للأكسس لكن لازالت رسالة الخطأ تظهر .. وعندما نقلته للباوربويت اشتغل ولله الحمد .. ولكنه مصمم ليحفظ الصفحة الأولى من ملف ال PDF فقط 🙂 -
إذا كنت ستعتمد على عد المسافات بين الأسماء .. فيمكنك استخدام الدالة التالية لعد المسافات الفاصلة بين الأسماء بغض النظر عن الأسماء ذوات الضروف الخاصة كالأسماء المركبة وغيرها .. 1- أضف حقل محسوب في الاستعلام وهذه قيمته ( تستبدل Text باسم حقل الأسم ) : Len(Text) - Len(Replace(Text; " "; "")) 2- في المعيار أسفل هذا الحقل تكتب الرقم 3 وذلك ليحضر لك الأسماء الرباعية .. أو تكتب الرقم 2 ليحضر لك الأسماء الثلاثية
-
هدية مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁
Moosak replied to Moosak's topic in قسم الأكسيس Access
هذه المشكلة تحصل بسبب اختلاف نسخ الأوفيس بين الأجهزة .. الحل : إفتح ملف أكسس جديد فاضي .. ثم صدر جميع عناصر البرنامج لملف الأكسس الجديد .. وستعمل معك بإذن الله 🙂 -
بسم الله ما شاء الله .. تبارك الرحمن 😄🖐🏼️ شغل معلمين بجد .. 😊 الله يبارك لك في عمرك وعلمك وصحتك وذريتك 🤲🏻 أنا كنت عارف أن قلبك مش هيسيبك تدينا الكود وتمشي 😅 اشتغلت معايه زي السكينة على الحلاوة ما شاء الله .. 👍🏼 أيش رايك لو تضيف زر إيقاف مؤقت ⏸ للمجموعة وتكتمل النعمة ؟ والمكتبة بتسلم عليك 😂
-
هذا السطر يتحكم بخاصية ضغط وإصلاح قاعدة البيانات عند الإغلاق .. وشخصيا أرى أن بقائه مفعلا True في جميع الأحوال هو أمر جيد 🙂 لذلك وضعته True في الحالتين
-
وعليكم السلام ورحمة الله وبركاته.. ماذا تقصد ب هو المتاح ؟؟ وضح السؤال أكثر تكرما
-
وعليكم السلام ورحمة الله وبركاته .. وممكن تستفيد من إبداعات المهندس @ابو جودي 🙂
-
شكرا للتذكير عمنا @شايب 🙂🌷
-
لو يمكن سحب الأكواد في ملف VBS يكون أفضل .. ولكن المشكلة أننا سندخل في معمعة مع مكافحات الفيروسات 😅🖐 وربما يكون لديك فكرة أفضل ..
-
You may put it under on click command for a button.
-
كيف لو أردنا إضافة الإصدارات الأحدث للقائمة ؟ لأن الملف exe 🙂
-
تصميم جميل وألوان هادئة 🙂
-
ما الذي يفعله هذا الملف بالضبط عمي أبوخليل ؟ وهل تشغله يدويا أم بأمر برمجي ؟ وهل يشترط أن يكون بجانب قاعدة البيانات أثناء التشغيل ؟ 🙂
-
Me.Refresh 🙂
-
تحويل الاستعلام الى جملة SQL واستعمالها في الكود (معدل)
Moosak replied to walid7799's topic in قسم الأكسيس Access
استخدم مصمم الاستعلامات الخاص بالأكسس للحصول على جمل ال SQL .. صمم الاستعلام ثم إذهب إلى للحصول على جملة ال SQL سهل ومريح .. 🙂 -
ظهور رسالة تحذيرية عند فتح ملفات الاكسس
Moosak replied to Luqman Khooshnaw's topic in قسم الأكسيس Access
-
أخي @Alien غيرت لك الفكرة وعملتها بالكود 🙂 جرب الآن وضع أي رقم تشاء .. إن شاء الله مليون رقم حتشتغل معاك 🙂 : بس لما تكون أرقام كثيرة بتاخذ وقت شوية لحد ما يفتح التقرير معاك 😅 Patient Sample Tracking.accdb
-
وعليك السلام ورحمة الله لو فتحت الجدول في حقل Numbers ستجد قائمة بالأرقام .. العدد الأكبر 3000 طبعا عملت التسلسل بالأكسل ثم نسختها للأكسس .. يمكنك زيادتها كما تشاء .. أضف الحد الذي تريده
-
هدية مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁
Moosak replied to Moosak's topic in قسم الأكسيس Access
أستاذي ومعلمنا العزيز @ابوخليل .. وأنا يشرفني كثيرا أنك أول الحضور والمعلقين 🙂 🌹 عمت الفرحة وزاد الهنا ☺️ أجاب الله دعواتك .. وعمت بركاتك .. ونفعنا الله بك .. وحفك التوفيق والتسديد 🤲🏻