SELECT Ülke_Düzenle.sayı, Ülke_Düzenle.Otel_Adı, IIf(Not IsNull([Ülke_1]),[Ülke_1],IIf(Not IsNull([Ülke_2]),[Ülke_2],IIf(Not IsNull([Ülke_3]),[Ülke_3],IIf(Not IsNull([Ülke_4]),[Ülke_4],IIf(Not IsNull([Ülke_5]),[Ülke_5]))))) AS Ülke, Ülke_Düzenle.tutar
FROM Ülke_Düzenle;

Sub BosOlmayan()
Dim Kayit As New ADODB.Recordset
Dim Sutun As ADODB.Field
Dim SrgYp As QueryDef
Dim SrgTxt As String
Const SQLA As String = "SELECT Ülke_Düzenle.sayı, Ülke_Düzenle.Otel_Adı, Ülke_Düzenle.[WWWW] As Ülke, Ülke_Düzenle.[WWWW_Kod] As Kodu, Ülke_Düzenle.[WWWW_Oda] As Odasi, Ülke_Düzenle.[WWWW_Tutar] As Tutari " & _
"FROM Ülke_Düzenle WHERE (((Ülke_Düzenle.[WWWW]) Is Not Null)) ORDER BY Ülke_Düzenle.sayı"
Kayit.Open "Ülke_Düzenle", CurrentProject.Connection, adOpenStatic, adLockOptimistic
For Each Sutun In Kayit.Fields
    If Left(Sutun.Name, 5) = "Ülke_" And Eval("'" & Right(Sutun.Name, 3) & "' Not In('Kod','Oda','tar')") Then SrgTxt = SrgTxt & Replace(SQLA, "WWWW", Sutun.Name) & " UNION "
Next Sutun
On Error Resume Next
DoCmd.DeleteObject acQuery, "Gecici"
Set SrgYp = CurrentDb.CreateQueryDef("Gecici", Mid(SrgTxt, 1, Len(SrgTxt) - 7))
Application.RefreshDatabaseWindow
End Sub