öncelikle rapora aşağıdaki fonksiyonu ekleyip rapor yüklenirken çağırmalısınız

Function ozellikler()

Dim Urs As New ADODB.Recordset

Dim Ors As New ADODB.Recordset

Dim USql, OSql As String



USql = " SELECT tbl_ihtiyac.ihale_id, tbl_ihtiyac.urun_no, tbl_ihtiyac.urun_adi" & _

      " FROM tbl_ihtiyac" & _

      " WHERE (((tbl_ihtiyac.ihale_id)=" & 1 & "))"

Urs.Open USql, CurrentProject.Connection, 3, 1

Do While Not Urs.EOF

    OSql = " SELECT tbl_urunozellikleri.urun_no, tbl_urunozellikleri.teknikozellikleri" & _

          " FROM tbl_urunozellikleri" & _

          " WHERE (((tbl_urunozellikleri.urun_no)='" & Urs(1) & "'));"

    Ors.Open OSql, CurrentProject.Connection, 3, 1

    Me.Metin35 = Me.Metin35 & Urs(2) & " :" & vbNewLine

            Do While Not Ors.EOF

                    Me.Metin35 = Me.Metin35 & "    " & Ors(1) & vbNewLine

            Ors.MoveNext

            Loop

    Ors.Close

    Urs.MoveNext

Loop

Urs.Close

End Function

yalnız 2 sorun var
1 - sisteminiz 64bitlik ofiste sorun çıkarır 2 tane çevrilmesi gereken sub var
2 - özelliklerin gösterildiği metin kutusu çok fazla bilgi girilmişse bozuk görünebilir
dilerim işinize yarar
iyi çalışmalar