AccessTr.neT

Merhaba arkadaşlar,
DATA Klasöründeki dosya isimlerini listeye almak istiyorum,
nasıl yapabilirim.?

güncelle butonunun kodu;

Private Sub Komut2_Click()

Dim StrDosyaAdi As String



StrDosyaAdi = Dir$(CurrentProject.Path & "\data\")

Do While StrDosyaAdi <> ""

    Liste0.AddItem StrDosyaAdi

    StrDosyaAdi = Dir$

Loop



End Sub

olarak dener misiniz?

Çok teşekkür ederim haliliyas hocam,
bu listeden seçmiş olduğum veri tabanını programıma nasıl bağlayabilirim?

Tam olarak anlayamadım ne yapmak istediğinizi.
Amacınız seçtiğiniz vt'deki tabloları kendi vt'nizin içine aktarmak  mi(import)?
Mesela yedeklediginiz tablolari geri yüklemek gibi mi?

Aynen dediğiniz gibi hocam,
her yıl için veri tabanını yedekliyorum,
bu liste sayesinde geçmiş yılın veri tabanına 1 butonla bağlanmak istiyorum,
bunu nasıl yapabilirim?

tüm tabloları otomatik olarak mı alacaksınız yoksa tablo seçimi mi yapılacak?
sorgular falan da alınacak mı?

---

temel mantık aşağıdaki gibidir

DoCmd.TransferDatabase acImport, "Microsoft Access", _ 

    "veritabanınıntamyoluveadı", acTable, "tablonunadı", _ 

    "tablonunyeniadı"

örnek çalışma ektedir.
çalışmada seçtiğiniz seçeneğe göre tabloyu bağlar yada içeri aktarır
not: klasör isminde Türkçe karakter olunca sorun çıkarabiliyor maalesef