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

kanory

الخبراء
  • Posts

    2,231
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    134

كل منشورات العضو kanory

  1. اذا عرفنا سبب تنفيذ امر مكتوب في مربع النص ..... ربما عرفنا طريقة التنفيذ ..... واذا امكن مثال للتنفيذ عليه ..
  2. إذن حان الوقت لاضافة هذه الامثلة للمكتبة ..... شكرا لكم @ابو جودي @Moosak @AlwaZeeR وتقبلوا تحياتي لكم ....
  3. لم اقصد هذا ولكن .... اردت اضافتها لدي ... وعندما قرأت هذه العبارة حذفتها ظنا مني انها غير قابلة للنشر والاستخدام الشخصي ههههههه بارك الله فيك مهندسنا ومروض الاكسس @ابو جودي وانا اعرف انك لم تقصد عدم الاضافة للمكتبة ( اي عدم استخدام تلك الاكواد ) ولكني حبيت امازحك قليلا .... 🌹
  4. استبدل الشيفرة في الزر بهذا .... Dim currentText As Variant Dim newText As String newText = BuildNewText(infoa.Value, anfo2.Value, info3.Value) currentText = allinfo.Value If currentText <> "" Then allinfo.Value = currentText & ", " & newText Else allinfo.Value = newText End If infoa.Value = "" anfo2.Value = "" info3.Value = "" ثم الصق هذا الفانك في النموذج .... Private Function BuildNewText(ParamArray TextValues() As Variant) As String Dim i As Integer Dim textPart As Variant Dim result As String For i = LBound(TextValues) To UBound(TextValues) textPart = Trim(TextValues(i)) If textPart <> "" Then If result <> "" Then result = result & ", " End If result = result & textPart End If Next i BuildNewText = result End Function
  5. طيب .... استخدم هذه الشيفرة في الزر .... جرب Dim currentText As String Dim newText As String newText = infoa.Value & ", " & anfo2.Value & ", " & info3.Value currentText = allinfo.Value If currentText <> "" Then allinfo.Value = currentText & ", " & newText Else allinfo.Value = newText End If infoa.Value = "" anfo2.Value = "" info3.Value = ""
  6. طيب .... انظر المرفق .... تم تحقيق طلبك وبدون عملية الحفظ فقط اختر الواجب ثم راجع الجدول لترى التعديلات كاملة ( تم ادخال تاريخ احضار الواجب وكذلك عدد الواجبات المقدمة ) تم عملها على الواجبات فقط .... الان جاء دور الواجب لك من باب التعلم ( لأن المنتدى هذا هدفه الاساسي وليس تقديم الحلول والبرامج الجاهزة ) اكمل نفس العمل على المشاريع ... علما التعديل فقط في النموذج لان الجدول جاهز فيه حقول التاريخ ومجموع المشاريع جاهز ....... وأي استفسار حاضرين ... بارك الله فيك a2.accdb
  7. ممكن توضح اكثر ما هو المطلوب ( هل تريد عدد الواجبات التي قدمها الطالب مثلا وعدد المشاريع المقدمة ) ام ماذا ؟؟؟
  8. لم اقصد هذا .... المفروض غياب الطالب يكون في نفس يوم الاختبار ولا كيف لانه في الاحصائيه النهائية يعتبرها يوم مستقل ويخرج ذلك الطالب منفردا عن بقية الطلاب ولا ويجمعها معهم في عدد الغياب ... وهذا جعلني اتفقد الاستعلامات التى عملتها مرارا وهذا متعب الحقيقة .. لاني ظننت انه خطأ في الاستعلامات ؟؟؟؟؟؟؟
  9. هل يعقل امتحان مادة في اكثر من يوم .............
  10. هل الاحصائية صحيحة بهذا الشكل سب البيانات المعطى ..................
  11. كما ذكرت لك هي استعلامات مخفية في هذا الاستعلام ....
  12. هل تريد ان افككها الى استعلامات يصبح معك 12 استعلام 😩 الان هي مدمجة في التقرير على شكل sql
  13. لاعادة جملة SQL الى استعلام اتبع التالي :::: من التقرير انسخ الجملة SQL انشأ استعلام جديد والصق الجملة فيه لاحظ الصور......
  14. تفضل المرفق بعد التعديلات <><><><><><><<><><><><><> Gyab%.accdb
  15. اولا حياك الله اخي الكريم ثانيا هل البرنامج لك ... اذا كان لك ... ارسل ملفك عند طريق رفعه في مواقع الرفع
  16. لم افهم عليك ... اذا كان الموضوع مختلف .. افتح موضوع جديد واشرح ما تريده بالتفصيل واشر الى هذا الموضوع
  17. راجع هذه النتيجة اولا لنتأكد منها .... طبعا هذه البيانات للفترة الاولى فقط
×
×
  • اضف...

Important Information