ابو البشر

ماذا تقصد بليس لها علاقة بالتطبيق .... ممكن مثال لهذه العبارات ؟؟

ربما فهمت مطلوبك .... جرب 20231211.accdb

الية العمل غير مفهوم لدي !!!! معليش متى تريد ظهور الرسالة السابقة في اي الحالات ؟؟؟

تقصد ده <<<<<<<<<<<<<<<<<<<<<<

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

للاسف عملتها على عجل لكن يبدو لي هناك طرق افضل من هذا <><><><><><><><><> Rac.accdb

طيب اتبع هذه الخطوات .....

باستخدام خاصية البحث في المنتدي ............ هناك العشرات من تصاميم الات الحاسبة بأنواعها واشكالها المختلفة

ويجب ان تكون الصورة بصيفة BMP فقط ...

عن طريق اطار عنصر منضم ...

تفضل استاذي <><><><>

بارك الله فيك اخونا الشباب في فكرك والكبير قدرا .... ممكن الكود الذي اشرت اليه ( الطريقة الثانية ) للعلم والاستفادة ... جزاك الله خيرأ ..... لانه لدي كود واريد ان استفيد من تعدد الطرق ...

طيب جرب ده ...... UPDATE DISTINCTROW (TableX INNER JOIN qy_kan ON TableX.NameX = qy_kan.NameX) LEFT JOIN KindX ON qy_kan.Expr2 = KindX.LikeB SET TableX.NameX = Replace([TableX].[NameX],[LikeA],""), TableX.KindX = [KindX].[LikeB] WHERE (((qy_kan.Expr2)<>""));

؟؟؟؟؟ !!!!!!

ضع داخل زر الحفظ هذه الشيفرة ..... Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb Dim RC, i, r As Integer Set rstTo = db.OpenRecordset("tbl_add_fasl", dbOpenDynaset) Set rstFrom = db.OpenRecordset("SELECT tbl_saf.id_m, tbl_saf.mr, tbl_saf.id_saf, tbl_saf.saf, tbl_saf.add_fasl FROM tbl_saf WHERE (((tbl_saf.id_m)=" & [Forms]![frm_m_r_f]![cb_mr] & "));", dbOpenDynaset) rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC For r = 1 To rstFrom!add_fasl rstTo.AddNew rstTo!id_m = rstFrom!id_m rstTo!mr = rstFrom!mr rstTo!id_saf = rstFrom!id_saf rstTo!saf = rstFrom!saf rstTo!add_fasl = r rstTo.Update Next r rstFrom.MoveNext Next i rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing

جرب الملف ..... New Microsoft Access قاعدة بيانات.rar

معوض خير

بالاضافة لما ذكر اخي @عمر ضاحى هل لديك نسخة احتياطية

طيب وحدة وحدة عشان نفهم .... انت لديك في النموذج زران .... انظر ... 1_ ماهي وظيفته بالضبط 2_ ما هي وظيفته بالضبط ممكن شرح بسيط ...

ما شاء الله تبارك الله مبارك عليكم @عمر ضاحى و @Foksh واعانكم الله على نفع رواد المنتدى

اخي @عبد الله قدور هل تمكنت من اخفاء عبارة ملف من الشريط بارك الله فيك

هذا ما يوجد بالملف .....

الافضل تعمل جدول خاص بالاسماء ثم تجعل مصدر القائمة هو ذلك الجدول .... للعلم لم اجد اسماء في ملف التكست

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

وعليكم السلام هل الاسم في حقل واحد ام الاسم نجزأ بمعنى اسم الابن في حقل والاب في حقل وهكذا....