Arkadaşlar eklediğim programda "frm_malzemeler" formundan "teklif mektubu" butonuyla "rpr_teklifi" açıyorum. Dlooukupla seçilen ürüne ait özellikleri teklif mektubunun altına getirdim. Lakin sadece ilk kayıt geliyor. Listede olan bütün ürünlerin kayıtlı özelliğini nasıl getiririz.

Arkadaşlar sadece bu kısım kaldı. İlgilenebilir misiniz?

ö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

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

satırını aşağıdaki satırla değiştirirseniz listeye sıra no da eklenir

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

Sayın Berduş-kodu kendi çalışmama ekledim ama metin35 boş geliyor. Şöyleki kodu ümünü seçerek yüklendiğinde olay yordamına yapıştırdım ve metin kutusunun içeriğini (dlookup ifadesi) silip ilişkisiz yaptım. Lakin göstermedi.

Pardon(((( özelliikler fonksiyonunu çağırmayı unutmuşum. Özürdilerim. Teşekkürler.

Teşekkür ederim. Sağolasınız.