Skip to main content

AccessTr.neT


Dolu Alanları Raporlama

Dolu Alanları Raporlama

Çözüldü #37
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
'**********************************
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #38
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
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
Çözüldü #39
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.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #40
anladım sayın yandemir..
teşekkür ederim kolay gelsin...
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da