(21-08-2022, 00:00)adnnfrm demiş ki: 1- Her tablo için ayrı ayrı onay vermem gerekiyor. Tek onaya istinaden tüm tabloları kaynağını güncellemiş olabilir mi?
2- Şifreli bir çalışmada da bu sefer her seferinde şifre soruyor. Bunda da tek şifre girişine istinaden tüm tabloların kaynağını güncellemiş olabilir mi?
3- Bu çalışma eski sürümlerde yapılmış sanırım ben hem accdb den veri çekmek için hemde accde den veri çekmek için kullanmak istiyorum. Nasıl kullanabilirim.

(21-08-2022, 05:53)dsezgin demiş ki:

(21-08-2022, 00:00)adnnfrm demiş ki: 1- Her tablo için ayrı ayrı onay vermem gerekiyor. Tek onaya istinaden tüm tabloları kaynağını güncellemiş olabilir mi?
2- Şifreli bir çalışmada da bu sefer her seferinde şifre soruyor. Bunda da tek şifre girişine istinaden tüm tabloların kaynağını güncellemiş olabilir mi?
3- Bu çalışma eski sürümlerde yapılmış sanırım ben hem accdb den veri çekmek için hemde accde den veri çekmek için kullanmak istiyorum. Nasıl kullanabilirim.

Tablo-Baglama konusu ekinde ki access dosyası kodları kendi uygulamana adapte edebilirsiniz.

(22-08-2022, 13:48)adnnfrm demiş ki: Maalesef hocam. Şifresiz accdb de sıkıntı yok bağlıyor fakat şifreli accdb yi maalesef bağlayamadım. Vba her seferinde farklı satırlarında hatalar aldım o yüzden hata satırını da ilave etmek istemedim. Accde yi ise dosya seçim kısmında zaten hiç göremiyoruz :/ .

Private Sub Bagla()
Dim Yer, Psw, Dosya
Dim VrTbx As Object
        Yer = CurrentProject.Path & "\Tablolar.accdb"
         Psw = "1234"
 If Len(Dir(Yer)) > 0 Then
    Set VrTbx = Application.DBEngine.OpenDatabase(Yer, False, False, ";PWD=" & Psw & "")
    Dim Tbl As TableDef
    Dim rst As DAO.Recordset
    Set rst = VrTbx.OpenRecordset("SELECT Name As Ismi FROM MSysObjects1 WHERE Name Not Like 'Msys*' AND Type=1 And Flags=0 order by name desc")
    If rst.RecordCount = 0 Then Exit Sub
    rst.MoveFirst
    Do Until rst.EOF
        Dosya = rst!Ismi
        For Each Tbl In CurrentDb.TableDefs
            If Dosya = Tbl.Name And Tbl.Properties("Connect") <> "" Then DoCmd.DeleteObject acTable, Dosya
      Next Tbl
              If Dosya <> "Kullanicilar" Then DoCmd.TransferDatabase acLink, "Microsoft Access", Yer, acTable, Dosya, Dosya, False
      rst.MoveNext
    Loop
    rst.Close: Set rst = Nothing
    End If
        Application.RefreshDatabaseWindow
End Sub