صالح حمادي

السلام عليكم أستاذ رمهان حياك الله نعم ملاحظاتك صحيحة و في محلها. أخي أبو ابراهيم تفضل: لقد قمت بإجراء التعديلات التالية على ملف الأستاذ ابو خليل: 1- أضفت جدول جديد "جدول الفائزين" كل شخص يخرج في القرعة يضاف إلى هذا الجدول. 2- عند خروج أي شخص في القرعة فإن البرنامج سوف يكتب في حقل "خارج القرعة" للجدول "القرعة" 1. 3- أضفت استعلام "استعلام1" و جعلته مصدر السجلات للنموذج "القرعة" و وضعت به شرط أن يكون حقل "خارج القرعة" خاليا. يعني أن الحقول المكتوب بها 1 لا تدخل في القرعة. القرعة.rar

السلام عليكم نيابة عن أستاذنا الفاضل أبو خليل: Private Sub Form_Timer() On Error GoTo Err_t DoCmd.GoToRecord , , acNext Exit_t: Exit Sub Err_t: DoCmd.GoToRecord , , acFirst Resume Exit_t End Sub هذا الكود وضع في حدث عند عداد الوقت و هو يقوم بالإنتقال إلى السجل التالي و في حالة الوصول إلى السجل الأخير يقوم بالرجوع إلى السجل الأول و هكذا Private Sub d1_Click() Me.TimerInterval = 50 End Sub و هذا الكود وضع في زر start يعني سوف يقوم بتغيير قيمة الفاصل الزمني للعداد إلى 50 و يبدأ الكود الأول في العمل (1000 تساوي 1 ثانية) Private Sub d2_Click() Me.TimerInterval = 0 t2 = t1 End Sub و هذا الكود سوف يقوم بإيقاف العداد الفاصل الزمني يساوي 0 و يأخذ القيمة الظاهرة في مربع النص t1 و يضعها في مربع النص t2.

السلام عليكم لمنع إضافة سجلات استعمل الكود التالي: Me.AllowAdditions = False لمنع حذف سجلات استعمل الكود التالي: Me.AllowDeletions = False لمنع التعديل على السجلات استعمل الكود التالي: Me.AllowEdits = False أما بالنسبة لإستعمالها في صلاحيات المستخدمين يمكنك استعمال ثلاثة أرقام مثلا: 1: له كل الصلاحيات 2: يستطيع الإضافة فقط 3: المشاهدة فقط (يمنع من جميع الصلاحيات التعديل ,الإضافة و الحذف) نستعمل الكود التالي في حدث عند التحميل للنموذج : If VaUser=1 Then Me.AllowDeletions = True Me.AllowAdditions = True Me.AllowEdits = True ElseIf VaUser=2 Then Me.AllowDeletions = False Me.AllowAdditions = True Me.AllowEdits = False Else Me.AllowDeletions = False Me.AllowAdditions = False Me.AllowEdits = False End If

جزاك الله خيرا أستاذ جعفر

يا ريت توضح المطلوب أكثر بالصور. أنا لم أفهم قصدك جيدا

يجب عليك أن تجعل مصدر البحث هو الإستعلام

الله يبارك فيك صديقي العزيز ابا جودي

السلام عليكم استعمل هذا الكود سوف يقوم بتصدير المعلومات إلى ملف أكسل على سطح المكتب Dim DTPath As String Dim curPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") curPath = DTPath & "\parast" & ".xls" DoCmd.TransferSpreadsheet acExport, 8, "zaQ", curPath, True Application.FollowHyperlink curPath za-Search&Filter-UP.rar

شكرا جزيلا أستاذي أبو خليل. و شكرا لجميع إخوتي الكرام الذين يولون لي كل هذا التقدير و الإحترام

الدرس السابع: دوال التاريخ أخوتي الكرام حياكم الله سوف نقوم في هذا الدرس بشرح دوال التاريخ: ()CDate: تستخدم هذه الدالة من أجل تحويل سلسلة إلى تاريخ. مثال: CDate(السلسلة) CDate("122010")="18-01-2234" ()Date: تستخدم هذه الدالة من أجل إرجاع تاريخ النظام الحالي. مثال: Date()="19/02/2017" DateDiff: تستخدم هذه الدالة لحساب الفرق بين تاريخين DateDiff(أول أسابيع السنة,أول أيام الأسبوع,التاريخ الثاني,التاريخ الأول,رمز الفاصل الزمني) DateDiff("d","14/02/2017","19/02/2017")=5 في هذا المثال حسبنا الفرق بين التاريخين بالأيام DatePart: تستخدم هذه الدالة للحصول على جزء معين من تاريخ محدد لها.(سنة أو يوم أو شهر) مثال: DatePart(أول أسابيع السنة,أول أيام الأسبوع,التاريخ,فاصل زمني) DatePart("d","22/03/2017")=22 DatePart("m","22/03/2017")=3 DatePart("yyyy","22/03/2017")=2017 DateSerial: تستخدم هذه الدالة لإرجاع متغير من نوع تاريخ من ثلاث متغيرات رقمية تمثل السنة والشهر واليوم . مثال: DateSerial(يوم,شهر,سنة) DateSerial("1999","03","20")="20/03/1999" DateValue: تستخدم هذه الدالة من أجل تحويل تعبير معين إلى تاريخ . مثال: DateValue(«التاريخ») DateValue("12 02 2016") Day: تستخدم هذه الدالة لإرجاع رقما من 1 إلى 31 يمثل اليوم من الشهرللتاريخ الممر لها . مثال: Day(التاريخ) Day("15/03/2016")=15 Hour: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 23 يمثل الساعة في اليوم . مثال: Hour(الوقت) Hour("15:25")=15 Minute: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 59 يمثل الدقائق في الساعة. مثال: Minute(الوقت) Minute("15:25")=25 Second: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 59 يمثل الثواني في الدقائق. مثال: Second(الوقت) Second("15:20:23")=23 Month: تستخدم هذه الدالة لإرجاع رقما من 0 إلى 12 يمثل الشهر في السنة. مثال: Month(التاريخ) Month("12/11/2003")=11 Year: تستخدم هذه الدالة لإرجاع رقما يمثل السنة. مثال: Year(التاريخ) Year("12/12/2017")=2017 نكمل البقية فيما بعد إن شاء الله

في حدث عند النقر المزدوج على حقل التاريخ أكتب الكود التالي: me.faild_date=date() بحيث faild_date هو حقل التاريخ

و فيك بارك الله أستاذنا أبو عبد الله و فيك بارك الله أخي العزيز

إخوتي الأعزاء رفع الله قدركم يوم القيامة و أسكنكم جناته إن شاء الله بارك الله لكم و جزاكم كل خير و الله إني لسعيد لرؤيتي إخوتي يهتمون لأمري كل هذا الإهتمام.

السلام عليكم و رحمة الله تعالى و بركاته. أخي تفضل قم بتعديل كود متبقي تعليم إلى الكود التالي: =[رسوم تعليم]-DSum("[خصم تعليم]-[قسط تعليم]";"[حسابات]";"[رقم الملف]=" & [رقم الملف]) و عدل كود حقل اجمالي المدفوع إلى الكود التالي: =DSum("[قسط تعليم]";"[حسابات]";"[رقم الملف]=" & [رقم الملف]) و هذا هو الملف بعد التعديل تقرير.rar

أخي السيد بارك الله فيك

شكرا جزيلا لكم جميعا و بارك الله بكم و بأعمالكم إن شاء الله

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

الله يبارك فيك و يحفظك يا غالي هدفنا واحد و هو أن نساعد و نستفيد في نفس الوقت قم بتحميل النسخة الأولى فهي تعمل بشكل جيد على أكسس 2010

ما هي نسخة الأوفيس التي لديك

هذه نسخة من البرنامج بصيغة mdb انشاء شريط قوائمmdb.rar العفو أخي الحبيب الله يحفظ و يرعاك

الله يحفظك يا أستاذنا الغالي.

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

ما شاء الله للفنون و الإبداع ناسه حفظك الله يا أستاذنا و سقاك من حوض النبي صلى الله عليه و سلم إن شاء الله

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

تفضل أخي sandanet صالح.rar