علي المصري

شكرا جزيلا عمل رائع بحثت عن مثله ولم اجد شكرا

وصلنا الي وجود تاريخ فارغ عندما يكون اليوم لا يوجد به غياب أو تأخر وقمت بعمل تقريرين احدهم بين تاريخين والأخر لكل الفترة الموجودة نريد ان نكمل العمل

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

يمكن استخدام الكود التالي Private Sub ÊÝÕíá_Format(Cancel As Integer, FormatCount As Integer) Me.text_taksos.FontName = "" Me.taksos.FontName = "" Me.text_collegeT.FontName = "" Me.asm_collegeT.FontName = "" End Sub حيث يتم كتابة اسم الخط بين العلامتين ""

في وضع التصميم للتقرير حدد مربع النص المراد تنسيقة من قائمة تنسيق format اخر القائمة من الأسفل تجد تنسيق الأرقام Numeral Shapes اجعلها العربية لكي تحصل على الأرقام بالشكل : 1و 2 و3 و4 و5 وهكذا

بعد اذن استاذنا القدير الأستاذ جعفر على اد فهمي للمطلوب يمكنك استخدام الكود التالي : Private Sub Form_Current() On Error GoTo ErrHandler img1001.Picture = CurrentProject.Path & "\icons\1001.jpg" img1002.Picture = CurrentProject.Path & "\icons\1002.jpg" img1003.Picture = CurrentProject.Path & "\icons\1003.jpg" img1004.Picture = CurrentProject.Path & "\icons\1004.jpg" ErrHandler: If Err.Number = 2220 Then img1001.Picture = "" img1002.Picture = "" img1003.Picture = "" img1004.Picture = "" End If End Sub وهو من الاكواد الخاصة بالمنتدى - AAA.rar

up ما اريده الآن هو انه بعد اخر يوم في الأسبوع لكل طالب لابد ان يترك مسافة فارغة وبعدين بيدأ الأسبوع الذي يليه هل يمكن عمل ذلك

PtrSafe تستخدم مع الإصدارات 64 بت اذا حذفتها تعمل الدالة Function مع الإصدار 32 بت وطالما هذه الاسطر باللون الأحمر فإن اصدار اكسيس لديك هو 32بت احذف كلمة PtrSafe من هذه الاسطر قم في الكود الخاص بتغيير الشعار استبدل السطر Set fDialog = Application.FileDialog (msoFileDialogOpen) بالسطر التالي Set fDialog = Application.FileDialog(msoFileDialogFilePicker) المرفق بعد التعديل ‏‏برنامج العطاء للعقارات الثاني2.rar

جرب المرفق التالي اذا كان الاكسيس 64 بت ‏‏برنامج العطاء للعقارات الثاني.rar وما هو اصدار الاكسيس هل 2003 - 2007 - 2010 - 2013 - 2016

السلام عليكم ورحمة الله وبركاته الملف يعمل جيدا حتى بعد استخدامه على نسخة 64بت جرب تغيير اسم الملف الموجود به البرنامج من اسم باللغة العربية الى اسم باللغة الانجليزية مثال : مجلد 1 إلى Folder1

السلام عليكم ورحمة الله وبركاته تم إضافة طل الجداول والشاشات المختلفة رجاء ادخال بعض البيانات للتجربة وأتمنى من مشرفي منتدى الاكسيس مراجعة ما تم إنجازه حتى لا يكون هنالك خطأ حتى نتمكن من انجاز هذا العمل Masjed 26-12-2016-2.rar

اخي الكريم الكود الذي ارسلته لك يعمل جيدا في قاعدة البيانات التي لدي المشكلة عند حضرتك رجاء ارفاق قاعدة البيانات التي تقول انها لديل وتريد عمل مثلها مع ارفاق قاعدة البيانات الخاصة بك بها بعض البيانات للتجربة عليها ان شاء الله وفالك طيب ان شاء الله يا طيب ارفعة على موقع mediafire أو 4shared أو غيرها

تم إضافة جزء جديد الله المعين على الباقي Masjed 26-12-2016.rar

دي البداية Masjed.rar

جرب استخدام رقم القيد بدلا من ال id انا غير قادر على فهم مكونات الجداول لديك فحاول اتباع التالي لابد من وجود حقلين في النموذجين يكون لهما نفس القيمة يتم الربط بهما بين النموذجين وبالتالي يمكن استخدام الامر التالي على أساس أن النموذج المفتوح به حق اسمه id والجزء الخاص به في الامر هو Me.[id] والنموذج المراد فتحة به أيضا حقل اسمه ID أيضا او أي اسم ولكن يتم تخزيم نفس الرقم الموجود في ID السابق DoCmd.OpenForm "sear", , , "[ID]=" & Me![ID]

السلام عليكم ورحمة الله وبركاته اخي الكريم لابد من وجود حقلين غي النموذجين يكون لهما نفس القيمة يتم الربط بهما بين النموذجين وبالتالي يمكن استخدام الامر التالي على أساس أن النموذج المفتوح به حق اسمه id والجزء الخاص به في الامر هو Me.[id] والنموذج المراد فتحة به أيضا حقل اسمه ID أيضا او أي اسم ولكن يتم تخزيم نفس الرقم الموجود في ID السابق DoCmd.OpenForm "sear", , , "[ID]=" & Me![ID]

هذا مثال لا ادري هل ما تقصدة ام لا الحماية للاوراق 123 Book1.rar

شاهد المرفق تحديث2.rar

تفضل لعله يكون طلبك اخي لكريم تحديث2.rar

احي الكريم شكرا على كلامك الطيب - وان كان هذا الكلام الطيب لابد منه فأنه لابد أن تقوله لفريق هذا المنتدى واعضائه أما انا ما زلت اتعلم من المنتدى العظيم وبمساعدة فريقه وأعضائه الذين لا يبخلون على احد بالشرح والتوضيح والمساعدة اما بالنسبة للبرنامج فهو لم يكتمل بعد قمت بالتعديل على برنامجك واي ملاجظة عن الفصل ( الشعبة ) اجد مرة تستخدم كود 1 و 2 وهكذا ومرة اسم الفصل أ - ب وهكذا لابد من استخدام طريقة واحدة وانا اعتمد اسم الفصل في التعديل شكرا جزيلا Microsoft Access قاعدة بيانات جديد ‫‬.rar

شكرا اخي على الاهتمام ولكن عندي اليوم موافق للتاريخ بشكل صحيح Me.MyDay = WeekdayName(Weekday(Me.MyDate))

تم عمل نموذج للطباعة وتقريرين احدهما بين تاريخين والأخر لطباعة الكل AbsentLate-10-12-2016.rar

اسف على التأخر في الرد بسبب الظروف سوف اعمل مثال وارفقة لحضرتك شكرا على اهتمامك جزاك الله خيرا

هل يمكن إضافة الأسماء باللغة الإنجليزية أيضا

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