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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    138

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

  1. كلام صحيح استاذي @Foksh حاولت اجد طريقة لعرضها مباشرة .. لم اتوصل اليها ... جاري المحاولة ... طيب لو كان عرض الصورة في متصفح مدرج في النموذج مناسب لعملك ... لاني لم اجربها هل تنجح ام لا ...
  2. تفضل ................... tah.accdb
  3. وعليكم السلام أخي @Foksh هذا الملف يفيدك kan.accdb
  4. نعم ........ تفضل tah.accdb
  5. مشاركة مع اخي الفاضل @kkhalifa1960 التعديل::::: عدم اختيار خمس مواد واذا تم الاختيار يقوم البرنامج بمسح اخر اختيار حفظ الاختيارات في الجدول عند فتح النموذج مرة اخرى تجد نفس الاختيارات موجود ( للتعديل - الالغاء - الاضافة ) في نفس الليست بوكس تعديل التقرير حسب اسم الطالب انظر الصورة ..... tah.accdb
  6. جزاك الله خير استاذي القدير @ابوخليل جاري التجربة .... بارك الله فيك
  7. مبارك اخي الاستاذ @محمد احمد لطفى تستاهل ... اعانك الله على هذا اللقب ...
  8. ممكن ايقاف عمل السطر .... Private Sub AT_cmd_Click() 'CurrentDb.Execute ("Delete * From test_order_tbl") Me.selected_list.Requery Me.testlist.RowSourceType = "Table/Query" Me.main_title.Caption = "All Tests" ref = "" low = "" high = "" Me.S1 = Null Me.S1.Enabled = False Me.testlist.ColumnCount = 5 Me.testlist.ColumnWidths = "0;1;0;0;0" Me.testlist.RowSource = "qryAllTest" Me.testlist.Requery Me.testlist.OnDblClick = "=Old_Function()" End Sub
  9. يمكن طرح ما تبقى من اسئلة تخص هذا الموضوع هنا ..... ليتم الاجابة عليها من اعضاء المنتدى المتواجدين .... مع شرح وافي للمطلوب <><><><><><><>
  10. طيب <><><><><><> اكيد مع عمل البرنامج تظهر عبارات اخرى ..... على العموم اضفت مصفوفة يمكن من خلالها اضافة عبارات اخرى Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) myT = Array("مدام", "عبارة1", "عبارة2") For Each t In myT If t = ComboBox1.Value Then TT = t: Exit For End If Next t If ComboBox1.Value = TT Or lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub
  11. تفضلي <><><><><><> Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) If lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub
  12. ما هو البرنامج بيعطي نفس عدد التحاليل المختارة ( المعلم عليها فقط) لاحظ الصورة انا اختار تحليل واحد وبيظهر عندي سجلين المختارة فقط ..... بالمناسبة يجب تفريغ الجدول test_order_tbl في كل مرة حتى لا يكرر السجلات الملحقة بها
  13. حسب الاحصاء النظري هو نفس العدد انظري الصور التالية
  14. ولكن كيف لي ان اعرف ملهو الكود المستخدم لذلك النقل ........ نظام اقساط .... يجب وضع كل ما يخص العمل حتى نستطيع الحل !!!!!! ليس في المرفق الكود الخاص بالنقل .... لا استطيع التنبؤ بالية النقل المستخدمة في برنامجك ....
  15. في حدث الزر P استخدمي هذا <><><><> Me.main_title.Caption = "panle" Me.S1 = Null Me.S1.Enabled = False Me.testlist.ColumnCount = 2 Me.testlist.ColumnWidths = "5;0" Me.testlist.RowSource = " SELECT DISTINCT test_tbl.sub FROM test_tbl GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode HAVING (((test_tbl.sub) Like ""*"" & [Forms]![reservation_frm]![S1]) AND ((test_tbl.add_group)=True)) ORDER BY test_tbl.sub;" Me.testlist.Requery Me.testlist.OnDblClick = "=panle_Function()"
  16. كيف يتم التصفية في الاستعلام لايوجد ما يدل على الاختيار من النموذج اين هذا العنصر في النموذج ؟؟؟؟؟
×
×
  • اضف...

Important Information