Mohamed Abo Elala

اشكرك استاذي علي المجهود و شكرا علي الاستجابة و لكن الاستاذ Foksh افاد بالفكرة التي اريدها بالظبط شكرا استاذ Foksh هذا ما كنت افكر فية بالضبط

Foksh

سجل المحضرين.rar الملف المرفق بة رسائل عند الدخول من فورم frmLogin كرسائل لاحداث قربت اسم المستخدم / محمد ابو العلا كلمة المرور / 111 المطلوب عمل صفحة بها نموذج فرعي يملئ بالبيانات المستخرجة بالرسائل كلمة سر vba 3032 @Foksh kkhalifa1960

شكرا استاذي kkhalifa1960 و لكن تبقي المشكلة قائمة و هي ان النموذج الفرعي لم يظهر بة الا سجل واحد و ليس الثلاث سجلات المرتبطة به

السلام عليكم استاذي Foksh شكرا لردك و علي وقتك اقوم بتنفيذ فكره للاشعارات في برنامجي واريد تعبئة نموذج فرعي ببيانات من جداول مختلفة و هذه هي الغاية اما النموذج الرئيسي فهو غير منضم ايضا و حاولت وبحثت و سألت شات جي بي تي و كان الرد الكود التالي Private Sub Form_Load() Dim db As DAO.Database Dim rs As DAO.Recordset ' Open the database Set db = CurrentDb ' Open a recordset for the desired table Set rs = db.OpenRecordset("YourTableName") ' Move to the first record rs.MoveFirst ' Loop through each record Do Until rs.EOF ' Set the field values of the form to the values in the recordset Me.FieldName1 = rs("FieldName1") Me.FieldName2 = rs("FieldName2") ' Add more lines as needed for each field ' Move to the next record rs.MoveNext Loop ' Close the recordset rs.Close Set rs = Nothing Set db = Nothing End Sub و لكن عند التنفيذ تتم تعبئة اخر سطر فقط في الجدول

هل يمكن تعبئة نموذج فرعي غير منضم ببيانات من جدول عن طريق ريكورد سيت

بالضبط استاذي

شكرا جزيلا استاذي تم و اشتغل الكود نعم الحذف لصف شكرا لاساتذتي Foksh و ابو جودي

بالفعل بحضرها

اشكرك علي ردك استاذي نعم لقد قمت بتعيين قيمة المتغير و نوع المتغير من نوع double

"Delete tblBounce.id From tblBounce Where (((tblBounce.id)= " & x & "));" مع العلم بأن x هو متغير رقمي

الحمد لله تم الحل

حتي عند فتح ملف جديد تظهر الرساله

تم الغاء التقسيم و مازالت تظهر الرساله

نعم القاعدة مقسمة و عملت ربط جديد و لسة بتطلع الرساله مع العلم بان القاعده تعمل بعد الرساله نعم اخي https://www.officena.net/ib/profile/228800-murady/