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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

notrino

Aktif Üye*
 170
 598
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 Bugün,18:59
Çö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
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15
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
 598
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 Bugün,18:59
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 111 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 126 21/12/2018, 13:06
Son Yorum: Oğuz Türkyılmaz
Çözüldü Dosya Açık mı kontrolü bibib 6 244 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 117 16/11/2018, 18:05
Son Yorum: Erkan7450
Çözüldü Ekleme Sorgusu Problemi notrino 6 192 31/10/2018, 18:34
Son Yorum: ozanakkaya

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