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.