السلام عليكم
بالنموذج لدي كود يقوم بجمع جميع الاسماء الواردة بالحقل (Relation)
والكود هو :
Dim i, s As Integer Dim d As Variant s = [Table2 subform].Form.RecordsetClone.RecordCount Me.Table2_subform.SetFocus [Table2_subform].Form![tel].SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To s d = [Table2_subform].Form![tel] Me.Table2_subform.SetFocus DoCmd.GoToRecord , , acNext Me.mr_access.SetFocus Me.mr_access = Me.mr_access.Text & " æ " & d Next
المطلوب : تعديل علي الكود بحيث عند الضغط يجمع الاسماء التي بالحقل (Relation) ما عدا الاسم الذي يقابلة رقم 3 او اكثر بالحقل (Privet).
مع الشكر