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

أبو امين

03 عضو مميز
  • Posts

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

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

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

  1. هل يمكن استعمال نفس المثال مع تقرير
  2. السلام عليكم : ما هو كود ماكرو ترتيب البيانات من الاكبر الى الاصغر او حسب الحروف الابجدية تنازلي او تصاعدي و يمكن الاسعاضة عن الماكرو بكود
  3. لي قاعدة بيانات تتكون من 40 نموذج . بطبيعة الحال لكل نموذج عدد معين من الازرار اريد التحكم في لون و شكل الازرار بالاعتماد على موديل عوضا عن التغيير اليدوي و ما يتطلبه من جهد
  4. حل بطريقة ثانية وجدته باحد المنتديات ربما يريد الاخوة استعماله المرفق : transaction.rar
  5. حسب طلب الاخ جعفر حماه الله هذا تفصيل المثال : مع العلم موجود مثال قاعدة بيانات بالمرفقات السلام عليكم و رحمة الله و بركاته : يتمثل المثال في شاشة بها عيابات تلميذ معين : اريد : اولا اريد طباعة مجموغ الغيابات حسب تاريخ معين المثال في المرفقات exemple.rar
  6. السلام عليكم و رحمة الله و بركاته : يتمثل المثال في شاشة بها عيابات تلميذ معين : اريد : اولا طباعة بطاقة دخول للفصل لتلميذ معين و حسب تاريخ معين مع العلم يجب ان تكون بطاقة الدخول على مقاس 58*40 ثانيا : اريد طباعة مجموغ غيابات تلميذ معين المثال في المرفقات بارك الله في اعمالكم exemple.rar
  7. ماهو كود التنقل بين خانات النصوص الموجودة بالنموذج باستعمال زرTab من لوحة المفاتيح
  8. استاذي الكريم ما شاء الله على نشاطك و مساعدتك للجميع
  9. مجرد سؤال لا اكثر هل يمكن ارسال تقارير معينة لبعض الاشخاص على الميسنجر في الفايس بوك و هل يمكن نشر بعض التدوينات من الاكسس الى الفايس بوك شكرا
  10. مثال جميل و اسهل من المثال بساطة الكود : لكن اضن اننا عندما نقوم بتغيير حجم النص في النموذج لا يتغير في التقرير حتى انني حاولت اضافة الكود لكن ثمت امر لم يستقم : هل بالامكان مراجعة المثال استاذي الكريم
  11. قبل اختبار المثال و تجربته اشكرك كثيرا لمرورك و تضحيتك بالجهد و الوقت للاجابة : ربي يعطيك الصحة و العافية و يصلح في ذريتك و يجعل اعمالك في ميزان حسناتك و جعلك منارة للخير و الحب و السلام و الصفاء
  12. هل يمكن اعداد هذ ا المثال مثل ما موجود بالصورة و المرفق مثال.rar
  13. الله الله عليك استاذي و شيخي العزيز : اخلاق و تربية و علم جعل اللع اعمالك في ميزان حسناتك و الله اعجز عن شكرك : ساعدتني كثيرا و سهلت عملي سهل الله عليك عملك و انار دربك و متعك بالصحة و العافية
  14. بالنسبة للطباعة : اردت تخصيص الطباعة حسب العدد ال تبي لكن لم استطع : رجاءا كيف يمكن التحكم في الاستعلام للتحكم في الطباعة حسب الرقم
  15. وضعت هذا الكود في موديل و استدعيته لكن لم يعطي اي اجابة : اظن انني اخطات في الاستدعا مع العلم انني استعملت المثال الموجود بالمنتدى '==============================================( MnthName) اسماء الشهور الهجرى - العربى( الميلادى) - الانجليزيى( الميلادى) - اختصارالانجليزيى( الميلادى) - القبطى - السريانى' ' .__ __. ___ .___ ___. _______ _______. ______ _______ .___________. __ __ _______ .___ ___. ______ .__ __. .___________. __ __ _______. ' | \ | | / \ | \/ | | ____| / | / __ \ | ____| | || | | | | ____| | \/ | / __ \ | \ | | | || | | | / | ' | \| | / ^ \ | \ / | | |__ | (----` | | | | | |__ `---| |----`| |__| | | |__ | \ / | | | | | | \| | `---| |----`| |__| | | (----` ' | . ` | / /_\ \ | |\/| | | __| \ \ | | | | | __| | | | __ | | __| | |\/| | | | | | | . ` | | | | __ | \ \ ' | |\ | / _____ \ | | | | | |____ .----) | | `--' | | | | | | | | | | |____ | | | | | `--' | | |\ | | | | | | | .----) | ' |__| \__| /__/ \__\ |__| |__| |_______||_______/ \______/ |__| |__| |__| |__| |_______| |__| |__| \______/ |__| \__| |__| |__| |__| |_______/ ' Public Function MnthName(ByVal dtAnyDate As Date, ByVal strLng As String) 'to call the Function 'To Hijri 'txtMonthNameHijri =MnthName(txtDate,"HJ") 'To Arabic 'txtMonthNameArabic =MnthName(txtDate,"Ar") 'To English 'txtMonthNameEnglish =MnthName(txtDate,"En") 'To English Short 'txtMonthNameEnglish =MnthName(txtDate,"EnShrt") 'To Coptic 'txtMonthNameCoptic =MnthName(txtDate,"Cpti") 'To Syriac 'txtMonthNameSyriac =MnthName(txtDate,"Syr") Dim str01 As String Dim str02 As String Dim str03 As String Dim str04 As String Dim str05 As String Dim str06 As String Dim str07 As String Dim Str08 As String Dim Str09 As String Dim Str10 As String Dim Str11 As String Dim Str12 As String If strLng = "HJ" Then str01 = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605") str02 = ChrW("1589") & ChrW("1601") & ChrW("1585") str03 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") str04 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") str05 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610") str06 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577") str07 = ChrW("1585") & ChrW("1580") & ChrW("1576") Str08 = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606") Str09 = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606") Str10 = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604") Str11 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577") Str12 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577") ElseIf strLng = "Ar" Then str01 = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585") str02 = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585") str03 = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587") str04 = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604") str05 = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608") str06 = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1577") str07 = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1577") Str08 = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587") Str09 = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585") Str10 = ChrW("1575") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585") Str11 = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585") Str12 = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585") ElseIf strLng = "En" Then str01 = "January" str02 = "February" str03 = "March" str04 = "April" str05 = "May" str06 = "June" str07 = "July" Str08 = "August" Str09 = "September" Str10 = "October" Str11 = "November" Str12 = "December" ElseIf strLng = "EnShrt" Then str01 = "Jan" str02 = "Feb" str03 = "Mar" str04 = "Apr" str05 = "May" str06 = "Jun" str07 = "Jul" Str08 = "Aug" Str09 = "Sep" Str10 = "Oct" Str11 = "Nov" Str12 = "Dec" ElseIf strLng = "Cpti" Then str01 = ChrW("1591") & ChrW("1608") & ChrW("1576") & ChrW("1577") str02 = ChrW("1571") & ChrW("1605") & ChrW("1588") & ChrW("1610") & ChrW("1585") str03 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1607") & ChrW("1575") & ChrW("1578") str04 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1608") & ChrW("1583") & ChrW("1577") str05 = ChrW("1576") & ChrW("1588") & ChrW("1606") & ChrW("1587") str06 = ChrW("1576") & ChrW("1572") & ChrW("1608") & ChrW("1606") & ChrW("1577") str07 = ChrW("1571") & ChrW("1576") & ChrW("1610") & ChrW("1576") Str08 = ChrW("1605") & ChrW("1587") & ChrW("1585") & ChrW("1609") Str09 = ChrW("1578") & ChrW("1608") & ChrW("1578") Str10 = ChrW("1576") & ChrW("1575") & ChrW("1576") & ChrW("1577") Str11 = ChrW("1607") & ChrW("1575") & ChrW("1578") & ChrW("1608") & ChrW("1585") Str12 = ChrW("1603") & ChrW("1610") & ChrW("1575") & ChrW("1607") & ChrW("1603") ElseIf strLng = "Syr" Then str01 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610") str02 = ChrW("1588") & ChrW("1576") & ChrW("1575") & ChrW("1591") str03 = ChrW("1570") & ChrW("1584") & ChrW("1575") & ChrW("1585") str04 = ChrW("1606") & ChrW("1610") & ChrW("1587") & ChrW("1575") & ChrW("1606") str05 = ChrW("1571") & ChrW("1610") & ChrW("1575") & ChrW("1585") str06 = ChrW("1581") & ChrW("1586") & ChrW("1610") & ChrW("1585") & ChrW("1575") & ChrW("1606") str07 = ChrW("1578") & ChrW("1605") & ChrW("1608") & ChrW("1586") Str08 = ChrW("1570") & ChrW("1576") Str09 = ChrW("1571") & ChrW("1610") & ChrW("1604") & ChrW("1608") & ChrW("1604") Str10 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") Str11 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610") Str12 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") End If MnthName = Choose(Format(dtAnyDate, "MM"), str01, str02, str03, str04, str05, str06, str07, Str08, Str09, Str10, Str11, Str12) End Function '----------------------------End-------------------------------------------------------------------------------------------
  16. المثال الذي وقع رفعه : يقوم بتسجيل نسخة ابوعيا كيف نستطيع تغييره ليسجل نسخة يوميا
  17. شكرا استاذي الكريم يكفي انك مررت من هنا و حاولت و هذا بحد ذاته جواب شكرا لك كثيرا على رحابة صدرك
  18. استاذي الكريم : هذا رابط المرفق https://drive.google.com/file/d/1dwvyA6y26oaRJ7ImOAJX2XGQDF_aTFN0/view?usp=share_link
  19. الجزء الثاني من المرفق : اعتذر لعدم التمكن من ارفاقه مجمعا : CalendarMaker.part2.rar
  20. السلام عليكم و رحمة الله و باركاته : استاذي الكريم : kkhalifa1960 استاذ و حبيب و صديق و معلم الكل صراحة بذل في المدة الاخيرة جهدا جبارا في مساعدة الجميع ضحى بوقته و صحته و راحته لحل اشكاليات المبتدئين بالمنتدى : لا يسعني الا ان اشكرك و ازيد من تعبك : هههه ليزيدك الله من خيره و بركاته مثالنا اليوم هو نموذج للتقويم اردت منذ مدة ان اضيف له بعض الحقول النصية لاستغلاله في المجال التربوي ما يسمى عندنا بتونس بالحصص النصف شهرية اي اسبوع : A و اسبوع B هذا المثال على ما اضن غربي من احد المواقع وهو مثال جيد للتقويم لكن لم استطع التغيير عليه المطلوب حقول نصوص او على الاقل مثال واحد يوضح كيفية الاضافة لاستكمل الباقي : اضافة حرف : A و حرف : B لكل الاسبوع مثلا : الاسبوع الاول A الاسبوع الثاني B و هكذا الى اخر السنة المثال موضح بالصورة و المرفق موجود ايضا بارك اللف فيك و بك و ربي يعطيك حجة البيت و انت في صحة و عافية المرفق الجزء الاول : CalendarMaker.part1.rar
  21. استاذ خليف بارك الله في اعمالك بك و معك دائما نتطور
×
×
  • اضف...

Important Information