Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Dosya Yolu Problemi

notrino
notrino
Access Cevaplanmış Soruları
2
954

Dosya Yolu Problemi

Çözüldü #1
notrino
Aktif Üye
notrino
Bul
Aktif Üye*
Adı Soyadı:
Yaşı: 47
Konum: İzmir
Ofis Versiyonu: Ofis 2021 64 Bit
Son Oturumu: 19/11/2024,12:43
Yorumları: 656
Konuları: 186
Kayıt Tarihi: 18/02/2016
Teşekkür Puanı: 21
Mesleğiniz: Öğretmen
Merhaba,

Ekli örneğimde, dosya yolu isimli bir köprü oluşturdum ve formda ilgili alan tıklanınca makro çalışıyor. Ancak eğer ekleyeceğim dosya ile Access dosyam aynı dizinde ise dosya yolu görünmüyor, direkt dosyanın adı görünüyor. Eğer ekleyeceğim dosya farklı bir harddiskte ise o zaman tam dosya yolu görünüyor. Ben istiyorum ki ekleyeceğim dosya nerede olursa olsun her zaman "tam dosya yolu" görünsün. (Ek dosya ve Access dosyası masaüstünde olsun mesela; C:\Users\fatih\desktop\ornek.excel gibi tam görünsün) Tşk.
.zip dosya_yolu.zip (Dosya Boyutu: 38,04 KB | İndirme Sayısı: 4)
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,10:43
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Köprü yerine aşağıdaki kodu kullanabilirsiniz.

Dim vrtSelectedItem As Variant

Set DosyaBul = Application.FileDialog(msoFileDialogFilePicker)

With DosyaBul

    .AllowMultiSelect = False

    .ButtonName = "Dosya Seç"

    .Filters.Add "Hepsi", "*.*"

    .FilterIndex = 0

    .InitialView = msoFileDialogViewThumbnail

    .Title = "Seç..."

        If .Show = True Then

            For Each vrtSelectedItem In .SelectedItems

             Me.dosya_yolu = vrtSelectedItem

            Next vrtSelectedItem



   

        End If

End With

Kodu metin kutusunun tıklandığında olayına yazın.
Cevapla
#3
notrino
Aktif Üye
notrino
Bul
Aktif Üye*
Adı Soyadı:
Yaşı: 47
Konum: İzmir
Ofis Versiyonu: Ofis 2021 64 Bit
Son Oturumu: 19/11/2024,12:43
Yorumları: 656
Konuları: 186
Kayıt Tarihi: 18/02/2016
Teşekkür Puanı: 21
Mesleğiniz: Öğretmen
Merhaba Ozan Bey,

Verdiğiniz kodlamanın 12. adımı hata veriyor. Bunu daha farklı şekilde, formumda bir gözat butonu oluşturarak çözdüm. Bu hali ile işimi görüyor. Tşk. Kodlarım aşağıdaki gibidir.

Kod:
Private Sub Komut24_Click()
Call Edit_Hyperlink
End Sub

Sub Edit_Hyperlink()
Dim ButonAdi As String, PencereBasligi As String
Dim BagliDosya As String, Dosya
Dim Yeri As String
ButonAdi = "Dosya Ekle"
PencereBasligi = "Köprü Olusturulacak Dosyayi Seç"
Yeri = "Application.FollowHyperlink \\" & Environ("computername") & "\"
With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "Tum Dosyalar", "*.*"
End With
.AllowMultiSelect = True
.FilterIndex = 1
.ButtonName = ButonAdi
.InitialFileName = vbNullString
.InitialView = msoFileDialogViewDetails
.Title = PencereBasligi
If .Show Then
For Each Dosya In .SelectedItems
BagliDosya = Left(Dosya, InStrRev(Dosya, "")) & "#" & Dosya
Me.[resim] = BagliDosya
Next Dosya
End If
End With
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task