ابوخليل

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

السلام عليكم شوف لي هذا الملف db1.rar

السلام عليكم اهلا ابو العقاب أنا في الخدمة على قدر علمي واستطاعتي تكتب الأكواد في الوحدات النمطية الخاصة بكل نموذج أو تكون منفصلة وعامة لجميع النماذج أو تكتب في مصدر عنصر التحكم للعنصر ( أي تكتب في الخلية نفسها في عرض التصميم ) وسؤالك : فاكود مثلا أين يكتب قبل التحديث ، بعد التحديث أين؟؟ فإذا وجد المثال فالأمور واضحة ففي بداية الكود يتضح ذلك انظر إلى الكود الموجود في الصورة في الأعلى وانظر إلى السطر الأول فهو يعني ( في النموذج الحالي ) وهكذا .... Private Sub Form_Current()

السلام عليكم لم اجر شيئا غير ما ذكرت فأنت تقول : لو كان مجموع الريالات 120 ومجموع الهلل 160 يعطي المجموع 121 ريالا و 20 هلل ويمكن قصدك و 60 هللة ؟ وعندما راجعت المثال وجدت هناك خطأ فالمجموع يكون 121.6 وفي التفقيط يذكر ها 6 هللات وهي 60 فأجريت تعديلا على المثال الغيت فيه الوحدة النمطية واكتفيت بالكود وقد يستفاد من الطريقتين معا آمل ملاحظة الفرق وإبداء الرأي ____________.rar

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

السلام عليكم : الهلل قسمة 100 + الريالات انطر ألى الكود شوفو هذه الشخبطة لعلها تفي بشيء من المقصود

السلام عليكم انظر إن كان هذا ما تريد ________________________.rar

التعديل ____________.rar

السلام عليكم الأخ السعيد قاعدة بياناتك متضخمة بحجم 44 ميجا سويت لها اصلاح مع ضغط فتقلصت إلى 10 ميجا ثم سويت لها ضغط بـــ ون رار فتقلصت إلى 181 كيلو بايت الغريب كيف تخفى عليك هذه الخطوات ؟؟؟ هذه هي القاعدة مرفقة حتى يتسنى للزملاء مساعدتك lon.rar

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

الحمد لله أن تحقق المطلوب لقد رددت الجميل بشكرك هذا ودعائك .

السلام عليكم الحل : 001100.rar

السلام عليكم الحل : 12.rar

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

السلام عليكم جهد بسيط كأساس لقاعدة بيانات لن تعدموا فائدة وآمل ممن يسعى للعمل عليه وإكماله أن يتحفنا بنسخة لآخر ما توصل إليه تحياتي ،،،، الرقم السري 1 ethen.rar

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

حفظ قاعدة البيانات بأخذ نسخة ووضعها على D:\ عند إغلاق قاعدة البيانات ( أي في كل مرة تغلق فيها قاعدة البيانات ) وتسميتها بالعام مثلا 1429/1430 يتم تحديث بيانات النسخة الاحتياطية عند كل إغلاق ، وفي نهاية السنة وبداية سنة جديدة يتم نسخ قاعدة جديدة باسم العام الجديد ليبقى لكل عام قاعدة تخصه . تقبلوا تحيات أخيكم ... ابو خليل.. في المرفقات المثال قم بعمل التالي : 1 - اجلب الوحدة النمطية SaveFolder الموجودة في المثال إلى قاعدة بياناتك فقد تحتاج اليها مستقبلا عندما تود تحديد مكان النسخة 2- يوجد في النموذج مربعي نص مخفية قم بنسخهما إلى النموذج الرئيسي في قاعدة بياناتك 3 في حد ث عند الإغلاق للنوذج الرئيسي الصق هذا الكود : كود On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = [DBOld] DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub وفي حدث عند التحميل الصق هذا الكود : كود '[DBOld] = CurrentDb.Name اختيار قاعدة البيانات الحالية [DBOld] = "c:\z1.mdb" 'اختيار مسار القاعدة البديلة [DBNew] = "D:\" 'اختيار مكان حفظ النسخة __________________.rar

أشكرك أخي Bluemind على مرورك اضافة جميلة في محلها .

يعني لا بد تشوف بعينك وزر الطباعة كذلك اختفى يعني الكود شغال % عندي اقتراح لعل أن يكون فيه زوال المشكلة : افتح قاعدة بيانات جديدة واجلب إليها جميع الكائنات من القاعدة القديمة

السلام عليكم بعد ما تضع 1= في المربع افتح خصائص المربع واذهب إلى تبوبيب :( بيانات قم بتعديل القيمة (مجموع تراكمي ) من لا إلى شامل أو مجموعة إضافية تحياتي ،،،،

السلام عليكم وحده وحده وكل شي تمام استبدل الكود الموجود في نموذج الصادر SaderNum.tixt Enable = False بهذا Me.SaderNum.Enabled = False وشوف فيه مشاكل أخرى

عمل جميل أثابك الله الملاحظات : 1- جعل إمكانية البحث بالكلمة ليظهر معها اسم السورة ورقم الآية 2- ياليت تكون الآيات بالخط العثماني 3- ان كان هناك أخطاء - وأقصد الإملائية والمطبعية - فهذه لا تظهر إلا بالمصادفة عند البحث أو التصفح ، أويقوم انسان متخصص بقراءته وتدقيقه كاملا . تقبل تحياتي ،،،

السلام عليكم التعديل exp.rar

السلام عليكم الحل birth.rar

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