Foksh

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

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

أحسنت ،، فكرة جميلة جداً أيضاً لدعمك في فكرة أخرى لتعديل جميع السجلات باستبدال 0 في رقم الهاتف في الجدول بمفتاح الدولة Dim db As dao.Database Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT * FROM Table1 WHERE Left(PhoneNumber, 1) = '0'" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do Until rs.EOF rs.Edit rs!phoneNumber = "962" & Mid(rs!phoneNumber, 2) rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

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

انا ، نزلت الملف ، خليني بس أطلع من الشغل ، واشوف الملف وارد عليك لأني لاحظت حاجة كمان انك عامل قيمة الصف في الجدول الرئيسي بتتاخذ من خلال استعلام !!! ودي حتعمل مستقبلاً مشاكل معك وتقيدك كتييييييييييييييييييييييير

وعليكم السلام ورحمة الله وبركات أخي @qathi ،، استكمالاً لطلبك في موضوع سابق ، تفضل هذا التعديل على الزر المسؤول عن السحب من السكانر ,, Private Sub scan1_Click() [picfile] = Null On Error Resume Next Dim filelocation As String ' متغير موقع الملف filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg" 'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg" If scanner.DeviceInfos.Count = 0 Then MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation Exit Sub End If Dim scandiag As New WIA.CommonDialog Dim image As WIA.ImageFile Set image = scandiag.ShowAcquireImage image.SaveFile filelocation Me.picfile = filelocation Me.Refresh End Sub الإضافة كانت فقط في الجملة الشرطية في الكود .. وهذا الملف المرفق بعد التعديل .. Scan01.accdb

مهو احنا بنتكلم عن الربط !!! وانا اذا نسيت أأكد على الموضوع فبعتذر .. الحقول الرئيسية اللي تكلمت عنها فوق هي اللي هنخلي بينها علاقة

تفضل :- WB.accdb

أخي الغالي ، لا أمانع المتابعة معك أبداً ، ولكن افتح موضوع جديد حتى لا نخالف قوانين المنتدى لأن هذا الموضوع قد تم اغلاقه باختيار صاحبه أفضل إجابة . وأيضاً لأن الطلب مختلف عن الموضوع الأصلي

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

للتوضيح أكثر اذا تكرمت .. هل كل فصل له معلم واحد ؟؟ وهل كل فصل له مواد محددة ؟

نعم صحيح ، انا بالنسبة لي هذا أفضل نمط ممكن تكون فيه العلاقات أحسنت أخي @2saad

تفضل أخي @agha4m طلبك ، رغم أن صاحب الموضوع @SAROOK لم يتابع بإغلاقه الموضوع (للأسف) عند حصوله على إجابته باختيار إجابة الأستاذ @محمد احمد لطفى أفضل إجابة . تنسيق شرطي.accdb

يفترض ذلك .. إن لم تجرب لن تعرف الإجابة لسؤالك ثم أن اختيار أفضل إجابة يكون عند إيجادك الحل

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

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

حاول بلورة هذه الفكرة حسب رغبتك ,, WB.accdb

ارفق ملف أخي @mohammadalsheikh مع الصورة

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

صديقي ،، انت تريد استدعاء قيمة الى النموذج الحالي ، أو حتى تريد الإشارة الى كائن موجود في النموذج الحالي ، صح ؟؟ اذا لا داعي لوضع العنوان كاملاً فقط يكفي الإشارة بـ Me.Com1 وهنا سيفهم الكود أن مربع النص Com1 أو الكائه هذا موجود داخل هذا النموذج . لا تغيير في الأكود سوى الذي ذكرته قبل لحظات ، وليس له علاقة ، وإنما قمت بعمل ضغط وإصلاح لقاعدة البيانات فقط

تفضل اخي @العبيدي رعد جرب واعطيني خبر برنامج القرضة الحسنة نسخة 30.zip

قمت بتجربة مثالك ، وجميع المقترضين تظهر لهم جميع البيانات حتى رقم المقترض يظهر

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

بدايةً تأكد أخي @العبيدي رعد من صحة القيم والسجلات التي لا تظهر معك .. وفي حال لم تتوصل لمعرفة المشكلة ، ارفق ملفك هنا للإطلاع عليه ومعرفة السبب

جزاك الله خير ، وأعاننا على هذه ما حيينا