21/12/2020, 22:52
nasıl kullanacağınızı bilmiyorum ama eğer isimlendirme sistemi ulke_Sayı biçimindeyse sorgu for döngüsüyle dinamik olarak da oluşturulabilir
1 - referanslardan microsoft activex Data Object xx.x library eklenmeli
2 - aşağıdaki kod bir butona atanmalı
debug.print komutu immidiate ekranına yazar
1 - referanslardan microsoft activex Data Object xx.x library eklenmeli
2 - aşağıdaki kod bir butona atanmalı
debug.print komutu immidiate ekranına yazar
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim Fld As ADODB.Field
Set ADO_RS = New ADODB.Recordset
SQL = "select * from [Ülke_Düzenle]"
ADO_RS.Open SQL, CurrentProject.Connection, 3, 1
For Each Fld In ADO_RS.Fields
If Left(Fld.Name, 5) = "Ülke_" Then
SqlUnion = SqlUnion & " union " & _
" SELECT Ülke_Düzenle.sayı, Ülke_Düzenle.Otel_Adı, Ülke_Düzenle." & Fld.Name & " As [Ülke], Ülke_Düzenle.tutar " & _
" FROM Ülke_Düzenle " & _
" WHERE ((Not (Ülke_Düzenle." & Fld.Name & ") Is Null))"
End If
Next
Debug.Print Mid(SqlUnion, 7) & ";"