Çok ama çok teşekkür ederim. İlgin ve emeğin için.
Rica ederim.
Fazla zamanım olmadığı için progresbarın şeklini felan ayarlayamadım.özellikleden yaparsınız.
% olarak bilmiyorum varmı özelliklerden yoksa bir label ekleyip oraya Label1.caption= me.progressbar3.value & " %"
Gibide yapabilirsiniz kodlatı tahminen yazdım hata olabilir.Label eklersenizyazdığım kodu progressbar3.value yazan satırın altına ekleyebilirsiniz.
Tek kelime ile harika oldu. Emeğine sağlık hocam.
Aslında kafama birşey takılıyordu onu denedim böyle tam oldu.
DoCmd.SetWarnings False
DoCmd.SetWarnings True
DoCmd.RunSQL
Yukarıdaki kodları sildim.
Yerine CurrentDb.Execute ekledim.,
Daha hızlı ve pratik oldu.
Kodlar ve dosya altta.
Mükemmel olmuş feraz ADO nun piri oldun
Bu kodun içine daha önce bahsi geçen tablo yoksa veya sutun sayısı eşit değilse yeni tablo oluşturmayı ekleyebilirsen süper ötesi olur