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

ابوصلاح

04 عضو فضي
  • Content Count

    561
  • تاريخ الانضمام

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

السمعه بالموقع

50 Excellent

1 متابع

عن العضو ابوصلاح

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم لغة عربية
  • الإهتمامات
    قال صلى الله عليه وسلم: « أحب الناس إلى الله أنفعهم للناس ، وأحب الأعمال إلى الله عز وجل سرور يدخله على مسلم ، أو يكشف عنه كربه أو يقضي عنه ديناً أو يطرد عنه جوعاً ، ولأن أمشي مع أخ في حاجه أحب إليَّ من أن أعتكف في هذا المسجد - مسجد المدينة - شهراً ومن كف غضبه ستر الله عورته ، ومن كتم غيظه ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رجاءً يوم القيامة ومن مشى مع أخيه في حاجة حتى تهيأ له أثبت الله قدمه يوم تزول الأقدام .. » صححه الألباني الأحاديث الصحيحة رقم (906).

اخر الزوار

1,327 زياره للملف الشخصي
  1. شاكرين جدا بارك الله فيك وفي ذريتك
  2. طيب شكرا لكما علي الاستجابة استاذ صالح ما الذي قمت به حتى نتعلم
  3. قائمة فصل منقسمة علي جاني الورقة.rar باختصار الشكل كما تري عنوان اللي هو موجود في راس الصفحة ظاهر الجزء الايمن دون الايسر
  4. الاستاذ سليم حاصبيا شرف لنا مشاركتك لكن قمت بالتجربة اعطت خطا ايضا قمت باستخدام دالة index match وايضا تعطي خطا انا في انتظار التعديل شكرا
  5. اخى احمدزمان عودا كريما وحل جميلا بارك الله فيك وفي ذريتك لكن في نهاية دالة ( INDEX(Data_001;0;1) المقصود برقم الصف ورقم العمود في دالة index بحث اعرف الربط بين عمل الدالة مع النطاق او شرح مبسط
  6. السلام عليكم ورحمة الله وبركاته في هذا المثال اريد جلب بيانات المرتب بعدة شروط المدرسة وشرط الجملة وشرط البيان جلب البيانات بشروط افقية وراسية.rar
  7. اخي حسين بارك الله فيك انا لست بصدد دالة select case فهي سهلة لا تحتاج الي شرح لكن هناك بعض الاشياء او الدوال مثلا rst.MoveLast rst.MoveFirst Do Until rst.EOF هنا حدد move last ثم move first لماذا لم يحدد مباشرا move first ثم وضع بعد ذلك rst.EOF ما هو عمل الدالة eof هل هو ارجاع false عندما لا يتحقق الشرط اما غير ذلك
  8. شكرا اخي طلب اكسس لكن اولا انا لم اقل شي خارج عن الاخلاق ثم ان استشهادك بالبيت هو الاغرب لاني لم اخرج عن الذوق العام اما الغريب ان تكون كلمة فاحشة او عيب او عيب في شخص او في كلمة جارحه انني لم اقصد بها اي اساءة من اي نوع فهذا السرح منتدى اوفيسنا هو بيتنا جميعا وكلنا اخوة فيه ندخل ونسال ونتعلم وكلهم اناس علماء لا يبخلون علينا بشي يا سيدي ما هي الا مزحة لشد الانتباه فقط ثم انك ردك هذا هو الذي يعتبر اهانة شكرا طلب اكسس
  9. Option Compare Database Private Sub أمر30_Click() Dim DB As DAO.Database Dim rst As Recordset Set DB = CurrentDb Dim OldClass As String Dim NewClass As String Set rst = DB.OpenRecordset("select * from tbl_studen where keed='منقول' And Yes_No=true ORDER BY id_stu") rst.MoveLast rst.MoveFirst Do Until rst.EOF OldClass = rst!saf Select Case OldClass Case "الأول" NewClass = "الثاني" Case "الثاني" NewClass = "الثالث" Case "الثالث" NewClass = "الرابع" Case "الرابع" NewClass = "الخامس" Case "الخامس" NewClass = "السادس" Case "السادس" NewClass = "السابع" End Select rst.Edit rst!saf = NewClass rst.Update rst.MoveNext Loop Set DB = Nothing Set rst = Nothing Form.Requery End Sub الرجاء شرح الكود او الاجزاء المهمة مثل rst .movelast rst.move.first do until rst.eof
×
×
  • اضف...