تحديد يوم

تفضل اخي الكريم

بعد ادخال التاريخ سيتم تحديث اسم اليوم مباشرة حسب الكود التالي

Private Sub dat_AfterUpdate()
Me.day1 = Format([dat], "dddd")
Me.Requery
End Sub

za-استخراج اليوم من التاريخ.rar

بالتوفيق

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

الحجازي طارق كتب:

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

برنامج الأكسيس لا تتوفر فيه هذه الميزه

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

الطريقة الأولى : عن طريق الكتابه اولا في برنامج الأكسيل ثم وضع ورقة البيانات المنسقة الخاصة بالخلايا ذات الإتجاه الرأسي من اعلى الى اسفل في رأس التقرير لتصبح هي كعناوين لرأس التقرير

الطريقة الثانية : عن طريق عمل صور مصغره بأي برنامج خاص بتحرير الصور مثل الرسام وتكتب العناوين المطلوبه بإتجاه الرأسي من اعلى الى اسفل ثم تدرجها في التقرير في الأماكن المطلوبه

بالتوفيق

شكرا سأحاول تنفيذ احدى الطريقتين وشكرا للرد