نجوم المشاركات

بالنسبة لي ارى ان التصميم خاطىء يجب ان يبقى الرقم القومي فريد لا يتكرر .. مع البيانات الأخرى الثابتة اما السنوات والبيانات المتغيرة فتدرج في جدول آخر فرعي

يمكنك إنشاء الجدول tblRecords قم بعمل الحقول NationalID النوع: Text (نص) الطول: 14 (أو حسب طول الرقم القومي الخاص بك) RecordYear النوع: Number (رقم) الحجم: Integer (عدد صحيح) قم بتحديد NationalID , RecordYear كحقول مفتاح مركب (Composite Key) لضمان عدم تكرار الرقم القومي لنفس السنة لعمل المفتاح المركب: بعد إضافة الحقول اضغط على Ctrl من لوحة المقاتيج واستمر بالضغط عليها أثناء تحديد الحقول NationalID , RecordYear انقر بزر الماوس الأيمن على أي من الحقول المحددة واختر "Primary Key" (مفتاح أساسي) من القائمة المنسدلة بذلك سوف يظهر رمز المفتاح بجانب الحقول المختارة الان قم باعداد نموذج لإدخال البيانات في الجدول tblRecords تأكد من تأكد من أن لديك مربعات نصية باسماء txtNationalID , txtRecordYear في نموذج إدخال البيانات الان على زر الامر حفظ اضف الكود الاتى : Dim db As DAO.Database Dim rst As DAO.Recordset Dim strSQL As String Dim NationalID As String Dim RecordYear As Integer NationalID = Me.txtNationalID.Value RecordYear = Me.txtRecordYear.Value strSQL = "SELECT * FROM tblRecords WHERE NationalID = '" & NationalID & "' AND RecordYear = " & RecordYear Set db = CurrentDb Set rst = db.OpenRecordset(strSQL) If rst.EOF Then DoCmd.RunCommand acCmdSaveRecord MsgBox "Record saved successfully!", vbInformation Else MsgBox "This National ID is already present for the year " & RecordYear & ".", vbExclamation End If rst.Close Set rst = Nothing Set db = Nothing

وعليكم السلام ورخمة الله مرحبا بك أخي الكريم ( asa1984 ) من ليبيا الشقيقة نود مساعدتك كثيراً ولكن إذا قمت برفع القاغدة على المنتدى تكون قد ساعدتنا كتيراً وشكرا جزيلا لك

انا لم اجرب بعد 2 اقترح اضافة صندوق نص و كود استبدال نجمة "*" بسطر جديد يسحب النص الى نص بسطر جديد للتنسيق

رائع جدا هل يمكن أن تظهر النتيجة بشكل منسق لتسهل القراءة (تظهر لي جميع الأسطر مدمجة في سطر واحد)

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

دليل الترحيل في الصفحة 1 بالعمود A موجود 1 , 2 بينما دليل الترحيل في الصفحة2 بالعمودِA موجود 1 قثط وبعده 3 ولا يوجد الرقم 2 جرب امسح الرقم 3 في الصفحة 2 في دليل الترحيل واكتب الرقم 2 ولاحظ النتيجة

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير الاستاذ @kkhalifa1960 اسعد الله صباحكم طيب ايه رايك اقول لحضرتك على فكرة بنت حلال وبسيطة قوى قوى وقمة فى السهولة نمسح كل كل الاكواد وكل الوحدات النمطية من المرفق وننشئ وحدة نمطية جديدة مثلا باسم : basFillFields ونضع بها الدوال الاتية Option Compare Database Option Explicit Const ListBoxFormName As String = "frm_Specifications" Public Function OpenListBoxForm(FormName As Form) DoCmd.OpenForm ListBoxFormName, , , , , acDialog, FormName.Name & ";" & FormName.ActiveControl.Name End Function Public Function UpdateFieldFromListBox(FormName As String, FieldName As String, SelectedValue As Variant) Forms(FormName).Controls(FieldName).Value = SelectedValue End Function بس كده وفى كل النماذج فقط يكون الكود Option Compare Database Option Explicit Private Sub CmdClose_Click() DoCmd.Close End Sub اما بالنسبة لنموذج :frm_Specifications سوف نستخدم الاكواد الاتية Option Compare Database Option Explicit Dim Args() As String Private Sub List0_DblClick(Cancel As Integer) Args = Split(Me.OpenArgs, ";") Call UpdateFieldFromListBox(Args(0), Args(1), Me.List0.Value) DoCmd.Close acForm, Me.Name End Sub Private Sub List0_Click() Args = Split(Me.OpenArgs, ";") frm1 = Args(0) Txt2 = Args(1) Me.Txt1 = Me.List0.Column(0) End Sub Private Sub cmdOK_Click() Call UpdateFieldFromListBox(Args(0), Args(1), Me.List0.Value) DoCmd.Close acForm, Me.Name End Sub وطبعا انا استخدمت الاكواد السابقة للحفاظ على التصميم والية العمل وفقا للمرفق تماما ولكن يمكن فقط استخدام هذا الجزء فقط والاستغناء عن باقى الاكواد الاخرى Option Compare Database Option Explicit Dim Args() As String Private Sub List0_DblClick(Cancel As Integer) Args = Split(Me.OpenArgs, ";") Call UpdateFieldFromListBox(Args(0), Args(1), Me.List0.Value) DoCmd.Close acForm, Me.Name End Sub طيب الان نصل الى اهم واجمل جزء الاستدعاء سوف اقوم باستخدام Expression Builder لاستدعاء الدالة بالشكل التالى =OpenListBoxForm([Form]) واخيرا المرفق DDTest602-3.accdb

عمل جميل ويستحق التجربة 🤗 . عندي استفسار بسيط ؛ من خلال الفيديو ما سبب ظهور الشاشة التي باللون الزهري عند النقر على صورة المركبة لتحديد مكان الحادث أو الضرر ( باعتبار أن الفكرة قد تستخدم في شركات التأمين على السيارات... ) . 💡لم اقم بتحميل الملف وتجربته وإنما من خلال الفيديو 💡

نرجو الإهتمام بالعنوان ليمثل وصف المشكلة وذلك إلتزاماً بقواعد المنتدى لتلافي إغلاق المواضيع.

استاذي ومعلمي @ابو جودي دائماً مبدع . جزاك الله عنا كل الخير . سامحني عاوز أعطيك حقك أكثر من ذلك لكن من أول يوليو أجريت 5 عمليات جراحية منهم 2 بالعين اليمني .........