AccessTr.neT
Ürün Özelliklerinin Teklife Gelmesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ürün Özelliklerinin Teklife Gelmesi (/konu-urun-ozelliklerinin-teklife-gelmesi.html)

Ürün Özelliklerinin Teklife Gelmesi - SeferŞANLI - 20/03/2020

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?

Cvp: Ürün Özelliklerinin Teklife Gelmesi - berduş - 20/03/2020

ö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

Cvp: Ürün Özelliklerinin Teklife Gelmesi - berduş - 20/03/2020 

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


Cvp: Ürün Özelliklerinin Teklife Gelmesi - SeferŞANLI - 20/03/2020

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.

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

Cvp: Ürün Özelliklerinin Teklife Gelmesi - SeferŞANLI - 20/03/2020

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