(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.