AccessTr.neT

Tam Versiyon: Dolu Alanları Raporlama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7
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ğızImg-grin
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...
Sayfalar: 1 2 3 4 5 6 7