(15/10/2016, 11:15)ates2014 yazdı: Sy.ozan, bu çalışmanızı 64bit'de çalışır hale getirebilirmisiniz lütfen
1-) Referanslara "Microsoft Office 1X.0 Object Library" referansını ekle,
2-) Ekle isimli butonun tıklandığında olayındaki koddaki
Me![txtEklenti] = GetOpenFile_CLT("", "Gönderilecek Dosya Seçin.")
kodunu sil, yerine aşağıdaki kodu ekle
Dim Sonuc as integer
With Application.FileDialog(msoFileDialogOpen)
.Title = "Select a file"
.Filters.Clear
.Filters.Add "Tüm Dosyalar", "*.*"
.AllowMultiSelect = False
.Title = "Seçiniz"
.InitialFileName = CurrentProject.Path
Sonuc = .Show
If (Sonuc <> 0) Then
Me![txtEklenti] = Trim(.SelectedItems.Item(1))
End If
End With