ارغب في كاتبة نص موجود في جدول حسب ترتيب واختيار المستخدم

[m.jafer]

السلام عليكم الاخوه الكرم عجزت عن تحليل فكرة عبارة عن انشا نص  من قائمة نصوص تم اختيارها عن طريق المستخدم  مرفق لكم القاعدة التجريبية 

ملحوظه يوجد زر اختيار في حالة نعم يقوم بعمل سطر جديد للاختيار  اللبعدة 

test.accdb

[ابوخليل]

تفضل

Dim i As Integer, R As Integer
Dim x As String, xx As String
Dim rs As Recordset
Set rs = Me.frm_T1.Form.RecordsetClone
rs.MoveFirst
R = rs.RecordCount
For i = 1 To R
  If rs!newline = True Then
  x = rs!nots & " " & rs!TEXTT
  xx = " " & xx & " " & x
End If
rs.MoveNext
    Next
Me.tsmya.Caption = xx

 

test2.accdb

[m.jafer]

بارك الله فيك