ابوخليل

الحمد لله على قضاء الحوائج فالخير بيده

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

الحق ليس لدي ما افيدك به فوق ما وضحت لك ، وسأعطيك كل ما عندي هذا برنامج يقوم باصلاح ملفات الوورد ارفقته لك آمل ان يفرق ولو قليلا عن الطريقة التي بينت لك اعلاه برنامج إصلاح ملفات الوورد المعطوبة.rar

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

الحمد لله تمكنا منه انظر الى المثال الآن التعديل : تم اضافة (-1) الى الكود داخل الاستعلام Qza2 Trteeb5.rar

انظر هذا المثال ففيه مطلوبك db4.rar

الترتيب من عمل اخي نارت سأنظر ان استطعت والا فسنلقي الحمل عليه .

الحمد لله

يبدو ان لديك مستندا استعصى عليك فتحه هذه ترجمة بمعانيها واعتقد انها مفهومة open read-only فتح للقراءة فقط open as copy فتح كـ نسخة open in browse فتح في المتصفح open with transform فتح مع التحويل ( لصيغ أخرى ) open and repaire فتح وإصلاح

ان لم يكن هناك ما يمنع ارفق ملفك لعلنا نستطيع مساعدتك في اصلاحه

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

نيابة عن استاذنا العزيز ابي آدم احاطه الله بلطفه وعنايته تفضل المثال معدلا حسب طلبك db2.rar

يمكنك التعديل فالتاريخ الظاهر هو قيمة افتراضية يمكن تعديلها ، فقط ازل الحماية عن الحقل لتتمكن من التعديل

هناك فرق بين مربع التسمية ومربع النص فمربع التسمية الساعة تكون في التسمية اما مربع النص فالساعة تكون في القيمة انظر المثال قد تم تطبيقه على المربعين clock.rar

طبق كما في المثال المرفق في المثال : افتح على خصائص النموذج على لسان التبويب حدث واكتب في الفاصل الزمني لعداد الوقت الرقم 1000 (وهذا يعني ثانية واحدة) انظر الصورة المرفقة

لم تصادفني مشكلة في الرفع والدليل المرفق تم رفعه في الموضوع ادناه

تم التصرف في نموذج الملاحظات بشكل جذري ، وحذف جميع الاكواد السبقة ، واعادة صياغته من جديد والتغيرات التي تمت هي : 1- انشاء استعلام بمعايير خاصة وجعله هو مصدر بيانات النموذج 2- القيمة الافتراضية لحقل التاريخ هي تاريخ اليوم 3- القيمة الافتراضية لرقم الطالب مرتبطة برقم الطالب في الاستعلام 4- يتم عرض ملاحظات الطالب التي تم تسجيلها اليوم فقط 5- امكانية الزيادة والتعديل مع مراعاة عدم التكرار

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

وعليكم السلام ورحمة الله وبركاته حل المشكلة الأولى : تحديث مربع التحرير والحقل المجاور له في نموذج بيانات الطلاب فقط الصق هذا الكود في محرر الفيجوال في صفحة نموذج بيانات الطلاب Private Sub Form_Load() Me![as].Requery Me![name_Teacher] = Me![as].Column(1) End Sub المشكلة الثانية : نموذج الملاحظات يفترض ان يكون نموذجا فرعيا لنموذج الدرجات الفرعي حتى يتم ربطهما بعلاقة ( رقم الطالب ) وحيث ان نموذج الدرجات مستمر فلا يمكننا وضع نموذج فرعي داخله ، هذه واحدة الثانية : نحن نستدعي نموذج الملاحظات بشرطين رقم الطالب و التاريخ ولاحظ اننا نحن الذين نطالبه بتحقيقهما اثناء الفتح ‘ الثالثة : انه يمكن تكرار الملاحظة في التاريخ الواحد والكود المكتوب لن يمنع ذلك الا ان تضع قيود صارمة في الجدول الرابعة ( الفائدة ) : جدول + نموذج + اكواد لا حصر لها ، كل هذه يقوم بمهمتها حقل واحد في جدول الدرجات هذا ما رأيته لك فما رأيك ؟

طبعا لن يظهر ملف الوورد لانك دخلت على حساب الادمنستر كما هو في الشرح ولكن الملف لن يظهر على سطح المكتب الا اذا دخلت عن طريق حساب المستخدم نفسه ، وطريقة الوصول الى الملف من حساب المدير هو ان تدخل الى مجلد سطح المكتب والموجود ضمن مجلدات المستخدم : c / Documents and seting / user / desktop user = مجلد المستخدم ( حسب الاسم عندك ) جرب ووافنا بالنتيجة

انظر الى المثال يشتمل على نموذجين واحد بعداد والاخر بلا ساعة.rar

Private Sub Form_Timer() ts1.Caption = Time() End Sub حيث ts1 حقل تسمية في النموذج

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

تفضل كما تريد Trteeb2.rar

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