aşağıdaki kodu dener misiniz?

Sub DikeyYap()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim xTblAdi As String

xTblAdi = "GELEN_BILGI"



Set db = CurrentDb

Set rs = db.OpenRecordset("SELECT * FROM [" & xTblAdi & "]")



 For Each fld In rs.Fields

 If fld.Name <> "NSN" Then

 xSql = xSql & vbNewLine & _

        "union all " & vbNewLine & _

        "select NSN, " & fld.Name & " as Cevap from [" & xTblAdi & "] where Not isnull(" & fld.Name & ") "

 End If

 Next

 xSql = Mid(xSql, 15)

 

'Sorgu Kontrolü Ve Oluşturma_________________hy

Varmi = False

xDikeySorgu = "AltAltaSQL"

For Each SrgAd In CurrentDb.QueryDefs

    If SrgAd.Name = xDikeySorgu Then

       SrgAd.SQL = xSql

       Varmi = True

       Exit For

    End If

Next SrgAd

If Varmi = False Then Set qd = CurrentDb.CreateQueryDef(xDikeySorgu, xSql)

    DoCmd.OpenQuery xDikeySorgu

'_______________________________________________hy



rs.Close

Set rs = Nothing

Set db = Nothing



End Sub