AccessTr.neT

Hocam, bu saate yordum sizi ama, ne esc çalıştı ne de teklif_t_f deki yükle butonu çalıştı... Yine de deneyeceğim.

"teklif_t_f deki yükle" koduna dokunmadığımı belirtmiştim zaten ,
ESC kısmın gelince "çıkmak için ESC tuşuna basın " denilen mesajların altına yazdığımda ben esc ye basmasam da esc"ye basmışım gibi iptal edip çıkmıştı ben de.

aşağıdaki çalışma ozan beyin eklemenizi istediği  modül eklenip -MdlEsc- 64bit uyumlu hale getirilmiştir.
ozan beyin belirttiği diğer adımlar size bırakılmıştır

Üstadım, Esc tarafı tamamdır. Gözat penceresini getirtemiyorum. Bir o kaldı. 32 bitte çalışıyordu. Teklif_T_F altındaki alt formdaki Yükle butonu 32bitte çalışıyordu. 64 bit için yazdığınız kodları denedim. olmadı. Herşey için tekrar teşekkür ederim.

Komut55'in tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Const msoFileDialogFilePicker As Long = 3



   Dim fd As Object

   Set fd = Application.FileDialog(msoFileDialogFilePicker)

   With fd

    .InitialFileName = "\\server\ELEKSOFT\Servis Raporları"

    .Filters.Clear

    .Filters.Add "Excel Files", "*.xlsx, *.xls"

    .Filters.Add "Word Files", "*.doc, *.docx"

    .Filters.Add "Tiff Files", "*.tif"

    .Filters.Add "Picture Files", "*.jpg"

    .Filters.Add "Acrobat Files", "*.pdf"

    .Filters.Add "All Files", "*.*"

    

    .Title = "Dosya Seç"



   If .Show = -1 Then

   DOSYA.Value = "#" & .SelectedItems(1) & "#"





   Else

   End If

 End With



   Set fd = Nothing

Hocam,

Her ikiniz de harikasınız. Destekleriniz için teşekkür ederim. Konuyu kapatabiliriz.