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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

notrino

Aktif Üye*
 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.



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 479
 11.975
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,04:08
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. 

Kullanici Avatari

notrino

Aktif Üye*
 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ü Toplu Ekleme Ara Değer Problemi hbal09 4 170 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 198 21/12/2018, 13:06
Son Yorum: Oğuz Türkyılmaz
Çözüldü Dosya Açık mı kontrolü bibib 6 314 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 166 16/11/2018, 18:05
Son Yorum: Erkan7450
Çözüldü Ekleme Sorgusu Problemi notrino 6 272 31/10/2018, 18:34
Son Yorum: ozanakkaya

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