Örnekte; bağlı tabloları sabit diskte bir başka .accdb içerisine maalesef yine bağlı olarak atabiliyorum. Yapmak istediğim; Transfer tuşu ile bağlı tablolardaki verilerin yani DATA tablolarının, veri tabanının bulunduğu klasör içerisindeki TABLOLARDATA klasöründeki “Tablolarım.accdb” içerisine transferi. Önceki transferler silinip yenileri getirilecek… Forum sayfalarında çok gezindim ancak bağlı tablo verilerinin bu şekilde transferine dair sonuç elde edemedim. Amacım tablo güvenliğinin sürekliliği… Hayırlı Cuma’lar… Saygılarımla
sayın azmüsabet,
bahsettiğiniz talebinize yönelik olarak,
ilgili butonun Tıklandığında olay yordamı içerisine aşağıdaki kodu yazdığınız takdirde TABLOLARDATA adlı klasörün içindeki Tablolar.accdb adlı veritabanına tabloları aktarmayı sağlayabilirsiniz.bilginize.
Kod:
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\TABLOLARDATA\" & "Tablolar.accdb", acTable, "Tablo1", "YTablo1"
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\TABLOLARDATA\" & "Tablolar.accdb", acTable, "Tablo2", "YTablo2"
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\TABLOLARDATA\" & "Tablolar.accdb", acTable, "Tablo3", "YTablo3"
iyi çalışmalar,
saygılar.
İlginize Teşekkür ediyorum Sn. atoz112... Ancak yine bağlı tablo şeklinde transferi gerçekleştiriyor. Bağımsız olarak verileri tutmuyor...
Sn Ozanakkaya tüm prosedürü uyguladım ancak gösterilen .accdb içerisine transferi sağlayamadım...
sayın azmüsabet,
sayın ozan bey'in ekledikleri örnek sorunsuz çalışmaktadır.fakat,uygulamanıza adapte etmekte zorluk yaşadıysanız eğer,
bahsettiğiniz talebiniz için aşağıdaki kod ifadesini ilgili formdaki buton içerisine dahil ederek de çözüm elde edebilirsiniz.bilginize.
Kod:
DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT * INTO Tablo1 IN '" & CurrentProject.Path & "\TABLOLARDATA\" & "Tablolar.accdb" & "' FROM Tablo1"
DoCmd.RunSQL "SELECT * INTO Tablo2 IN '" & CurrentProject.Path & "\TABLOLARDATA\" & "Tablolar.accdb" & "' FROM Tablo2"
DoCmd.RunSQL "SELECT * INTO Tablo3 IN '" & CurrentProject.Path & "\TABLOLARDATA\" & "Tablolar.accdb" & "' FROM Tablo3"
DoCmd.SetWarnings True
iyi çalışmalar,
saygılar.