أبو امين

هل يمكن استعمال نفس المثال مع تقرير 

يعطيك العافية اخينا 

السلام عليكم : ما هو كود ماكرو ترتيب البيانات من الاكبر الى الاصغر او حسب الحروف الابجدية تنازلي او تصاعدي 

و يمكن الاسعاضة عن الماكرو بكود 

لي قاعدة بيانات تتكون من 40 نموذج . بطبيعة الحال لكل نموذج عدد معين من الازرار  

اريد التحكم في لون و شكل الازرار بالاعتماد على موديل   عوضا عن التغيير اليدوي و ما يتطلبه من جهد 

حل بطريقة ثانية وجدته باحد المنتديات ربما يريد الاخوة استعماله 

المرفق : transaction.rar

حسب طلب الاخ جعفر حماه الله هذا تفصيل المثال : مع العلم موجود مثال قاعدة بيانات بالمرفقات 

السلام عليكم و رحمة الله و بركاته : 

يتمثل المثال في شاشة بها عيابات تلميذ معين : 

اريد : 

اولا اريد طباعة مجموغ الغيابات حسب تاريخ معين 

المثال في المرفقات 

exemple.rar

Up

للرفع رفع الله عنك البلاء 

السلام عليكم و رحمة الله و بركاته : 

يتمثل المثال في شاشة بها عيابات تلميذ معين : 

اريد : 

اولا طباعة بطاقة دخول للفصل لتلميذ معين و حسب تاريخ معين مع العلم يجب ان تكون بطاقة الدخول على مقاس 58*40

ثانيا : اريد طباعة مجموغ غيابات تلميذ معين 

المثال في المرفقات 

بارك الله في اعمالكم 

exemple.rar

ماهو كود التنقل بين خانات النصوص الموجودة بالنموذج باستعمال زرTab من لوحة المفاتيح

في 20‏/5‏/2023 at 09:10, دروب مبرمج said:

نفس الكود طبقه على التقارير

تفضل هذا مثال

 

مثال.accdb 984 kB · 3 downloads

4 ساعات مضت, kkhalifa1960 said:

تفضل أخي .

واذا كان هذا لا تنسى الضغط على أفضل اجابة .

مذكرة تعميم داخلي.rar 135.16 kB · 7 downloads

استاذي الكريم ما شاء الله على نشاطك و مساعدتك للجميع

مجرد سؤال لا اكثر   

هل يمكن ارسال تقارير معينة لبعض الاشخاص على الميسنجر في الفايس بوك 

و هل يمكن نشر بعض التدوينات من الاكسس الى الفايس بوك 

شكرا 

يرحم والديك يا استاذ يا باهي شكرا شكرا شكرا 

مثال جميل و اسهل من المثال بساطة الكود : 

لكن اضن اننا عندما نقوم بتغيير حجم النص في النموذج لا يتغير في التقرير حتى انني حاولت اضافة الكود لكن ثمت امر لم يستقم : 

هل بالامكان مراجعة المثال استاذي الكريم 

قبل اختبار المثال و تجربته اشكرك كثيرا لمرورك و تضحيتك بالجهد و الوقت للاجابة : ربي يعطيك الصحة و العافية و يصلح في ذريتك و يجعل اعمالك في ميزان حسناتك و جعلك منارة للخير و الحب و السلام و الصفاء 

هل يمكن اعداد هذ

ا المثال مثل ما موجود بالصورة و المرفق 

مثال.rar

الله الله عليك استاذي و شيخي العزيز : اخلاق و تربية و علم 

جعل اللع اعمالك في ميزان حسناتك و الله اعجز عن شكرك : ساعدتني كثيرا و سهلت عملي سهل الله عليك عملك و انار دربك و متعك بالصحة و العافية 

بالنسبة للطباعة : اردت تخصيص الطباعة حسب العدد ال تبي لكن لم استطع : 

رجاءا كيف يمكن التحكم في الاستعلام للتحكم في الطباعة حسب الرقم 

وضعت هذا الكود في موديل و استدعيته لكن لم يعطي اي اجابة : اظن انني اخطات في الاستدعا مع العلم انني استعملت المثال الموجود بالمنتدى

'==============================================( 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-------------------------------------------------------------------------------------------

المثال الذي وقع رفعه : يقوم بتسجيل نسخة ابوعيا 

كيف نستطيع تغييره ليسجل نسخة يوميا 

شكرا استاذي الكريم يكفي انك مررت من هنا و حاولت و هذا بحد ذاته جواب شكرا لك كثيرا على رحابة صدرك 

استاذي الكريم : هذا رابط المرفق 

https://drive.google.com/file/d/1dwvyA6y26oaRJ7ImOAJX2XGQDF_aTFN0/view?usp=share_link

الجزء الثاني من المرفق : اعتذر لعدم التمكن من ارفاقه مجمعا : 

CalendarMaker.part2.rar

السلام عليكم و رحمة الله و باركاته : 

استاذي الكريم : kkhalifa1960

استاذ و حبيب و صديق و معلم الكل صراحة بذل في المدة الاخيرة جهدا جبارا في مساعدة الجميع ضحى بوقته و صحته و راحته لحل اشكاليات المبتدئين بالمنتدى : لا يسعني الا ان اشكرك 

و ازيد من تعبك : هههه 

ليزيدك الله من خيره و بركاته 

مثالنا اليوم هو نموذج للتقويم اردت منذ مدة ان اضيف له بعض الحقول النصية لاستغلاله في المجال التربوي ما يسمى عندنا بتونس بالحصص النصف شهرية اي اسبوع : A  و اسبوع  B 

هذا المثال على ما اضن غربي من احد المواقع وهو مثال جيد للتقويم لكن لم استطع التغيير عليه 

المطلوب  حقول نصوص او على الاقل مثال واحد يوضح كيفية الاضافة لاستكمل الباقي : 

اضافة حرف : A 

و حرف : B 

لكل  الاسبوع  مثلا : 

الاسبوع الاول  A 

الاسبوع الثاني  B 

 و هكذا الى اخر السنة 

المثال موضح بالصورة 

و المرفق موجود ايضا 

بارك اللف فيك و بك و ربي يعطيك حجة البيت و انت في صحة و عافية 

المرفق  الجزء الاول : 

CalendarMaker.part1.rar

استاذ خليف بارك الله في اعمالك بك و معك دائما نتطور