Dolu Alanları Raporlama

bu örnek verdiğiniz kod ile sorguyu oluşturabilirsiniz. ama rapor dediğiniz için olayın yönü değişiyor.

'*********************-----

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

'**********************************

sayın yandemir bu konuda ve bir çok konuda oldukça emeğiniz var
hakkınızı helal edin lütfen..
bu kodu nereye yazacağız

bu zaten sizin verdiğiniz bir kod.
raporda gizleme olayı benim ilk maddede verdiğim örnek dışında çok zor. bu kod ile ancak kendi sorgunuzu oluşturabilirsiniz. bu sorgu da devamlı değişebileceği için yani çıkan alan isimleri her kayıtta farklı olacağı için raporlamada hiç işinize yaramayacaktır.

anladım sayın yandemir..
teşekkür ederim kolay gelsin...