KODLARIM :
Kod:
Private Sub Form_Load()
Dim AraBul As Office.FileDialog
On Error Resume Next
If Dir(CurrentProject.Path & "\Datalar.accdb", vbNormal) = "" Then
Set AraBul = Application.FileDialog(msoFileDialogFilePicker)
With AraBul
.AllowMultiSelect = False
.ButtonName = "Dosya Seç"
.Filters.Add "Access Dosyaları", "*.accdb"
.FilterIndex = 0
.InitialFileName = "Datalar"
.InitialView = msoFileDialogViewThumbnail
.Title = "Datalar Dosyasını Seçiniz..."
If .show = True Then
DoCmd.TransferDatabase acLink, "Microsoft Access", AraBul, acTable, "Kullanıcı_Tbl", "Sabitler_Tbl", "Cari_Tbl", True
End If
End With
End If
End Sub