اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

Showing results for tags 'أكسس'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • قسم تطبيقات و لغات مايكروسوفت
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • المنتدى التقني العام و تطبيقات الأوفيس الأخرى
    • إعلانات شخصية للأعضاء
    • قنوات تعليمية وإعلانات دورات تدريبية
  • إدارة المشاريع والبحث العلمي وعلوم البيانات
    • إدارة المشاريع ومحافظ المشاريع
    • البحث العلمي والإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
  • القسم العام
    • قسم الاقتراحات و الملاحظات
    • مشاركات المدونات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 11 نتائج

  1. تقومان بفحص تقويم الـ 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
  2. ملاحظاتي: - أتعبني تحويل رقم اللون الطويل إلى هيكس 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
  3. بسم الله الرّحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته إخوتي في الله رُوّاد موقع أوفيسنا المباركون؛ ملف access بامتداد mdb و حجم حوالي 180 Mb حاولت فتحه باستخدام ms office 2007 ؛ و لكن تظهر الرسالة التالية : و عند غلق الرسالة تظهر الرسالة التالية: ................. فباركَ الله تعالى بإخوَتي؛ هل ثمّ حل للإشكاليّة؟! مع العلم الإشكاليّة منقولة؛ لإفادة أحد إخوتي على الشّبكةِ؛ فلا يتوفّر الملفّ المعنيّ. والله تعالى يجزي إخوتي خَير الجَزاءِ.
  4. ان شاء الله هذه التدوينة سوف تكون متجددة باستمرار أو على الأقل لتكون بمثابة هامش صغير ليحتوي على شخابيط وأفكار وتلميحات هامة ومتعددة ليسهل الوصول اليها سوف أحاول جاهدا جمع أفكاري والأكواد الهامة بصفة مستمرة ليسهل لي و لأحبائي الرجوع اليها مستقبلا
  5. ؟؟FworkerPresence كيف استطيع الغاء التصفية عند فتح النموذج عند الفتح الكومبوبوكس فارغ وشكرا الغاء التصفية.accdb
  6. السلام عليكم عند إنشاء برنامج محاسبي فما هي أفضل طريقة لعمل ملفات جداول منفصلة لكل سنة مالية؟ بمعنى آخر إتاحة الفرصة للمستخدم لعمل ملف محاسبي كلما أراد. بانتظار التفاعل دمتم بخير
  7. السلام عليكم ورحمة الله اخواني الاعزاء لو تساعدوني بحاجتين لي اسبوع احول ازبطهم ما زبطت اولا : اريد في نموذج doctor عند كتابة رقم المريض في خانة البحث يجب لي بيانات المريض ويضعها بالفورم ثانيا اريد عند اضافة البيانات الى فورم doctor يقوم بتحديث نفس حقل المريض المدخلة بيانتة بالفورم pharmacy system.rar
  8. السلام عليكم ورحمة الله تعالى وبركاته معكم أخوكم محمد أقدم من خلال قناتي دورة تعليمية في الأكسس وذلك من خلال إنشاء برنامج عملي أقوم من خلاله بشرح الأكسس وبناء برنامج محاسبي قابل للاستخدام. سوف أجعل هذا الموضوع متجدداً يضم كافة الفيديوهات التي نزلت والتي سيتم تحميلها إن شاء الله. لمتابعتنا يمكن الاشتراك بالقناة والاطلاع أيضاً على باقي المساقات التعليمية الموجودة في القناة. نبدأ على بركة الله وهذه هي سلسلة الدروس التي تم تحميلها حتى اللحظة: الدرس الأول: الدرس الثاني: الدرس الثالث: الدرس الرابع: الدرس الخامس:
  9. الاخوة الافاضل... السلام عليكم ورحمة الله وبركاته في البداية اقدم كل الشكر للمنتدى والقائمين عليه في مساعدتنا الموضوع انا صممت برنامج ادارة املاك وعند ميفتح البرنامج لو فيه اي ايجارات متأخرة يفتح تقرير يعرض كل المتأخر المشكلة اني لو مافي متأخرات يفتح التقرير بس فارغ انا ابغي لو مافي اي بيانات بالتقرير مايفتح غير لو بالتقرير بيانات. وشكرا جزيلا
  10. السلام عليكم جميعًا وكل عام وأنتم بخير أنا بصدد تكوين فريق عمل في كافة التخصصات (جميع مهارات الكمبيوتر) من أجل العمل على بعض المشاريع المتصلة بتلك المهارات. كل ما عليك أن ترسل لي مهارات حضرتك والبرامج التي تعمل عليها والأعمال السابقة ومدى الوقت المتاح لديك للعمل يوميًا. وبناء على ذلك سأتولى البحث وإيجاد فرص عمل تتناسب مع كل شخص صاحب مهارة. على أن تتوافر في الأخوة الراغبين في الاشتراك الجدية والرغبة الحقيقية في العمل مع تحياتي أشرف علي
  11. السلام عليكم انا عضو جديد هنا الرجاء المساعدة عندما ارسم شكل بياني لكي تظهر عليه اجماليات الايداع والسحوبات من الاستعلام يظهر لي فقط مجموع الايداعات كيف يمكنني ان اعدل في الرسم كي يظهر لي السحوبات ايضا
×
×
  • اضف...

Important Information