Moosak

كفكرة أيضا يمكن استخدام أداة متصفح الإنترنت WebBrowser لاستعراض الملفات ( صور + PDF) .. وفيها كود للتكبير والتصغير .. 🙂 للاستفادة أكثر :

:: السلام عليكم ورحمة الله وبركاته :: لا بد بين فترة وأخرى من اقتحام مجالات جديدة وتنمية المهارات البرمجية لدى للمبرمج 🙂 هذي المرة طرح أخي @TQTHAMI فكرة برنامج للكلمات المتقاطعة ، فلمعت في رأسي الفكرة وقررت خوض التجربة فنتج عنها ما يلي☺️ :: ((( لعبة الكلمات المتقاطعة ))) :: وهنا بعض الصور واللقطات للعبة إضافة لعبة جديدة وتصميمها :: وأخيرا تحميل الملف المفتوح 😊 :: لعبة الكلمات المتقاطعة.accdb

مبارك عليكما الترقية العزيزين @عمر ضاحى و @Foksh 🙂🌷 .. جدارة وثقة تستحقانها .. وأثبتم ذلك للجميع 👍🏼😊 دعائي لكما بالتوفيق .. ولا تتوانيا في خدمة إخوانكم وأمتكم فيما علمكم الله 🙂🌹

شكرا لك أخي @Foksh هدية رائعة وجميلة 🙂 🌼🌷 برنامج مدلع بالتصاميم الجميلة والترتيب والتنظيم والحركات الرائعة 😁👌 أحييك على ذوقك الراقي في التصميم ... أعجبني الستايل الغامق 👍😉 ولا تنسى تضيفه في مكتبة الموقع للرجوع إليه ويستفيد منه الإخوان

مشاركتي مع الأحبة 🙂 تضع هذا في حدث قبل التحديث للنموذج (غيرت المسميات بالإنجليزي) : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim C As Integer C = DCount("*", "[courses]", "([num] =" & Me.num & ") and (([Cstart] Between #" & Me.Cstart & "# And #" & Me.Cend & "#) Or ([Cend] Between #" & Me.Cstart & "# And #" & Me.Cend & "#))") If C > 0 Then MsgBox "الموظف مسجل في دورة أخرى في نفس التوقيت" Cancel = True End If End Sub دورات.accdb

هذا رابط مكتبة الأكواد .. برابط ثابت في مكتبة الموقع .. ويتم تحديثها بين فترة وأخرى 🙂

وإضافة جميلة للمكتبة العامرة ☺️👌🏼

لا تكتب الرقم مباشرة إعمل عملية حسابية لحساب وسط الشاشة 🙂 ( عرض الشاشة على 2 - عرض النموذج على 2 ) مثلا 🙂

يمكنك أيضا استخدام الكود Move Size لتضبيط موقع النموذج وأبعاده : https://learn.microsoft.com/en-us/office/vba/api/access.docmd.movesize?f1url=%3FappId%3DDev11IDEF1%26l%3Den-US%26k%3Dk(vbaac10.chm4158)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

وهنا ستجد الكود الذي في الفيديو جاهزا ً : 🙂

هل هذا ما تقصده 🙂 Time +-.accdb

فقط توضيح لهذه العبارة .. أحسست أنها أعطت معنى غير الذي أريده 😅🖐🏼️ طبعا يمكن إضافة متغيرات أخرى من أي نوع بيانات قبل المتغير ذي البادئة ParamArray .. ولكن لا يمكن استخدام البادئات ByVal, ByRef, Optional قبلها ( فقط تكتب اسم المتغير ونوعه ). لذلك يمكنك إضافة المتغير أو المعامل btOptionDialog ولكن لا يمكن جعله Optional .

شكرا لك أخي @bidheel2009 على هذه الهدية القيمة .. 🙂 أقترح عليك إضافتها لمكتبة الموقع ليسهل الرجوع إليها لم يحتاجها : https://www.officena.net/ib/files/category/5-قسم-الأكسيس/

شكرا جزيلا أخي @فوزي صلاح اليافعي على الهدية الجميلة 🙂🌹

ما شاء الله عليكم تعمقتم في الموضوع وخضتم وتشعبتم في بحور المكتبات 😄🖐🏼️ أما أنا أعود بكم للموضوع الأصلي لأنه خطرت لي فكرة فما أردت لها أن تضيع في زحام الأفكار 😁👌🏼 الفكرة سلمكم الله هي أن تتيح للمستخدم كتابة أنواع الملفات في معامل الدالة على شكل مصفوفة هكذا ("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

اللهم آمين .. 🙂🤲🏼 تقبل الله دعواتكم أجمعين .. ولكم بالمثل 🌹

بعد البحث والتحري .. قمت بتجربة هذا الكود .. فظهر لي أنه مصمم لبرنامج الباوربوينت وليس للأكسس .. جربت إضافة مكتبة الباوربوينت للأكسس لكن لازالت رسالة الخطأ تظهر .. وعندما نقلته للباوربويت اشتغل ولله الحمد .. ولكنه مصمم ليحفظ الصفحة الأولى من ملف ال PDF فقط 🙂

ماذا تقترح عمي @ابوخليل 🙂 هات ما في جعبتك 😁

استخدم نفس الدالة Replace 🙂

في حدث بعد التحديث (يعني بعد كتابة الاسم كاملا) تكتب هذا Replace ( [NameText], "عبد " , "عبد") ' للتأكد من عدم وجود مسافتين Replace ( [NameText], " عبد " , "عبد")

إذا كنت ستعتمد على عد المسافات بين الأسماء .. فيمكنك استخدام الدالة التالية لعد المسافات الفاصلة بين الأسماء بغض النظر عن الأسماء ذوات الضروف الخاصة كالأسماء المركبة وغيرها .. 1- أضف حقل محسوب في الاستعلام وهذه قيمته ( تستبدل Text باسم حقل الأسم ) : Len(Text) - Len(Replace(Text; " "; "")) 2- في المعيار أسفل هذا الحقل تكتب الرقم 3 وذلك ليحضر لك الأسماء الرباعية .. أو تكتب الرقم 2 ليحضر لك الأسماء الثلاثية

هذه المشكلة تحصل بسبب اختلاف نسخ الأوفيس بين الأجهزة .. الحل : إفتح ملف أكسس جديد فاضي .. ثم صدر جميع عناصر البرنامج لملف الأكسس الجديد .. وستعمل معك بإذن الله 🙂

بسم الله ما شاء الله .. تبارك الرحمن 😄🖐🏼️ شغل معلمين بجد .. 😊 الله يبارك لك في عمرك وعلمك وصحتك وذريتك 🤲🏻 أنا كنت عارف أن قلبك مش هيسيبك تدينا الكود وتمشي 😅 اشتغلت معايه زي السكينة على الحلاوة ما شاء الله .. 👍🏼 أيش رايك لو تضيف زر إيقاف مؤقت ⏸ للمجموعة وتكتمل النعمة ؟ والمكتبة بتسلم عليك 😂

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

وعليكم السلام ورحمة الله وبركاته.. ماذا تقصد ب هو المتاح ؟؟ وضح السؤال أكثر تكرما