Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/10/2018 23:20
Konu Sahibi
notrino
Yorumlar
2
Okunma
255
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
notrino

notrino

Aktif Üye*
79958
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
Çözüldü 
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.




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:23
Köprü yerine aşağıdaki kodu kullanabilirsiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
notrino

notrino

Aktif Üye*
79958
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Klasördeki Dosya İsimlerini Almak ates2014 17 574 27/04/2019, 21:14
Son Yorum: ates2014
Çözüldü Toplu Ekleme Ara Değer Problemi hbal09 4 241 26/12/2018, 14:50
Son Yorum: hbal09
Çözüldü Access'in Masaüstü Dosya İkonunu Değiştirme Oğuz Türkyılmaz 3 281 21/12/2018, 13:06
Son Yorum: Oğuz Türkyılmaz
Çözüldü Dosya Açık mı kontrolü bibib 6 413 13/12/2018, 23:58
Son Yorum: bibib
Çözüldü Access Hazır Satış Database De Müşteri Listesi -Form Bağlantı Problemi Erkan7450 2 229 16/11/2018, 18:05
Son Yorum: Erkan7450

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.