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

نجوم المشاركات

  1. Foksh

    Foksh

    أوفيسنا


    • نقاط

      4

    • Posts

      4302


  2. عبدالله بشير عبدالله
  3. hegazee

    hegazee

    03 عضو مميز


    • نقاط

      1

    • Posts

      231


  4. kkhalifa1960

    kkhalifa1960

    الخبراء


    • نقاط

      1

    • Posts

      2228


Popular Content

Showing content with the highest reputation on 12/06/25 in all areas

  1. وعليكم السلام ورحمة الله وبركاته .. أخي بلال أنت عضو فضي ( نتمنى لك المزيد من الدرجات ) ، وما زلت - متأسفاً منك - لا تهتم لأي ملاحظات يتم طرحها خلال المشاركات أو قوانين المنتدى . العنوان :- نكتشف أن مقصده ومعناه مختلف عما تريده أنت . الشرح :- تبخل على أخوانك في المنتدى بالشرح وتكتفي بكلمات لا تتعدى أصابع اليد . إرفاق ملف :- برأيك هل الصورة و 8 كلمات كافيات لتوصيل ما تفكر به لمن يقرأ الموضوع دون ارفاق ملف !!! شكراً لك على رحابة صدرك مراراً وتكراراً في تقبل الملاحظات التي ليس لها هدف إلا أن تحظى بطريق سليم لتوصيل معلومتك
    2 points
  2. مطلوب فتح مرفق داخل قاعدة البيانات بدون مسار خارجي هذا هو الطلب الاساسي وأنا أعطيتك الحل الامثل من قبل !!!!!
    1 point
  3. اضافة الى ما تفضل به اخي @Foksh آمل ان تأخذ هذه التوجيهات والملاحظات بصدر رحب .. لأنها تصب في صالحك اولا : هذا المنتدى تعليمي برمجي يلجأ اليه الأعضاء عندما يواجهون مشكلة في تنفيذ فكرة ما برمجية ايضا هو منتدى تعليمي لمن اراد التعلم و زيادة خبرته في كيفية انشاء مشاريع اكسس اذا الطالب الحريص يبدأ من اول درجات السلم ويعمل بجد حتى يرى نفسه متقنا للصنعة مشاريع اكسس تبدأ من : 1- الجداول // دراستها والطرق الصحيحة العلمية لإنشائها قبل الشروع في اعداد الجداول يجب تحليل بيانات المشروع وتصور ابعاده( المدخلات بانواعها / المخرجات بانواعها ) عند الاحاطة بابعاد المشروع (على اعتبار انه يعمل على الارض وعلى الورق) يمكن تحديد الجداول المطلوب انشاءها هذه الخطوات الاولية تعتبر اساس ومخ المشروع .. اذا تم اعداده بطرق سليمة فقد انهيت 75% الى 80% من القاعدة الأساسية للمشروع وحينها سيصبح استكمال بقية المشروع ممتعا للمبرمج ____________________________ لذا ان كنت جادا في التعلم فاعرض موضوعك بطريقة اخرى وعلى مراحل كثيرة : اول مرحلة : تفتح موضوعا جديدا تعرض فيه فكرة البرنامج وبتفاصيل دقيقة وتطلب رأي الخبراء عن الجداول الاساسية التي يجب عملها حين تعمل هذه الجداول حسب التوجيه تعرضها مرة اخرى للتصحيح والمتابعة استمر بعملك هذا خطوة خطوة .. بعد فترة قصيرة ستجد نفسك على المسار الصحيح .. وتسعى للاحتراف
    1 point
  4. اخي الكريم ، وعليكم السلام ورحمة الله وبركاته ... ارجو منك الإهتمام بتنسيق موضوعك ليسهل قراءته لمن يمر به ويحاول مساعدتك .. المطلوب غير واضح حتى من خلال الصور. ثم انك تستخدم مسميات عربية + من عدة مقاطع ..... إلخ ، وهذا لا يشجع البعض على المساهمة في المساعدة ، لأن التعامل مع المسميات العربية للعناصر والمكونات له تبعات مزعجة ومتعبة في الحلول . شكراً لك
    1 point
  5. حسب التجربة المشكلة بالمنتدى شكرا لمتابعتك واهتمامك الافاضل حسونة حسين Foksh
    1 point
  6. تفضل Sub ToggleColumns() Dim action As String Dim colsInput As String Dim colArray() As String Dim colItem As Variant Dim answer As VbMsgBoxResult Dim invalidInput As Boolean ' مربع حوار لتحديد الإجراء (إخفاء أو إظهار) answer = MsgBox("هل تريد إخفاء الأعمدة؟" & vbCrLf & vbCrLf & "اضغط 'Yes' للإخفاء، 'No' للإظهار.", vbYesNoCancel + vbQuestion, "تحديد الإجراء") If answer = vbCancel Then Exit Sub ' الخروج إذا ضغط المستخدم على "Cancel" ElseIf answer = vbYes Then action = "إخفاء" Else action = "إظهار" End If ' مربع إدخال لطلب الأعمدة من المستخدم colsInput = InputBox("الرجاء إدخال الأعمدة التي تريد " & action & "ها." & vbCrLf & vbCrLf & "أمثلة:" & vbCrLf & "عمود واحد: B" & vbCrLf & "أعمدة متجاورة: B:D" & vbCrLf & "أعمدة متفرقة: B,D,F", "تحديد الأعمدة") ' الخروج إذا كان الإدخال فارغًا If colsInput = "" Then Exit Sub ' إزالة أي مسافات زائدة وتقسيم الإدخال عند الفاصلة colArray = Split(Replace(colsInput, " ", ""), ",") invalidInput = False On Error Resume Next ' تجاهل الأخطاء مؤقتًا للتحقق من صحة الإدخال ' المرور على كل عنصر أدخله المستخدم For Each colItem In colArray If colItem <> "" Then ' التحقق من أن كل جزء من الإدخال يمثل نطاقًا صالحًا If Columns(colItem).Count = 0 Then invalidInput = True Exit For End If End If Next colItem On Error GoTo 0 ' إعادة تفعيل معالجة الأخطاء ' إذا كان هناك إدخال غير صالح، أظهر رسالة خطأ If invalidInput Then MsgBox "الإدخال '" & colItem & "' غير صالح. الرجاء التأكد من إدخال أسماء أعمدة صحيحة.", vbCritical, "خطأ في الإدخال" Exit Sub End If ' تنفيذ الإجراء على كل عمود أو نطاق For Each colItem In colArray If colItem <> "" Then If action = "إخفاء" Then Columns(colItem).Hidden = True Else Columns(colItem).Hidden = False End If End If Next colItem MsgBox "تم " & action & " الأعمدة بنجاح!", vbInformation, "اكتمل الإجراء" End Sub
    1 point
  7. ما دامه يحقق طلبك وغايتك ، فاعتمده بلا تردد 🙂 .
    1 point
  8. السلام عليكم ورحمة الله جرب تطبيق هذا التنسيق على التاريخ لعله يفي بالغرض : [$-ar-DZ,201]dddd yyyy/mm/dd
    1 point
×
×
  • اضف...

Important Information