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

ابوخليل

أوفيسنا
  • Posts

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

  • Days Won

    238

كل منشورات العضو ابوخليل

  1. وذات التاريخ الاحدث لا ينطبق عليها الشرط
  2. الموظف لا تنطبق عليه الشروط فالمعيار الموجود هو Between -5 And 6 بينما القيمة عند الموظف المذكور 10-
  3. انا ذكرت لك وجوب استبعاد الحقول ذات القيم المتباينة وفي حال ان الحاجة تدعو الى ادراج هذه الحقول فيمكن في مسألتنا هذه استخدام القيمة last للحقول الاخرى لا حظ انه يمكننا ايضا استخدم last لحقل التاريخ بينما العكس غير صحيح للحقلين الآخرين test3.rar
  4. اختر في حقل التاريخ القيمة max بدلا من group by ايضا لا بد من استبعاد الحقول التي يوجد فيها قيم متباينة ويمكنك جلب التاريخ الاحدث باستخدام الدالة Dmax بمعلومية المعرف مثلا
  5. عودا حميدا سيد جمال ونحمد الله على سلامتك ورجوعك لاحضان المنتدى مرحا مرحا والعود احمد خاصة بعد تحول المارد الى سيد الجمال
  6. ارفق مثالك حتى يتمكن اخوانك من مساعدتك
  7. اعمل تقرير فرعي داخل التقرير الرئيسي ، ويمكن ان تضع داخل التقرير نموذج فرعي ايضا
  8. عودا حميدا ابا آدم ... اشتقنا لك كثيرا ننتظر بوح قلمك وجميل عباراتك ونبض حرفك في هذا البستان ورحيق افكارك الجميلة التي ستعطر المكان كل اقسام الموقع تردد حياك الله أبا آدم
  9. الملف كامل غير مطلوب فقط انزع النموذجين والجدولين من برنامجك واجعلهما في قاعدة جديدة ثم ارفقهما بعد الضغط
  10. وايضا هذا الرابط في هذا الباب
  11. السلام عليكم اخونا الشمال يريد الترقيم عند الطباعة فقط وليس عند المعاينة اظن ان الكود سليم مافيه شي هل هذا صحيح ؟
  12. يامرحبـا عـد النجــــــوم بسمانـا ومع جيتــــك عـم الفـرح منتدانـا
  13. جزاك الله خيرا ابا عبدالله وهذا كود للجمع يختلف قليلا والنتيجة واحدة Expr2: (Sum([expr1])\60 & Format(Sum([expr1]) Mod 60;"\:00")) جمع تأخر الحضور.rar
  14. صح يابوعبدالله جبتها الله يقويك طبق ونحن معك ولك الاجر من الله وتجربتي السابقة عند تشغيل البرنامج على جهاز لم يتم اعداد العربية فيه تظهر التسميات بلغة غير مفهومة ولا تظهر رسائل ، وهنا يفهم المستخدم ان جهازه لم يدعم العربية بعد وعند اعداد اللغة العربية وندز هو من يقوم بالتحويل او التغيير
  15. اربط العلاقة بين الجدولين رأس لاطراف واضبط الخصائص في العلاقة على التكامل المرجعي وتتالي حذف السجلات المرتبطة فحين تحذف السجل من الجدول الرئيس يتم حذف السجلات الفرعية تبعا
  16. جعلنا اسم المستخدم في متغير عام ويتم جلبه عند فتح النموذج وعند الضغط على زر جديد ب2.rar
  17. لايتم الجمع بهذه الطريقة وانما يتم استخراج الفارق بالدقائق ثم تتم معالجة مجموع الدقائق الكلي وتحويلها الى ساعات ودقائق
  18. الحل : ان تعمل على نسخة اوفيس english فلو فرضنا ان نسخة الوندز انجليزية ايضا ، فيمكنك كتابة التسميات بحروف عربية ولكن عند العرض والتشغيل ستظهر بحروف غير مفهومة ، حتى تغير اعدادات اللغة الى العربية يعني ان الرسالة المذكورة ستختفي ولن تراها ستسأل ؟ كيف اكتب بحروف عربية والوندز والاوفيس اجليزي ؟ الجواب : انه يمكنك ذلك ، وندز يوفر ذلك من خلال خصائص لوحة المفاتيح
  19. If IsNull(Me.date_from) Or IsNull(Me.date_to) Then Exit Sub Me.da.SetFocus Me.da.Text = CalcAgeD(Me.date_from, Me.date_to) Me.mo.SetFocus Me.mo.Text = CalcAgeM(Me.date_from, Me.date_to) Me.ye.SetFocus Me.ye.Text = CalcAgeY(Me.date_from, Me.date_to) هذه الاسطر الموجودة في النموذج والخاصة باستخراج العمر (الفارق بين تاريخين ) ضعها في حدث الحالي للنموذج فحدث الحالي يقوم بالتغيير عند التنقل بين السجلات
  20. الامر يسير ويجب انك تحاول حتى تستفيد فقط انسخ كود المربع الاول للمربع الثاني وغير ما يلزم Prog.1003.rar
  21. تفضل وآمل ان يكون هو بغيتك Private Sub Text0_Click() Text0 = Text0.Name End Sub db2016x.rar
  22. لا يمكنني فتح المرفق .. لا املك في جهازي الا الاصدار2003
  23. تفضل طريقة ارى انها افضل من الكتابة فقط حيث يمكنك الاختيار او الكتابة للبحث عن المفردة Prog.1002.rar
  24. احفظ المرفق على صيغة mdb
  25. وهذا مثال آخر Private Sub co1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & Str(Nz(Me![co1], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub مربع تحرير.rar
×
×
  • اضف...

Important Information