سؤال : ظهور اسم اليوم الحالى تلقائيا فى التقارير

[ابو جودي]

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

هل يمكن ظهور اليوم فى التقرير بمجرد فتح التقرير
التاريخ اعرف الكود الخاص به

()Date=

ولكن اليوم هل له كود خاص

انا اريد لو فتح القاعده وقمت بمعالجة بعد البيانات
اريد عند فتح التقرير للمعاينه يظهر اسم اليوم تلقائيا ليظهر فى الطباعه
فان كان اليوم الثلاثاء يظهر الثلاثاء  وان كان الاربعاء يظهر الاربعاء دون اى تدخل منى هل يمكن ذلك

جزاكم الله خيرا     

[Elsayed Bn Gemy]

fldDay: Format([fldDate];"dddd")

fldDate هو حقل التاريخ

fldDay  هو الحقل الذي تريد عرض اسم اليوم فيه

[Elsayed Bn Gemy]

او ممكن تضيف مربع النص اللى عاوز يظهر فيه اليوم وتخلى تنسيقه dddd

وتخلى مصدر بياناته

هو حقل التاريخ

[jjafferr]

وعليكم السلام

 

هو الحل كما تفضل به الاخ مارد 

 

ولكن ،

اذا كان نظام الوندوز عندك انجليزي وارت ان تكتب اسم اليوم او الشهر بالعربي ، فهذا يحتاج الى عمل اضافي 

 

انا عندي جدول اسمه tbl_Months وبه اسماء الاشهر الهجرية ، والاشهر الانجليزية بالانجليزي والعربي ، والاشهر العراقية (الشامية) ،

واضفت اليه الايام كذلك:

 

 

 

وعليه ، عملت كود يقرأ اذا نظام الوندوز ، وعلى اساسه تستطيع ان تطلب اليوم ، كما في هذا النموذج (ادخل / اختر التاريخ ، ثم اضغط على مفتاح TAB على keyboard) ، وعلى اساسه سترى بقية الاسماء باللغة الاخرى:

 

 

 

وهذا هو الكود الذي يقوم بكل شئ:

Private Sub myDate_AfterUpdate()

    'display the dates based on the system setting
    Me.Date_1 = Format(Me.myDate, "dddd dd/mm/yyyy")
    Me.Date_2 = Format(Me.myDate, "dddd dd, mmm yyyy")
    Me.Day_System = Format(Me.myDate, "dddd")
    Me.Month_System = Format(Me.myDate, "mmmm")
    
    
    'read the 1st letter of the day, and check if it is Arabic or latin
    If Left(Asc(Format(Me.myDate, "dddd")), 1) > 127 Then
        
        'the system is Arabic
        'get the English info from the table
        
        Me.Day_table = DLookup("[Days_English]", "tbl_Months", "[Days_Arabic]='" & Format(Me.myDate, "dddd") & "'")
        Me.Date_3 = Me.Day_table & Format(Me.myDate, " dd/mm/yyyy")
        
        Me.Month_Table = DLookup("[Months_English]", "tbl_Months", "[Months_Georgian]='" & Format(Me.myDate, "mmm") & "'")
        Me.Date_4 = Me.Day_table & Format(Me.myDate, " dd, ") & Me.Month_Table & Format(Me.myDate, " yyyy")
        
    Else
    
        'the system is English
        'get the Arabic info from the table
        
        Me.Day_table = DLookup("[Days_Arabic]", "tbl_Months", "[Days_English]='" & Format(Me.myDate, "dddd") & "'")
        Me.Date_3 = Me.Day_table & Format(Me.myDate, " dd/mm/yyyy")
        
        Me.Month_Table = DLookup("[Months_Georgian]", "tbl_Months", "[Months_English]='" & Format(Me.myDate, "mmmm") & "'")
        Me.Date_4 = Me.Day_table & Format(Me.myDate, " dd, ") & Me.Month_Table & Format(Me.myDate, " yyyy")
        
    End If
    

    
End Sub

جعفر

 

tbl_Months.zip

[عبد الله قدور]

السلام عليكم

 

في مصدر عنصر التحكم لمربع النص من منشئ التعابير أضف التعبير التالي

=Format(Date();"dddd dd mm yyyy")

[ابو جودي]

وعليكم السلام

 

هو الحل كما تفضل به الاخ مارد 

 

ولكن ،

اذا كان نظام الوندوز عندك انجليزي وارت ان تكتب اسم اليوم او الشهر بالعربي ، فهذا يحتاج الى عمل اضافي 

 

انا عندي جدول اسمه tbl_Months وبه اسماء الاشهر الهجرية ، والاشهر الانجليزية بالانجليزي والعربي ، والاشهر العراقية (الشامية) ،

واضفت اليه الايام كذلك:

 

tbl_Months_Clipboard02.jpg

 

 

وعليه ، عملت كود يقرأ اذا نظام الوندوز ، وعلى اساسه تستطيع ان تطلب اليوم ، كما في هذا النموذج (ادخل / اختر التاريخ ، ثم اضغط على مفتاح TAB على keyboard) ، وعلى اساسه سترى بقية الاسماء باللغة الاخرى:

 

tbl_Months_Clipboard01.jpg

 

 

وهذا هو الكود الذي يقوم بكل شئ:

Private Sub myDate_AfterUpdate()

    'display the dates based on the system setting
    Me.Date_1 = Format(Me.myDate, "dddd dd/mm/yyyy")
    Me.Date_2 = Format(Me.myDate, "dddd dd, mmm yyyy")
    Me.Day_System = Format(Me.myDate, "dddd")
    Me.Month_System = Format(Me.myDate, "mmmm")
    
    
    'read the 1st letter of the day, and check if it is Arabic or latin
    If Left(Asc(Format(Me.myDate, "dddd")), 1) > 127 Then
        
        'the system is Arabic
        'get the English info from the table
        
        Me.Day_table = DLookup("[Days_English]", "tbl_Months", "[Days_Arabic]='" & Format(Me.myDate, "dddd") & "'")
        Me.Date_3 = Me.Day_table & Format(Me.myDate, " dd/mm/yyyy")
        
        Me.Month_Table = DLookup("[Months_English]", "tbl_Months", "[Months_Georgian]='" & Format(Me.myDate, "mmm") & "'")
        Me.Date_4 = Me.Day_table & Format(Me.myDate, " dd, ") & Me.Month_Table & Format(Me.myDate, " yyyy")
        
    Else
    
        'the system is English
        'get the Arabic info from the table
        
        Me.Day_table = DLookup("[Days_Arabic]", "tbl_Months", "[Days_English]='" & Format(Me.myDate, "dddd") & "'")
        Me.Date_3 = Me.Day_table & Format(Me.myDate, " dd/mm/yyyy")
        
        Me.Month_Table = DLookup("[Months_Georgian]", "tbl_Months", "[Months_English]='" & Format(Me.myDate, "mmmm") & "'")
        Me.Date_4 = Me.Day_table & Format(Me.myDate, " dd, ") & Me.Month_Table & Format(Me.myDate, " yyyy")
        
    End If
    

    
End Sub

جعفر

كعادتك فنان دائما كما عودتنا يا استاذ جعفر 

صدقا صرت لا اعرف ماذا اقول .. ولم ولن اجد افضل من دعاء الى الله عزوجل راجيا اياه القبول ان شاء الله

اسأل الله العلى الكريم رب العظيم ان يزيدكم بركة فى العمر والعلم والاهل والذرية

اسال الله ان يسقيكم شربة هنيئة من يد رسولنا الحبيب صلوات ربى وسلامه عليه لا تظمأون بعدها ابدا ان شاء الله 

جزاكم الله كل الخير ان شاء الله     

[ابو جودي]

كل الشكر والتقدير استاذ مارد

جزاكم الله خيرا
 

[ابو جودي]

​كل الشكر والتقدير استاذ عبد الله قدور

جزاكم الله خيرا 

[jjafferr]

حياك الله 

 

كما قلت في البداية ، انا استعمل هذا الجدول تقريبا في جميع برامجي الرئيسية ، وهو يلبي لي طلب الزبائن ، وخصوصا بالاشهر ،

واساس حل الموضوع هو الجدول نفسه 

 

 

جعفر

[رمهان]

مشاركة معكم اعزائي وللفائدة ! 

يمكن استخدام الدالة الجديدة weekdayname وسيكون اللغة بناء على اعدادات الويندوز لديك ! 

وهي تطلب رقم اليوم والكفيل بارجاع رقم اليوم الدالة weekday او format مع الوسيط w !!

وكذلك حسب اعدادت اول يوم في الاسبوع من الاعدادات الاقليمية !

=WeekdayName(Weekday((Date())))

=WeekdayName(Format(Date();"w"))

بالتوفيق