اذهب الي المحتوي
أوفيسنا

ابوصلاح

04 عضو فضي
  • Posts

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

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

كل منشورات العضو ابوصلاح

  1. السلام عليكم ورحمة الله وبركاته في قاعدة البيانات اكسس 2013 كنت اريد تحويلها الي sql (تصدير ) لكن ايقونة sql server في ادارة قاعدة البيانات غير موجودة
  2. اريد كود بحث من نموذج رئيسي في نموذج فرعي من خلال قائمة منسدلة بحث بالريكورد ست.rar
  3. شكرا جزيلا اخي الفلاحجي علي سرعة الاستجابة بس النت مش عارف ايه حكايته بطئ جدا ولم استطع احمل المرفق وتم نسخ الكود وجربته والحمد لله تماما وكنت عاوز اشوف حل اخي obaid70 ولم اتمكن من ذلك لكن شكرا جزيلا علي المشاركة وبارك الله فيكم جميعا
  4. السلام عليكم ورحمة الله وبركاته في هذا المرفق وهو عبارة عن برنامج للموظفين به فورم ادخال وتعديل البيانات من خلال النموذج انتقل الي نموذج اخر هو نموذج الدرجات اريد عندما اضيف درجة جديدة للموظف يتم التحديف في جدول البيانات المسمي (tbl_bianat_mfrd)من جدول (tbl_daragass) يتم التحديث بشرط التاريخ الحديث انا عملت تحديث بدالة first لكنها لم تنجح معي وتعطيني تحديث لموظف واحد اي يتم التحديث من السجل الاول لكن لموظف واحد اما الموظف الثاني لا يتم التحديث برنامج العاملين.rar
  5. السلام عليكم ورحمة الله وبركات اغزاء ورفاء المنتدي اريد تصميم غياب بحيث يكون التاريخ افي ولي راسي كمثال الصورة وايضا استطيع التحكم في اظهار او اخفاء ايام معينة طبعا ان بحثت لكن لم اجد طلبي وتعبت من العمل في الملف كشف غياب.rar
  6. دكاف يار بارك الله فيك نحن من نعتذر لك من سوء التوضيح شكرا هو المطلوب
  7. د يار كاف الترقيم لنفس اليوم يكون موحد 1 1 1 اليوم التالي مثلا 2 2 2 الثالث 4 4 4 وهكذا
  8. شكرا اخي كاف يار لكن ما اريده طالما نفس اليوم يكون الترقيم موحد كما هو بالجدول المرفق
  9. السلام عليكم ورحة الله وبركاته في المرفق اريد ترقيم حسب الشهر في الجدول من خلال نموذج الترقيم في حقل m لكل شهر بحيث عند اختيار تاريخ يبدا الترقيم لنهاية الشهر وعند شهر جديد يبدا ترقيم جديد من رقم 1 لكن في حالة اختيار نفس اليوم مثال "(انا اختر تاريخ 1/1/2020ثم اخترت مرة اخري 1/1/2020 يكون نفس الرقم ) ترقيم حسب الشهر.rar
  10. هو تم التوزيع لكن على العمود الأول فقط لكن المطلوب التوزيع على الاربع اعمده في اللست بوكس
  11. لكن البيانات كلها تاتي في العمود الاول فقط انا عاوز كل مربع نص يكون في عمود في مربع القائمة
  12. شكرا اخي husamwahab علي سرعة الاستجابة اريد الطلب بهذا الشكل بحيث استطيع جمع المبلغ في مربع النص في الاسفل
  13. تم التعديل ليكون الكود كالاتي On Error GoTo Err: Dim mySQL As String Dim rst As Recordset Dim i As Double, J As Double If IsNull([cbo_saf]) Then MsgBox "ÇÎÊÑ ÇáÕÝ ÇæáÇ", vbCritical, "ÇæÝíÓäÇ" Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));" DoCmd.SetWarnings True mySQL = "Select * From emthan_tbl_bianat" mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'" mySQL = mySQL & " ORDER BY golos1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst ' For J = 1 To Me.count_legan For J = num_lagna To Nz(DMax("[lagna]", "emthan_tbl_bianat"), 0) + Me.count_legan For i = 1 To Me.kk rst.Edit rst![lagna] = J rst.Update rst.MoveNext Next Next Me.Requery End If Err: If Err.Number = 3121 Then Else End If
  14. اختار الصف ومن ثم احدد رقم اللجنه عدد اللجان
  15. قام الاخد المبدع محمد عبد الله بعمل كود لتوزيع اللجان علي التلاميذ وهو المطلوب ويعمل الكود بشكل جيد لكن اتضح لي انني بحاجة الي ان يكون ادخال اللجنة بشكل ديناميكي لانه في المرفق تضع عدد اللجان ويقوم البرنامج بالتوزيع من من رقم لجنة 1 الي العدد المحدد ببساطة مثلا اريد ادخال ثلاث لجان للصف الرابع واريد ان يقوم البرنامج يبد من لجنة 4 On Error GoTo Err: Dim mySQL As String Dim rst As Recordset Dim i As Double, J As Double If IsNull([cbo_saf]) Then MsgBox "اختر الصف اولا", vbCritical, "اوفيسنا" Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));" DoCmd.SetWarnings True mySQL = "Select * From emthan_tbl_bianat" mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'" mySQL = mySQL & " ORDER BY golos1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For J = 1 To Me.count_legan For i = 1 To Me.kk rst.Edit rst![lagna] = J rst.Update rst.MoveNext Next Next Me.Requery End If Err: If Err.Number = 3121 Then Else End If توزيع اللجان علي الطلبة.rar
  16. اخي محمد عبد الله عمل ممتاز بارك الله فيك لكن علي فرض اريد ان يبدا اللجنة مش من رقم واحد لا من ثلاثة بمعني لجنة (3 ) لجنة (4)وشكرا
  17. الفكره ربما تكون غير موضحه جيدا هو وضع رقم اللجنه في عمود اللجنه حسب العدد الصف الرابع ٤ لجان وعدد الصف الرابع ١٠٠ تكون كل لجنه ٢٥ طالب توضع في عمود اللجنه وشكرا
  18. السلام عليكم لدي مرفق اريد فيه عمل لجان لكل صف حسب اللجان المطلوبة في مربع النص بحيث اكتب 4 لجان مثلا يقوم اكسس بوضع اللجنة 1 و2 الخ .... في المرفق يتضح الامر توزيع اللجان علي الطلبة.rar
  19. محمد البرناوي انا اخطات معذرة الكود صحيح ويعمل بشكل جيد شكرا اخي محمد بارك الله فيك
  20. استاذ محمد البرناوي طبتم بخير نفس المشكلة في جزء ناقص من الكود هو اننا بنحدد المسار وبعد ذلك نحدد اسم الجدول او نستخلصه من المسار الذي تم جلبه
  21. السلام عليكة ورحمة الله في هذا المرفق يتم ترحيل البيانات الي جدول خارجي وهو يعمل تماما لكن المشكلة في مسار الملف اردت ان يكون ديناميكي بحيث لو تم نقل قاعدة المبيانات تظهر الملفات لكي اختار منها مكان الملف حاولت التطبيق من عدة امثلة دون جدوي المطلوب عند الضغط علي زر الترحيل لابد من المطالبة باختيار مكان الملف وشكرا البرنامج.rar
×
×
  • اضف...

Important Information