Ülke Düzenle Yan Yana

1 2 3 4
29/04/2022, 18:16

userx

References' ten Microsoft ActiveX Data Objects X.X Library seçmelisiniz.
29/04/2022, 22:13

golf2000

Sayın. Atoykan Hocam Evet Değişken Ülkeler
29/04/2022, 22:43

golf2000

Sayın. Userx Hocam Evet Taşıma İşlemi Yapıyor.

Fakat Taşırken Sütunları Karıştırıyor Ülkeler
Eski Sırasına Tekrar Gelmiyor
Birde Farklı Bir Ülke Eklemek İstesem Eklemiyor

Teşekkürler
30/04/2022, 12:10

atoykan

(29/04/2022, 13:56)berduş yazdı: önce aşağıdaki koda sahip bir sorgu oluşturun adı Cp olsun
TRANSFORM Ülke_Düzenle2.Ülke
SELECT Ülke_Düzenle2.sayı, Ülke_Düzenle2.Otel_Adı, Ülke_Düzenle2.tutar
FROM Ülke_Düzenle2
GROUP BY Ülke_Düzenle2.sayı, Ülke_Düzenle2.Otel_Adı, Ülke_Düzenle2.tutar
PIVOT Ülke_Düzenle2.Ülke;
daha sonra aşağıdaki kodu butona atayıp dener misiniz?
CurrentDb.Execute "INSERT INTO Ülke_Düzenle ( sayı, Otel_Adı, Ülke_1, Ülke_2, Ülke_3, Ülke_4, Ülke_5, tutar ) " & _
          "SELECT sayı, Otel_Adı,[Danimarka],[İtalya],[Belçika],[İngiltere],[Romanya],[tutar] " & _
          "FROM Cp;"
Not: yapmaya çalıştığınız şeyi tam anlamadım ama eldeki verilere göre bu kodlar işinize yarayabilir

Sayın @berduş Hocamızın yazdığı 1. koddaki sorgu Pivot özelliği ile yeni eklenen ülkeler için alan tanımlanmasını sağlar bunların tablonuzda yer almasını istiyorsanız 2. kodda bir append query ile tablo oluşturmanız gerekir. Ülke_Düzenle tablosunu tekrar kullanmak istiyorsanız oluşturacağınız tablo XYZ gibi yeni bir tablo olmalıdır. Bu çerçevede @berduş Hocamın verdiği 2. kodu


DoCmd.DeleteObject acTable, "XYZ"
CurrentDb.Execute "SELECT cp.* INTO XYZ FROM cp;"

şeklinde revize ederek kullanırsanız yanyana istediğiniz kadar ülke eklesenizde tablonuzu oluşturmuş olursunuz.
30/04/2022, 18:04

userx

Sayın @golf2000 ekteki dosyayı inceler misin?
01/05/2022, 17:30

golf2000

Sayın Userx hocama, Berduş hocama ve Atoykan hocama ellerinize emeğinize sağlık teşekkür ederim


Tam istediğim gibi oldu
Konumla ilgilenen tüm arkadaşlara da ayrı ayrı çok teşekkür ederim
1 2 3 4