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

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

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