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

متقاعد

الخبراء
  • Posts

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

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

  • Days Won

    25

متقاعد last won the day on أبريل 28 2023

متقاعد had the most liked content!

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

797 Excellent

8 متابعين

عن العضو متقاعد

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

  • Gender (Ar)
    ذكر
  • Job Title
    مبرمج متقاعد

اخر الزوار

4,345 زياره للملف الشخصي
  1. اعتقد ان هناك سوء فهم وعبارة مجرد سؤال تمت صياغته باسلوب المثل يا اخي اتق الله تصف رجل ربما يكون في سن والدك بانه قليل الذوق !! لا حول ولاقوة الا بالله
  2. مع اني ربما لم افهم المطلوب ولكني ساحاول ممكن نعمل اجراء Sub k() Dim a As Byte Dim n, m As String For a = 1 To Len(ActiveControl.Name) n = Mid(ActiveControl.Name, a, 1) Select Case n Case "0" To 9 m = m & n End Select Next a Me.textbox1 = m End Sub ثم في كل زر امر نستدعي الاجراء بالشكل التالي k طبعا هذا الاستداء لايؤثر على اي اوامر في الازار هذا الرد مجرد تحفيز للاساتذة لتقديم حلول افضل الملف في المرفقات New Microsoft Access قاعدة بيانات).accdb
  3. ردي فقط على ☝️ تحتاج اظهارها شاهد الصورة
  4. لم اتحدث عن طريقة ثانية قلت واقصد انه لو كان زر الامر في النموذج الرئيسي لما احتجنا الى كتابة المسار الكامل للحقول في الرئيسي rs!serial = Forms![TEST1]![serial] تكون rs!serial = meserial وايضا ممكن الاستعانه بمتغيرات وهكذا من حيث الترتيب تحياتي
  5. ليتك تضع الطريقة لتعم الفائدة الصحيح توظيفها قالت العامة يا من شرى له من حلاله علة عملت مصحح املائي ليسهل على الكتابة ولكنه يحتاج الى مصحح
  6. في زر الامر ضع التالي Dim x As Date Dim a As Integer Dim rs As DAO.Recordset x = Forms![TEST1]![Date_M] Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberEnd] - 1 To Forms![TEST1]![NumberStart] - 1 rs.AddNew rs!date1 = x rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 x = DateAdd("d", Forms![TEST1]![ChooseDayes], x) rs.Update Next a rs.Close Set rs = Nothing Me.Requery لو تلاحظ اني لم اغير في طريقتك هو تقريبا نفس كودك ولكن يتعامل مع مصدر السجلات مع انه يمكن كتابته بشكل افضل ولكني استخدمت طريقتك لايصال المعلومة بشكل اسهل تحياتي
  7. اخيرا للانتهاء من هذا الموضوع اود ان اشير الى دالة Choose وهي تقوم بارجاع قيمة من عدة قيم بناء الفهرس ويمكن توضيفها في هذه المثال عن طريق نمطية بسيطة يتم استخدامها في الاستعلام k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52) ويمكن كتابتها على النحو التالي Public Function std(id As Integer) Dim rst As DAO.Recordset Dim x As Integer Dim k As Integer Set rst = CurrentDb.OpenRecordset("Select * From [q_1] Where [id]= " & id) x = rst.Fields("عدد الفصول الفعلي") k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52) std = k rst.Close End Function ولكن لابد من التأكد من امرين صحة ترتيب البيانات في الفهرس للحصول على القيمة الصحيحة اذا كان الفهرس اقل من 1 او اكبر من عدد الاحتمالات المدرجة سوف تعود الدالة بنتيجة فارغ وفي هذا المثال لدينا 40 احتمال وفقا لصورة الجدول في اول مشاركة وبالتالي لايمكن ان يكون الفهرس اكبر من 40 نصيحتي في هذه الحالة استخدام جدول وعمل علاقة بدون الحاجة الي دوال كما اشرت في اول مشاركة لي في الموضوع الملف مرفق و اكتفي بهذا القدر تحياتي ‏‏برنامج الاحتياج1.accdb
  8. بالتوفيق اخي على كل حال في حالات كثير لو عرفنا اليه العمل بشكل صحيح نستطيع الوصول للنتيجة بدون الحاجة الى كتابة الكثير من الاكواد او ادخال معلومات يمكن الحصول عليها بشكل الي على سبيل المثال جدول رواتب الموظفين المدنيين يتكون من 260 درجة للمراتب من 1 الى 15 ولكننا لسنا بحاجة لكتابة هذه الدرجات الـ 260 وانما نكتفي فقط بكتابة ال 15 الاولى منها و 15 اخرى للعلاوة السنوية ويتم توليد البقية بشكل آالي تحياتي
  9. اعمل وحدة نمطية واستخدم Select Case واحرص دائما على وجود مفتاح اساسي في الجدول الملف مرفق وقم بمراجعته لاني كتبته بشكل سريع ولم اراجعه لا نشغالي النتيجة في استعلام qq تحياتي ‏‏برنامج الاحتياج.accdb
  10. توجد طريقة اسهل يا استاذ موسى نعمل جدول جديد نضع فيه النسب التي اشار اليها ثم نعمل علاقة في الاستعلام ولا حاجة لكتابة اكواد او استخدام دوال وحتى لو تغييرت النسبة فقط نعدل في الجدول الملف مرفق ‏‏برنامج الاحتياج.accdb
  11. ماتشوف شر استاذ خليفة نسأل الله ان يشفيك ويشفي كل مريض
  12. الاخوان الي مافتح معهم الملف بسبب استخدام حقل من نوع رقم كبير حيث يتطلب الاصدار 2016 النسخة 16.0.7812 أو الإصدار الأحدث
  13. نعم ممكن بعد السطر الخامس او السادس نضع الامر التالي المهم انه يكود داخل الحلقة التكرارية ctl.FontName = "tahoma" ctl.FontSize = 10 ويمكن تغيير نوع الخط والحجم وفقا لما تريد مع ذلك الافضل ان يكون التحكم من خلال نموذج للقيم الثابته حيث يمكن لكل مستخدم اختيار الستايل المناسب له وسوف احاول ان اضع مثال لذلك انظر للصورة المرفقة ربما تتضح فكرة نموذج القيمة التي اشرت اليها
  14. مرفق مثال بسيط لمن يرغب في الاطلاع اخيرا ممكن وهو الافضل ان يكون التحكم بستايل البرنامج عن طريق جدول للقيم الثابتة ونموذج يختار منه المستخدم الستايل المطلوب مثلا نثوم بتجهيز ستايل فاتح وستايل قاتم .. الخ ولكن هذا موضوع اخر تخياتي واكتفي بهذا القدر Database20.accdb
×
×
  • اضف...

Important Information