بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,065 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
51
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Moosak
-
سؤال عن تصميم جدول خاص بالإجازات السنوية
Moosak replied to Zain Alabeden Ali's topic in قسم الأكسيس Access
حسب تصوري يمكن تنفيذ ذلك عن طريق 3 استعلامات تجميعية كالتالي : حاله مشابة لطريقة استخراج الأرصدة المالية ( الداخل - المصروف = المتبقي ) 🙂 -
شكرا جزيلا لك 🙂🌹🌼
-
تعديل واضافة كود عمل ماسح ضوئي مع برنامج (IrfanView)
Moosak replied to Ahmed_J's topic in قسم الأكسيس Access
مشاركتي حول هذه النقطة 🙂 : فتح البرامج عن طريق كتابة اسمه مباشرة بدون الحاجة لمعرفة مسار البرنامج في الويندوز شرح الكود: تعمل عن طريق إحضار مسار البرنامج المسجل في الريجيستري الكود: 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 بناءا على قواعد المنتدى ( كل سؤال في موضوع منفصل ) 🙂
-
نقل صورة من مكان الى مكان "JPEG" و "PNG" و ".jpg"
Moosak replied to محمد احمد لطفى's topic in قسم الأكسيس Access
استخدم هذا الكود للحصول على امتداد الصورة الأصلية .. ثم انقله للمسار الجديد ... 🙂 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 -
هل من الممكن جعل النموذج ينشىء زر عند حدوث شرط ؟
Moosak replied to Foksh's topic in قسم الأكسيس Access
ما الحكمة ؟ 🙂 ليش ؟ -
هل من الممكن جعل النموذج ينشىء زر عند حدوث شرط ؟
Moosak replied to Foksh's topic in قسم الأكسيس Access
-
هل من الممكن جعل النموذج ينشىء زر عند حدوث شرط ؟
Moosak replied to Foksh's topic in قسم الأكسيس Access
-
هل من الممكن جعل النموذج ينشىء زر عند حدوث شرط ؟
Moosak replied to Foksh's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته أستاذ @Foksh .. 🙂 تقريبا لدي فكرة لهذا .. قد طبقتها في أحد البرامج التي أصممها حاليا ( لو كان فهمي للسؤال صحيحا ) 😅 ولكن قبل أن أستعجل التفصيل .. أقول لك ضع مرفق ليتم التطبيق عليه -
تمرين تمرين للمهارات البرمجية 😊💪🏻 ((( لعبة الكلمات المتقاطعة ))) :: 🔳🔲🔳🔲🔲🔳
Moosak replied to Moosak's topic in قسم الأكسيس Access
شكرا لمروركم جميعا 🙂 الأساتذة والخبراء والمبدعين .. @Foksh @عمر ضاحى @ابوخليل @زياد الحسناوي @TQTHAMI @kkhalifa1960 ... لكم كل التحية والتقدير .. 😊🌼🌷🌹 وشكرا لمشاعركم الطيبة وكلماتكم الرقراقة .. إنما نتعلم منكم .. وهي بضاعتكم نردها إليكم 🙂🌺 -
كفكرة أيضا يمكن استخدام أداة متصفح الإنترنت WebBrowser لاستعراض الملفات ( صور + PDF) .. وفيها كود للتكبير والتصغير .. 🙂 للاستفادة أكثر :
-
:: السلام عليكم ورحمة الله وبركاته :: لا بد بين فترة وأخرى من اقتحام مجالات جديدة وتنمية المهارات البرمجية لدى للمبرمج 🙂 هذي المرة طرح أخي @TQTHAMI فكرة برنامج للكلمات المتقاطعة ، فلمعت في رأسي الفكرة وقررت خوض التجربة فنتج عنها ما يلي☺️ :: ((( لعبة الكلمات المتقاطعة ))) :: وهنا بعض الصور واللقطات للعبة إضافة لعبة جديدة وتصميمها :: وأخيرا تحميل الملف المفتوح 😊 :: لعبة الكلمات المتقاطعة.accdb :: ((( الإصدار الثاني 2.0 ))) :: أضفت زرين في نافذة إعداد اللعبة : طباعة اللعبة / طباعة الحل : التحميل 🙂 : لعبة الكلمات المتقاطعة الإصدار 2.accdb1.63 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads
-
شاركونا التهنئة بارتقاء اخوين عزيزين على قلوبنا الى مجموعة الخبراء
Moosak replied to ابوخليل's topic in قسم الأكسيس Access
مبارك عليكما الترقية العزيزين @عمر ضاحى و @Foksh 🙂🌷 .. جدارة وثقة تستحقانها .. وأثبتم ذلك للجميع 👍🏼😊 دعائي لكما بالتوفيق .. ولا تتوانيا في خدمة إخوانكم وأمتكم فيما علمكم الله 🙂🌹 -
عدم تسجيل الموظف بدورة اذا كان في دورة اخرى
Moosak replied to Hamtoooo's topic in قسم الأكسيس Access
مشاركتي مع الأحبة 🙂 تضع هذا في حدث قبل التحديث للنموذج (غيرت المسميات بالإنجليزي) : 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 -
توسيط شخابيط وافكار : ( الحل النهائى لمشكلة توسيط النماذج والتقارير )
Moosak replied to ابو جودي's topic in قسم الأكسيس Access
هذا رابط مكتبة الأكواد .. برابط ثابت في مكتبة الموقع .. ويتم تحديثها بين فترة وأخرى 🙂 -
توسيط شخابيط وافكار : ( الحل النهائى لمشكلة توسيط النماذج والتقارير )
Moosak replied to ابو جودي's topic in قسم الأكسيس Access
وإضافة جميلة للمكتبة العامرة ☺️👌🏼 -
لا تكتب الرقم مباشرة إعمل عملية حسابية لحساب وسط الشاشة 🙂 ( عرض الشاشة على 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
-
وهنا ستجد الكود الذي في الفيديو جاهزا ً : 🙂
-
-
سؤال :تمرير قيمة من خلال متغير خاص فى روتين عند استخدام FileDialog
Moosak replied to ابو جودي's topic in قسم الأكسيس Access
فقط توضيح لهذه العبارة .. أحسست أنها أعطت معنى غير الذي أريده 😅🖐🏼️ طبعا يمكن إضافة متغيرات أخرى من أي نوع بيانات قبل المتغير ذي البادئة ParamArray .. ولكن لا يمكن استخدام البادئات ByVal, ByRef, Optional قبلها ( فقط تكتب اسم المتغير ونوعه ). لذلك يمكنك إضافة المتغير أو المعامل btOptionDialog ولكن لا يمكن جعله Optional . -
شكرا لك أخي @bidheel2009 على هذه الهدية القيمة .. 🙂 أقترح عليك إضافتها لمكتبة الموقع ليسهل الرجوع إليها لم يحتاجها : https://www.officena.net/ib/files/category/5-قسم-الأكسيس/