ابو البشر

تفضل <><><><><><><><> قاعدة بيانات مدرسية.accdb

هي نص .... كيف يكون رقم ...... الناتج ماهو 123456789

هل هذا هو طلبك اخي الكريم ...............

جرب هذا ............. Me.RecordSource = "SELECT TOP " & Me.txtTop & " Query1.العمر, * FROM Query1 ORDER BY Query1.العمر ASC;"

تحتاج اعادة ترتيب للكود ...... وخاصة قاعدة IF

تفضل <><><><><><><><> ملفك بعد التعديل باستخدام نفس الاستعلام لديك .... Exam.accdb

اين اسماء المواد في الجداول ..... ( جدول الامتحان وجدول لجان الامتحان ) ؟؟؟؟؟

انت يبدو لي نسخت الكود من برنامج اخر والصقته دون تعديل بما تريد حاول مسح وتقليص الكود حسب احتياجك انت ...

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

ربما فهمت مطلوبك .... جرب 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

معوض خير