(29/11/2016, 17:34)ozanakkaya yazdı: [ -> ]Merhaba, siz sorunuzda ""C:\belgeler" yazdığınız için ben kodu o şekilde ekledim.
(29/11/2016, 09:36)tufanbal yazdı: [ -> ]örneğin dosya aç tıklanacak açılan kutudan word seçilecek. dosya konumunun içine de
"C:\belgeler" yazacak
İşin çoğunu yaptım.
Kodu aşağıdaki ile değiştirerek deneyiniz.
Dim fileName As String
Dim Result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Dosya Seç"
.Filters.Clear
.Filters.Add "Word Belgesi", "*.docx, *.doc"
.ButtonName = "Word Belgesini Seç"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = "c:\"
Result = .Show
If (Result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me.dosya_konumu.SetFocus
Me.dosya_konumu = fileName
End If
End With
Sayin tufan bal, siz ne sorarsaniz bu sitede onun cevabini alirsiniz, koddaki filters olayini kendi uygulamama adapte ettim, vesile oldugunuz icin sizede tesekkur ederim.
(01/12/2016, 21:56)accessdelisi yazdı: [ -> ] (29/11/2016, 17:34)ozanakkaya yazdı: [ -> ]Merhaba, siz sorunuzda ""C:\belgeler" yazdığınız için ben kodu o şekilde ekledim.
(29/11/2016, 09:36)tufanbal yazdı: [ -> ]örneğin dosya aç tıklanacak açılan kutudan word seçilecek. dosya konumunun içine de
"C:\belgeler" yazacak
İşin çoğunu yaptım.
Kodu aşağıdaki ile değiştirerek deneyiniz.
Dim fileName As String
Dim Result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Dosya Seç"
.Filters.Clear
.Filters.Add "Word Belgesi", "*.docx, *.doc"
.ButtonName = "Word Belgesini Seç"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = "c:\"
Result = .Show
If (Result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me.dosya_konumu.SetFocus
Me.dosya_konumu = fileName
End If
End With
Sayin tufan bal, siz ne sorarsaniz bu sitede onun cevabini alirsiniz, koddaki filters olayini kendi uygulamama adapte ettim, vesile oldugunuz icin sizede tesekkur ederim.
Sayın accessdelisi, forumun güzelliği de bu olsa gerek.