البحث في الموقع

اعرض الملف 🧮>> لعبة مطابقة الأرقام <<🧮 :: هدية خفيفة :: لتنمية مهارة التركيز 😉👌 :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: اليوم جايب لكم هدية خفيفة وظريفة 😊🎁 🧮🧮>> لعبة مطابقة الأرقام <<🧮 وأنا جالس مع الأولاد قلت أعلمهم شوية أكسس وأحنا بنلطش فيه ( بنخبص فيه 😅) جات لنا فكرة هذي اللعبة وجلسنا نطور فيها أنا والأولاد بأفكارهم الجميلة وتنفيذي المتواضع 😊 لحد ما وصلنا للنتيجة هذي . وهذي صورة اللعبة : وكيفية اللعب : :: ولا تنسونا من صالح دعواتكم 😊🤲:: صاحب الملف Moosak تمت الاضافه 05/30/25 الاقسام قسم الأكسيس  

بالفيديو طريقة ربط برنامج Access على شبكة لاى عدد مستخدمين ... ببساطة على هذا الرابط

تقومان بفحص تقويم الـ vba ونوع المدخل، فهي تساعد المستخدم كثيرا وتجنبه الأخطاء إن شاء الله. عملت تجاربي عليها، ويمكنكم اجراء المزيد من التجارب. Option Compare Database Option Explicit Function Greg2Hijri(GregDate As Variant, _ Optional dFormat As String = "yyyy/mm/dd") As Variant Dim CurCal As VbCalendar On Error Resume Next CurCal = Calendar Greg2Hijri = Null '"WrongInput" If Calendar = vbCalGreg And (VarType(GregDate) = vbDate Or _ VarType(GregDate) = vbLong) Then Calendar = vbCalHijri Greg2Hijri = Format(GregDate, dFormat) ElseIf VarType(GregDate) = vbString Then Calendar = vbCalGreg If IsDate(GregDate) Then Greg2Hijri = CDate(GregDate) End If End If Calendar = CurCal End Function '------------------------- Function Hijri2Greg(HijriDate As Variant, _ Optional dFormat As String = "yyyy/mm/dd") As Variant Dim CurCal As VbCalendar On Error Resume Next CurCal = Calendar Hijri2Greg = Null '"WrongInput" If Calendar = vbCalHijri And (VarType(HijriDate) = vbDate Or _ VarType(HijriDate) = vbLong) Then Calendar = vbCalGreg Hijri2Greg = Format(HijriDate, dFormat) ElseIf VarType(HijriDate) = vbString Then Calendar = vbCalHijri If IsDate(HijriDate) Then Hijri2Greg = CDate(HijriDate) End If End If Calendar = CurCal End Function '-------------------------------------------------------------------- Sub TestingDateConverting() Dim CurCal As VbCalendar CurCal = Calendar Debug.Print "Greg2Hijri" Calendar = vbCalGreg Debug.Print Greg2Hijri(Date, "yyyy-mmmm-dd") Debug.Print Greg2Hijri(CLng(Date), "yyyy mm dd") Debug.Print Greg2Hijri("06/07/2023") Debug.Print "-----------" Calendar = vbCalHijri Debug.Print Greg2Hijri(Date, "yyyy-mmmm-dd") Debug.Print Greg2Hijri(CLng(Date), "yyyy mm dd") Debug.Print Greg2Hijri("06/07/2023") Debug.Print "-------------------------------" Debug.Print "Hijri2Greg" Calendar = vbCalHijri Debug.Print Hijri2Greg(Date, "yyyy-mmmm-dd") Debug.Print Hijri2Greg(CLng(Date), "yyyy mm dd") Debug.Print Hijri2Greg("18/12/1444") Debug.Print "-----------" Calendar = vbCalGreg Debug.Print Hijri2Greg(Date, "yyyy-mmmm-dd") Debug.Print Hijri2Greg(CLng(Date), "yyyy mm dd") Debug.Print Hijri2Greg("18/12/1444") Debug.Print "-------------------------------" Calendar = CurCal End Sub

ملاحظاتي: - أتعبني تحويل رقم اللون الطويل إلى هيكس Hex أرقام سداسية إن صح التعبير واضطررت لعمل دالة لمعالجة مخرجات الدالة الأصل. - لم أصل إلى نوع مقاس الخط لأتمكن من حويلة بشكل دقيق فاضطررت لاستخدام رقم تقريبي بتقسيمه على 3.5 . - استخدمت كل خصائص الخط في صندوق كلمة/نص البحث ما عدا اسم الخط. - حاليا تبديل خصائص الخط في صندوق البحث يدويا (في طور التصميم) ويمكنكم إضافة تعديله بواسط الأزرار والخيارات في طور التشغيل. - مسموح للجميع التطوير فيه مباشرة وبدون إذن. - الدالة مصممة ليستفاد منها في الاستعلامات وفي الجداول لحقول المذكرة. Option Compare Database Option Explicit Function myHex(Color As Long) As String Dim hexStr As String hexStr = Hex(Color) If Len(hexStr) = 6 Then hexStr = Right(hexStr, 2) & Mid(hexStr, 3, 2) & Left(hexStr, 2) Else hexStr = Left(Right(hexStr, 2) & Left(hexStr, Len(hexStr) - 2) & "000000", 6) End If myHex = "#" & hexStr End Function Function RichText(ByVal sText As Variant, frmCtl As String) As String Dim sWord As String Dim lStr As String Dim rStr As String Dim sPos As Integer Dim fSize As Double sPos = InStr(1, frmCtl, ",") With Forms(Left(frmCtl, sPos - 1)).Controls(Right(frmCtl, sPos + 1)) sText = PlainText(Nz(sText, "")) sWord = PlainText(Nz(.Value, "")) rStr = "</font>" lStr = "<font color=""" & myHex(.ForeColor) & """>" sText = Replace(sText, sWord, lStr & sWord & rStr, 1) 'sText = Replace(Replace(sText, rStr & " " & lStr, " ", 1), rStr & "" & lStr, "", 1) lStr = "<font style='BACKGROUND-COLOR:" & myHex(.BackColor) & "'>" sText = Replace(sText, sWord, lStr & sWord & rStr, 1) fSize = .FontSize / 3.5 'تحويل تقريبي lStr = "<font size=" & fSize & "pt>" sText = Replace(sText, sWord, lStr & sWord & rStr, 1) If .FontBold Then lStr = "<b>": rStr = "</b>" sText = Replace(sText, sWord, lStr & sWord & rStr, 1) End If If .FontItalic Then lStr = "<i>": rStr = "</i>" sText = Replace(sText, sWord, lStr & sWord & rStr, 1) End If If .FontUnderline Then lStr = "<u>": rStr = "</u>" sText = Replace(sText, sWord, lStr & sWord & rStr, 1) End If End With RichText = sText End Function RichTextHighlight_01.accdb

بسم الله الرّحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته إخوتي في الله رُوّاد موقع أوفيسنا المباركون؛ ملف access بامتداد mdb و حجم حوالي 180 Mb حاولت فتحه باستخدام ms office 2007 ؛ و لكن تظهر الرسالة التالية : و عند غلق الرسالة تظهر الرسالة التالية: ................. فباركَ الله تعالى بإخوَتي؛ هل ثمّ حل للإشكاليّة؟! مع العلم الإشكاليّة منقولة؛ لإفادة أحد إخوتي على الشّبكةِ؛ فلا يتوفّر الملفّ المعنيّ. والله تعالى يجزي إخوتي خَير الجَزاءِ.

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

؟؟FworkerPresence كيف استطيع الغاء التصفية عند فتح النموذج عند الفتح الكومبوبوكس فارغ وشكرا الغاء التصفية.accdb

السلام عليكم عند إنشاء برنامج محاسبي فما هي أفضل طريقة لعمل ملفات جداول منفصلة لكل سنة مالية؟ بمعنى آخر إتاحة الفرصة للمستخدم لعمل ملف محاسبي كلما أراد. بانتظار التفاعل دمتم بخير

السلام عليكم ورحمة الله اخواني الاعزاء لو تساعدوني بحاجتين لي اسبوع احول ازبطهم ما زبطت اولا : اريد في نموذج doctor عند كتابة رقم المريض في خانة البحث يجب لي بيانات المريض ويضعها بالفورم ثانيا اريد عند اضافة البيانات الى فورم doctor يقوم بتحديث نفس حقل المريض المدخلة بيانتة بالفورم pharmacy system.rar

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

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

السلام عليكم جميعًا وكل عام وأنتم بخير أنا بصدد تكوين فريق عمل في كافة التخصصات (جميع مهارات الكمبيوتر) من أجل العمل على بعض المشاريع المتصلة بتلك المهارات. كل ما عليك أن ترسل لي مهارات حضرتك والبرامج التي تعمل عليها والأعمال السابقة ومدى الوقت المتاح لديك للعمل يوميًا. وبناء على ذلك سأتولى البحث وإيجاد فرص عمل تتناسب مع كل شخص صاحب مهارة. على أن تتوافر في الأخوة الراغبين في الاشتراك الجدية والرغبة الحقيقية في العمل مع تحياتي أشرف علي

السلام عليكم انا عضو جديد هنا الرجاء المساعدة عندما ارسم شكل بياني لكي تظهر عليه اجماليات الايداع والسحوبات من الاستعلام يظهر لي فقط مجموع الايداعات كيف يمكنني ان اعدل في الرسم كي يظهر لي السحوبات ايضا