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