السلام عليكم ورحمة الله
الإخوة الكرام سؤال هو :
هل يمكن عمل الحلقة التكرارية على النموذج بدلا من عملها على الجدول؟ وذلك بهدف ادراج كافة السجلات المعروضة في النموذج إلى مربع النص
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("table1")
Do Until rs.EOF
t1.Value = t1 & rs!F1
rs.MoveNext
Loop
rs.Close
Set db = Nothingتم تعديل هذه المشاركة بواسطة m00j في 27 ديسمبر 2011 في 19:53
وجدت رابــــــــــــــــــــــــط يتكلم عن نفس الموضوع وحاولت اطبق واعدل الاكواد فيه ولكن لم اوفق لحل :dry: :dry:
آمل ممن لديه خبرة المشاركة في الحل وشكرا
بمثال بسيط لدي حقلين وهما كالتالي:
text1
نص1
نص2
نص3
باستخدام مفتاح يتم النقر عليه ومن ثم تنتقل السجلات الثلاثة إلى :
text2
نص1 نص2 نص3
في صف واحد
تم تعديل هذه المشاركة بواسطة m00j في 28 ديسمبر 2011 في 16:04
اخت زهرة شكرا على الرد ولكن هذا لا يفي بالغرض وفقك الله والسبب اني لم اكن واضح بما يكفي :) ,, فانا احتاج ان اضيف السجلات المعروضة في النموذج فقط آآآمل الاطلاع على المرفق
وفكرة الحل : اما اضافة المعيار للكود السابق.
كشيء من هذا القبيل :
set rs1 = db.OpenRecordset("SELECT Field1, Field2, Fiel3 FROM " & Me.RecordSource & " WHERE Field3 = me.forms.form1.list1")او تنفيذ عملية الدوران على سجلات النموذج المعروضة فقط .
آمل ان يتسع صدرك لطلبي وشكرا لك سلفا .
تم تعديل هذه المشاركة بواسطة m00j في 29 ديسمبر 2011 في 12:54
اخي الفاضل : موج
اذا كنت تريد اظهار القيمة المعروضه فقط في النموذج بعد عملية الإختيار فهنا يلزمك القيام بعمل جدول مؤقت Temp يتم فيه تخزين القيمه بعد الفلتره ثم يتم اخذ هذه القيمة من الجدول الموقت هذه هي الطريقة المتبعة في مثل هذه الحالات
لاحظ الكود بعد التعديل في مثالك وستعر الطريقة
بالتوفيق
شكر جزيلا اخت زهرة الحل فعال :)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…