11-03-2024, 16:22
(En son düzenleme: 11-03-2024, 21:42 umutakkaya.)
Ekteki gibi iki access veritabanından birindeki tabloları diğerine link table <Bölünmüş Tablo> olarak VBA Kodlar ile bağlamak istiyorum.
Bağlantılı tablo yöneticisini MS Access'te VBA kullanarak programlı olarak çalıştırmanın bir yolu var mı?
Yani resimdeki gibi manuel olan bütün işlevler Kodlarla olsun.
Bağlantılı tablo yöneticisini MS Access'te VBA kullanarak programlı olarak çalıştırmanın bir yolu var mı?
Yani resimdeki gibi manuel olan bütün işlevler Kodlarla olsun.
Visual Basic
- Sub denememe()
-
- Dim dbE As New DAO.DBEngine
- Dim db As DAO.Database
- Dim strNewPath As String = "c:\Database1.Accdb"
-
- db = dbE.OpenDatabase("c:\Database2.accDB")
-
- For Each td As DAO.TableDef In db.TableDefs
- If Len(td.Connect) < 0 Then
- 'buraya hangi kodları yazabilirm ki
- ' Database1.Accdb Veritabanındaki tablolar
- ' Database2.Accdb Veritabanındaki tablolar ile Link bağlantı kursun
-
-
-
- ' If Strings.Left(td.Connect, 9) = ";DATABASE" Then
- 'td.Connect = ";DATABASE=" & strNewPath
- 'td.RefreshLink()
- 'End If
- End If
- Next
- db.Close()
- End Sub