ابوخليل

الحمدلله ................. يغلق ...........

تم دمج الموضوعين اخي محمود ... الاستاذ رضوان سبق ان قدم اعتذار لحصول ظرف طارى http://www.officena.net/ib/index.php?showtopic=58516

Docmd.RunSQL"strSql = "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));"" الاخطاء : "strSql = هذه جملة زائدة تستخدم في مكان آخر " آخر علامة تنصيص مزدوجة هي ايضا زائدة اذا استبعدنا الزوائد سيصبح الكود هكذا : Docmd.RunSQL "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6))" ويمكن اضافة اكثر من جملة برمجية وتكون مرتبة حسب الحدث كما ذكر اخونا طالب العلم اما السطر الخاص بمنع التحذيرات فيكتفى بواحد اول الجمل مهما كان عددها ولسطر الآخر في آخرها

رسالة الخطأ طبيعية لان الحقل فارغ استخدم الدالة nz لتحويل الفراغ الى صفر لتصبح الجملة هكذا Dim i As Integer i = Len(Nz([Kwmy], 0)) If i < 14 Then

جزاك الله خيرا حاول ان تخرج بالنتيجة نفسها مع استبعاد الاستعلام والحقل المخفي استخدم متغير مثلا : Dim i As Integer i = Len([Kwmy]) If i < 14 Then

الموضوع هو تحقيقا لطلب احد اخواننا االكرام وفيه يمكن تحديد الازار داخل نظام المستخدمين في المثال المستخدم محمد معرف =1 والسري=1 مسموح له جميع الازرار ما عدا زر الصلاحية والمستخدم ابوخليل معرف=2 والسري=2 مسموح له الصلاحية فقط آمل ان تجدوا الفائدة صلاحية الازرار.rar

لم افهم ؟ كيف اعدل ؟ لكن لا يمكن استرجاع المحذوف ولاضافة حقل ترقيم تلقائي للجدول : بالنقر على الزر الايمن يمكنك فتح الجدول على التصميم ثم تدرج حقل وتكتب اسمه مثلا id وتختار نوعه ترقيم تلقائي ومن خصائصه في الاسفل اجعل القيمة : مفهرس = نعم بدون تكرار

افتح على خصائص النموذج / لسان التبويب تنسيق اجعل القيمة : اشرطة التمرير = لاهذا ولا ذاك

لا اعلم ما لغة البرنامج المربوط مع قاعدة البيانات وتذكر انه تم ادخال اكثر من الف قيد قاعد البيانات سليمة واظن ان البيانات تم حذفها ؟ ملاحظة : لايوجد حقل ترقيم تلقائي ضمن الجداول وهو مهم وفائدته انه يمكن معرفة عدد ومكان السجل المحذوف هذا على حد علمي ، والله اعلم

ارفق الملف هنا للتشخيص

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

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

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

أنا في برامجي أفضل الاحتفاظ بكافة البيانات و لا أمسح اي سجل وفي هذه الحالة ممكن اضافة حقل (صح/خطأ) في جدول الطاقم الاداري و نبني استعلام على السجلات المتوفرة للطاقم الحالي الذي قيمة حقله = صح في جدول الطاقم الاداري نعم .. وفي برامجي كذلك ذكرتني باستاذنا وحبينا نارت لبزو_لطف الله به_ .. ولا تهون .. يسمي هذه العملية بالحذف الوهمي اما بالنسبة للاخ السائل فلن نرضى له الا الاصلح يبدو انكم وصلتم الى نتيجة مرضية ولكن هل بيئة المدارس تنطبق على الشركات ؟ ما رأيك انت لتنفيذ عملية الترحيل ؟ باعتبار اننا سنضع اشارة لطلاب الصف السادس لحجبهم عن الظهور وهل توافق الاستاذ رمهان على فصل الصف بجدول مستقل ؟ نريد طرح تصور للعملية باعتبار البرنامج يحتوي على سنتين دراسيتين نريد الفكرة بصورة عامة

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

جزاك الله خيرا استاذ رضوان اعتقد ان شرح وجهة نظر الاستاذ رمهان هو ما تفضل به اخونا الاستاذ محمد السوداني هنا http://www.officena.net/ib/index.php?showtopic=43668#entry252410 ولا شك هي افضل لمن كان ينوي تكبير القاعدة ولكن لايلزم وجود جدول للمراحل لان حاجتنا من الاعوام السابقة هي التقارير فقط وهذه الاخيرة يكفي فيها المعايير والفلترة وقد ذكر الاستاذ محمد وجوب اشتمال جدول الدرجات على الفصل الدراسي والسنة مع معرف الطالب

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

بسم الله الرحمن الرحيم الاستعلام الإجرائي هو استعلام يُجري تغييرات على العديد من السجلات أو ينقلها في عملية واحدة فقط . توجد أربعة أنواع من الاستعلامات الإجرائية: حذف وتحديث وإلحاقي وتكوين جداول. نقوم بتحويل الاستعلام الاجرائي الى جملة vba كنوع من الحماية ولتقليل واختصار الكائنات داخل القاعدة وإليكم الطريقة حيث سنطبق الدرس على استعلام حذف : 1- بفرضية ان لدينا جدول باسم tbl1 يحتوي على العديد من الحقول وكثير من البيانات ثم قمنا بانشاء استعلام حذف واخترنا الكل أي اننا نفتح استعلام حذف جديد ثم نختار الجدول ثم نختار الحقل الاول من الجدول والذي هو عبارة عن نجمة الآن لو تم تشغيل الاستعلام لقام بحذف كافة البيانات داخل الجدول . 2- في عرض تصميم الاستعلام ننقر بالزر الايمن تم نختار عرضSQL ثم ننسخ الجملة البرمجية التي تظهر لنا وستظهر على الهذا النحو : DELETE Tbl1.* FROM Tbl1; ولكنها هكذا مادة خام تحتاج الى اضافات حتى نتمكن من تشغيلها داخل الكود وتتمثل الاضافات بالتالي : - جعل الجملة على سطر واحد ، او اضافة ( _ ) في نهاية كل سطر لتقسيم الجملة الى اسطر (في المرفقات برنامج يقوم بذلك ) - جعل الجملة بين علامتي تنصيص مزدوجتين - اضافة امر تشغيل جملة سكول docmd.RunSQL في بداية الجملة وهناك اضافات خارج الجملة وهي لمنع رسائل التحذير عند بدء تشغيل الكود واعادتها في نهاية التشغيل وتتمثل في السطرين التاليين DoCmd.SetWarnings False قبل بداية الجملة DoCmd.SetWarnings True بعد انتهاء الجملة لتظهر الجملة في النهاية داخل الكود هكذا : DoCmd.SetWarnings False Docmd.RunSQL"DELETE Tbl1.* FROM Tbl1" DoCmd.SetWarnings True هذا كل شيء ،، في المرفقات برنامج من مكتبتي يقوم بتحويل الاستعلام الى جمل sql وتنسيقها .. ادعوا لصاحبه جزاه الله خيرا تحويل SQL إلى VBA.rar

لا فرق .. حيث ستستغني عنها لا حقا .. تفضل من هنا http://www.officena.net/ib/index.php?showtopic=58494

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

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

لتطبيق شرط ما داخل النموذج المستمر لسجل معين يجب : 1- ان يكون الحدث منبثق من السجل نفسه 2- او يكون عليه التركيز عند الحدث في مثالك الذي تم التعديل عليه اكتب رقما داخل حقل dh ثم انقرعلى خانة الاختيار ان لم يكن هو ما تبحث عنه يجب زيادة الشرح HDo6.rar

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

واضح ولكن طريقتك في التصميم داخل النموذج ستتعبك ستكتشف ذلك لاحقا المهم : تم التطبيق حسب طلبك باستخدام وحدة نمطية عامة تجلب القيمة الجديدة في الحقل A1 ثم باستخدام استعلام التحديث طرحنا هذه القيمة من القيمة الاصلية في الجدول بناء على الرقم المعرف في المثال المرفق تم التطبيق على حقل combo205 فقط Text13.rar

تهنئة للأستاذ ramhan بالاحتراف الف مبروك وشكرا للاستاذ رضوان وللادارة الموقرة