+- 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ığı: Dolu Alanları Raporlama (/konu-dolu-alanlari-raporlama.html)
Cvp: Dolu Alanları Raporlama - Yandemir - 27/08/2011
alpeki benim araştırdığım konuyu yapıyorsun
çözümünü banada ver takıldım
Cvp: Dolu Alanları Raporlama - karaayhan - 28/08/2011
konu benim sorum dışında mı devam ediyor anlamadım ?
çözüm varsa lütfen paylaşın
Cvp: Dolu Alanları Raporlama - alpeki99 - 28/08/2011
Sizin soru eksenli gibi devam ediyor ama sanki biraz kayma oldu.
Cvp: Dolu Alanları Raporlama - karaayhan - 28/08/2011
bir üstadın önerisini paylaşmak istiyorum buradan umarım cevap açısından faydalı olur, zira kodun içeriği bizim sorguyu verecek gibi ama ben yapamadım..
'*********************-----
Sub TEST()
MsgBox CreateReportSource(1)
End Sub
Function CreateReportSource(musteri_no As Long) As String
Dim rs As New Recordset
Dim fld As ADODB.Field
Dim s As String
Dim i As Integer
s = "select * from [tblürün] where [müşterino] = " & musteri_no
rs.Open s, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
ReDim arr(1 To 1)
For Each fld In rs.Fields
If (Not IsNull(fld) Or Len(fld) > 0) Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = "[" & fld.Name & "]"
End If
Next
rs.Close
CreateReportSource = _
"SELECT " & Join(arr, ", ") & Chr(13) & _
"FROM [tblürün] " & Chr(13) & "WHERE [müşterino] = " & musteri_no
End Function
'**********************************
Cvp: Dolu Alanları Raporlama - mehmetdemiral - 28/08/2011
Bu verilen kod ile sorguyu msgbox'ta görebilirsiniz. Bunun için bir butonun tıklama yordamına TEST yazın. Verilen kodu da uygun bir boşluğa yapıştırın, o zaten kendi sözdizmini bulacaktır. Bir de hata uyarısı alırsanız referanslarda ADO'yu DAO'nun üstüne taşıyın. Önce DAO yorumlamaya çalıştığı için hata alırsınız. Bunları yaptıktan sonra düğmeye bastığınızda bir mesaj kutusu içinde Sql cümleciğini göreceksiniz. Zaten bu test amaçlı bir çalışma. Burda sonuç aldıysanız artık bu Sql cümleciğini işleterek bir Sql sorgusu oluşturup kullanacaksınız. Gördüğüm kadarıyla oluşan sorguda boş alanlar yok. Ama bu cümlecikten nasıl Sql sorgusu oluşturacaksınız onu ben de bilmiyorum. Sql bilgim fazla değil. Sql konusunda uzman arkadaşlar var sitemizde, onlar yardımcı olacaklardır.
Cvp: Dolu Alanları Raporlama - Yandemir - 28/08/2011
sorgu tamam ise şimdi birde esnek rapor kaldı geriye.