صالح حمادي

جزيت خيرا

شكرا أستاذنا الفاضل. لقد تم تنفيذ البرنامج و قام بعمل نسخة احتياطية بشكل مستند نص أريد عمل زر عند الضغط عليه ينشئ نسخة أحتياطية لقواعد البيانات (الجداول فقط) في مجلد البرنامج و يقوم بتفريغ الجداول المصدر من أجل تقليل حجم البرنامج. و عمل زر آخر يقوم بإستدعاء النسخة الإحتياطية للبرنامج. أرجوا أن ألا أكون قد أثقلت عليك يا أخي الكريم.

لقد حاولت تطبيق البرنامج على قاعدة بيانات عندي فلم يفلح الأمر و لا أدري أين الخطأ. التلاميذ.rar

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

DoCmd.GoToRecord , , acFirst هذا الكود للذهاب إلى السجل الأول من أجل بداية الترقيم من السجل رقم 1 Dim i As Integer للتعريف بالمتغير i كعدد صحيح d = DCount("*", "جدول1") لحساب عدد سجلات الجدول For i = 1 To d تفيدنا في تكرار العملية If IsNull(x) Then y = i Else y = y + 1 End If هذا الجزء من أجل إعطاء قيمة y=1 في البداية ثم في كل مرة نضيف 1 Me![num] = Format(y, "0000") كتابة قيمة y على شكل 4 أرقام في مربع النص [num] DoCmd.GoToRecord , , acNext الذهاب إلى السجل التالي إن شاء الله تكون إستفدت من هذا الشرح البسيط بالتوفيق

العفو

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

و الله نعم الرجل أنت يا أستاذنا الكريم دائما يقولون أن الذي لديه العلم الوفير سمته التواضع و حب مساعدة الناس و ها نحن الآن نقف مصدقينا لهذا القول. أدامك الله نافع و منتفعا بلعمك و أنار الله دربك في حياتك و أنار لك قبرك في مماتك إن شاء الله "اللهم أجمعني بعبدك هذا في الجنة مع نبينا محمد صلى الله عليه و سلم و جميع المسلمين يا رب العالمين".

انشئ استعلام و اكتب في المعيار الخاص بالاسم"*" & [اسم مربع التحرير و السرد] & "*" Like ثم اجعل مصدر السجلات في التقرير هذا الاستعلام. وهذا المثال لتوضيح أكثر. وافني بالاجابة بعد التجربة. فتح تقرير.rar

ماشاء الله يا أستاذ أنت في كوكب و نحن في كوكب آخر بارك الله فيك و لك و عليك و جزاك الله كل خير

شكرا أستاذ كرار على التعديل المهم جدا. شكرا أستاذ أبوخليل على الملاحظات القيمة. أخي أبو رحيل بإمكانك تعلم vba بدون معاهد إذا كانت لديك الرغبة في ذلك فلا شيء يكسر طموح الإنسان. فأنا لا علاقة لي بالبرمجة أصلا فقد درست ماستر شبكات كهربائية. لكن تمكن من تعلم مبادئ البرمجة و الخورزميات فقد مارست لغة البرمجة فجوال بسيك و الباسكال و الدلفي و الأكسس وحدي في المنزل مستعينا في بعض الأحيان بفديوهات من اليوتيب. و عندما سجلت في منتدى أوفيسنا ندمت لأنني لم أعرفه من قبلي أحسست و كأنني جاهل لا أعلم شيئا أمام خبرة الأساتذة مثل كرار و أبوخليل. لذلك أخي أنصحك بتعلم الخورزميات و لا تستعجل الأمور فسوف تجد نفسك مبرمجا بارعا بإذن الله الواحد القهار.

عمل أكثر من رائع ألف شكر يا أستاذ

السلام عليكم و رحمة الله و بركاته تقبل الله منا و منكم الصيام و القيام. أخوتي الأعزاء في هذا المنتدى الأكثر من رائع أقدم لكم كود إعادة ترقيم جميع سجلات حقل و ذلك بالضغط مرة واحدة على الزر الذي وضعة عليه الكود. بدون إطالة أقدم لكم هذا الكود. DoCmd.GoToRecord , , acFirst Dim i As Integer For i = 1 To 11 On Error Resume Next Dim x, y As Integer x = 1 If IsNull(x) Then y = i Else y = y + 1 End If Me![num] = Format(y, "0000") On Error Resume Next DoCmd.GoToRecord , , acNext Next i و هذا الملف يوضح ذلك. لا تنسونا من خالص دعائكم في هذا الشهر العظيم إعادة ترقيم عمود في جدول.rar

العفو

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

السلام عليكم. الخطأ الأول هو يجب وضع الكود في حدث عند التغيير للقائمة المنسدلة. الخطأ الثاني في كتابة الكود و إليك الكود الصحيح. If Me.NAT_ID <> "مصري" Then Me.IDNumber.Enabled = False ElseIf Me.NAT_ID = "مصري" Then Me.IDNumber.Enabled = True End If و هذا هو الملف بعد التعديل المثال.rar

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

السلام عليكم جزاكم الله كل خير على إفادتكم و ضاعف لكم الأجر إن شاء الله ما دمنا في شهر الرحمة و البركات. - بالنسبة للتصدير يكون حسب الاختيار يعني كل أستاذ أعطيه ملف أكسل به الأقسام التي يدرسها فقط. - عند إستراد العلامات من ملف أكسل يتم إستراد خلايا محددة (علامات التلاميذ) و وضعها بالملف الرئيسي في البرنامج. - أريد أن يقوم بتحديث البيانات في الملف الرئيسي للبرنامج.

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

قال الله تعالى:( حافظوا على الصلوات و الصلاة الوسطى و قوموا لله قانتين)

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

جزاكم الله كل خير على هذه المعلومات القيمة

السلام عليكم تقبل الله صيامكم و قيامك إن شاء الله أخي الفاضل بعدما أصدر السجلات إلى ملف أكسل و أسجل فيه علامات الطلبة الآن أريد إستراد الملف لإدخال العلامات في البرنامج. ماذا أفعل

لقد أضفت نموذج سميته z_2 و أضفت تعديلا صغيرا في التقرير إن شاء الله يكون هو الصواب و الله أعلم sum_time(4).rar

السلام عليكم تقبل الله صيامكم بمناسبة هذا الشهر العظيم إرتأيت إلى أن أنشئ برنامجا يعطي مواقيت الصلاة و الإفطار للدول العربية أرجوا من الله أن ينال إعجابكم. في هذا البرنامج تختار الدولة ثم تختار المدينة ثم تختار اليوم من رمضان 1.2.3.3..... الخ فتحصل على النتيجة مباشرة جميع أوقات الصلوات الخمسة. دعواتكم لنا في ظهر الغيب. موفقون إن شاء الله. مواقيت الصلاة.rar