Moosak

الحمدلله أكتملت الفكرة والتنفيذ 🙂 عملت نموذجين .. وتبقى تكملة المشروع لتكون صفحة تسجيل دخول مكتملة 🙂 النمط الأول : النمط الثاني : للتحميل : MoosaK_Pattern_Lock.accdb

فكرة جميلة وتحد رائع 😊 بالنسبة لي جار العمل وهذا هو الحد الذي وصلت إليه ( ولازال العمل مستمر ... لا يزال يحتاج لتطوير ) : تحدي جميل تعلمت من خلاله كيفية تحريك الخطوط 👍😉

هذا الموضوع ممتلىء حد الكفاية ( 10 صفحات 😅🖐) .. :: يغلق :: قم بفتح موضوع جديد حتى يأخذ حقه من التركيز والانتباه 🙂 🌹🌼

شكرا لك أخي @Foksh 🙂 الكود يجلب أرقام ال IP adress للأجهزة بدون اسم الجهاز .. للعلم

حسب تصوري يمكن تنفيذ ذلك عن طريق 3 استعلامات تجميعية كالتالي : حاله مشابة لطريقة استخراج الأرصدة المالية ( الداخل - المصروف = المتبقي ) 🙂

شكرا جزيلا لك 🙂🌹🌼

مشاركتي حول هذه النقطة 🙂 : فتح البرامج عن طريق كتابة اسمه مباشرة بدون الحاجة لمعرفة مسار البرنامج في الويندوز شرح الكود: تعمل عن طريق إحضار مسار البرنامج المسجل في الريجيستري الكود: Sub OpenApp(AppName As String) On Error GoTo Error_Handler Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Shell WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & AppName & "\"), vbMaximizedFocus Set WSHShell = Nothing 'Examples: 'MS Excel '>>> OpenApp("excel.exe") 'Groove '>>> OpenApp("GROOVE.EXE") 'Internet Explore '>>> OpenApp("IEXPLORE.EXE") 'Info Path '>>> OpenApp("infopath.exe") 'MS Access '>>> OpenApp("MSACCESS.EXE") 'MS One Note '>>> OpenApp("OneNote.exe") 'MS Outlook '>>> OpenApp("OUTLOOK.EXE") 'PowerPoint '>>> OpenApp("powerpnt.exe") 'MS Word '>>> OpenApp("Winword.exe") 'WordPad '>>> OpenApp("WORDPAD.EXE") 'Write '>>> OpenApp("WRITE.EXE") Error_Handler_Exit: On Error Resume Next Exit Sub Error_Handler: If Err.Number = 0 Then Resume Next MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: OpenApp" & vbCrLf & _ "Error Description: " & Err.Description & _ Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Sub

آآآآآآه فعلا 🙈 سبحان الله ما شفتهاش .. لا مواخذه شكلي كان مغمى عليه 😂 🏃🏻‍♂️🏃🏻‍♂️🏃🏻‍♂️

@ابو جودي وطويلب العلم ده .. طلباته مش أوامر برده ولا أييييييه ؟؟ 😅💪🏻

وعليكم السلام ورحمة الله وبركاته .. تم فصل السؤال في موضوع جديد أخي @frqd بناءا على قواعد المنتدى ( كل سؤال في موضوع منفصل ) 🙂

استخدم هذا الكود للحصول على امتداد الصورة الأصلية .. ثم انقله للمسار الجديد ... 🙂 Function GetFileExt(strPath As String) As String ' دالة للحصول على إمتداد الملفات مع النقطة Dim strFile As String strFile = Right(strPath, Len(strPath) - InStrRev(strPath, "\")) GetFileExt = Right(strFile, Len(strFile) - InStrRev(strFile, ".") + 1) End Function

ما الحكمة ؟ 🙂 ليش ؟

وهذه لمسة جمالية بالتنسيق الشرطي 🙂 قائمة قابلة للزيادة حسب عدد السجلات.accdb

جرب هذا 🙂 : قائمة قابلة للزيادة حسب عدد السجلات.accdb

وعليكم السلام ورحمة الله وبركاته أستاذ @Foksh .. 🙂 تقريبا لدي فكرة لهذا .. قد طبقتها في أحد البرامج التي أصممها حاليا ( لو كان فهمي للسؤال صحيحا ) 😅 ولكن قبل أن أستعجل التفصيل .. أقول لك ضع مرفق ليتم التطبيق عليه

شكرا لمروركم جميعا 🙂 الأساتذة والخبراء والمبدعين .. @Foksh @عمر ضاحى @ابوخليل @زياد الحسناوي @TQTHAMI @kkhalifa1960 ... لكم كل التحية والتقدير .. 😊🌼🌷🌹 وشكرا لمشاعركم الطيبة وكلماتكم الرقراقة .. إنما نتعلم منكم .. وهي بضاعتكم نردها إليكم 🙂🌺

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

:: السلام عليكم ورحمة الله وبركاته :: لا بد بين فترة وأخرى من اقتحام مجالات جديدة وتنمية المهارات البرمجية لدى للمبرمج 🙂 هذي المرة طرح أخي @TQTHAMI فكرة برنامج للكلمات المتقاطعة ، فلمعت في رأسي الفكرة وقررت خوض التجربة فنتج عنها ما يلي☺️ :: ((( لعبة الكلمات المتقاطعة ))) :: وهنا بعض الصور واللقطات للعبة إضافة لعبة جديدة وتصميمها :: وأخيرا تحميل الملف المفتوح 😊 :: لعبة الكلمات المتقاطعة.accdb :: ((( الإصدار الثاني 2.0 ))) :: أضفت زرين في نافذة إعداد اللعبة : طباعة اللعبة / طباعة الحل : التحميل 🙂 : ‏‏لعبة الكلمات المتقاطعة الإصدار 2.accdb1.63 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

مبارك عليكما الترقية العزيزين @عمر ضاحى و @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