rudwan

هذا السؤال ليس مكانه هنا قم بتحرير مشاركة ضمن موضوع الصلاحيات للأخت لينا

تصميم جداولك يحتاج بعض التعديل اطلع على البرنامج الموجود في هذه المشاركة , و هو من تصميم الأخ علي بحر http://www.officena.net/ib/index.php?showtopic=10419

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

هذا رابط موضوع الأخت زهرة في منتديات الفريق العربي للبرمجه http://www.arabteam2000-forum.com/index.ph...ndpost&p=268804

اطلع على الموضوع التالي للأخت زهرة http://www.officena.net/ib/index.php?showtopic=10275 اذا لم يكن فيه طلبك , أعد السؤال ثانية

اطلع على الموضوع التالي http://www.officena.net/ib/index.php?showtopic=10102

لايوجد في الأكسس تعليمة متاحة لمبرمج عند الخروج من الملف لكن كما ذكر أخي ابو طيف , الكود يكون عند الخروج من آخر نموذج يمكنك تصميم نموذج صغير غير منضم خاص باغلاق قاعدة البيانات , و يكون فيه زر يتكفل باغلاق قاعدة البيانات و فيه الأمر : docmd.quit و هنا تستطيع قبل كود الاغلاق هذا وضه التعليمه التي تريدها

السلام عليكم شكرا على جهودك أخ حسين و على بحثك عما هو جديد

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

اكتب في خصائص جدول المستخدمين , حقل كلمة السر , قاعدة التحقق من الصحة len([pass])>5

هذا تعديل مؤقت على الملف انظر نموذج جدول الفصول , من هنا تختار الفصل المطلوب و التاريخ , ثم في النموذج الفرعي تدخل اسماء الطلاب الغياب , مع وضع اشارة صح اذا كان الغياب بدون عذر في حقل abstype الآن انظر استعلامات المجاميع في قسم الاستعلامات ___________4.rar

راجع هذا الموضوع ففيه شرح كافي لما تريد و ان أردت المزيد من الايضاح فلابأس , اسأل و لا تتردد http://www.officena.net/ib/index.php?showtopic=10102

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

توضيح السؤال نصف الاجابة أنت قلت لديك نموذج فرعي , و واذح من كود فتح نموذجك أنه كود فتح نموذج آخر مرتبط بالنموذج الأصلي عبر حقل معين لذلك لن يصلح معك الكود الذي أعطيته لك و انما استخدم كود بويوسف الراشد Private Sub _ Click On Error GoTo Err_أمر193_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "copy_ex1" stLinkCriteria = "[ex_no]=" & Me![ex_no] if ( dcount("MyField","MyTable","[ex_no]=" & Me![ex_no ] >0)) then DoCmd.OpenForm stDocName, , , stLinkCriteria else MsgBox " SubForm Hs No Records " end if Exit_أمر193_Click: Exit Sub Err_أمر193_Click: MsgBox Err.Description Resume Exit_أمر193_Click End Sub

المقصود به الموديول Module انسخ و الصق و احفظ , ثم استدعيها من النموذج

تم تحميل الملف و جاري الاطلاع عليه

اختر في صفحة تصميم الاستعلام , الحقل الذي تريد , رمز المهنة أو تأكيدها , و دع الحقل الذي لاترغب به

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

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

هذه الدالة انسخها كما هي و ضعها في وحدة نمطيه جديده الآن استدعيها في النموذج كما يلي : ذاا كان لديك حقل نص و اسمه MYTEXT ضع في حدث بعد التعديل للحقل الكود التالي PRIVATE SUB MYTEXT_AFTER_UPDATE() me.mytext=proper([me.mytext]) end sub فيتحول النص تلقائيا بعد تحريره الى أحرف كبيرة , أو ضع الكود في أي حدث آخر حسب رغبتك

جرب أن تضع هذا الكود في حدث زر الأمر With Me![SubformName].Form if not(.RecordsetClone.RecordCount > 0) then msgbox " SubForm Hs No Records " exit sub else - أكتب هنا تعليمة فتح النموذج الفرعي end if End With و اخبرني بالنتيجه

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

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

لأجل التعامل مع جميع سجلات الجدول عليك استخدام مجموعة السجلات و تعرف هكذا Dim dbs As dao.Database dim se As dao.Recordset Set dbs = CurrentDb Set se = dbs.OpenRecordset("MyTable") Se.MoveFirst Do Until Se.EOF se.edit se![a1]=se![a2]+se![a3]/100 se.update Se.MoveNext Loop Se.Close

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