aşağıdaki kodu dener misiniz?
Not: referanslardan Microsoft Access xx.x Object Librar eklenmeli

    Dim fDialog     As FileDialog

    Dim varFile     As Variant



    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

    With fDialog

        .AllowMultiSelect = False

        .InitialFileName = CurrentProject.Path 

        .Title = "Dosya seç"

        .Filters.Clear

        .Filters.Add "PDF-dosyaları", "*.PDF"

        If .Show = True Then

           txtEvrak_Adres = "#" & fDialog.SelectedItems(1) & "#"

        End If

    End With

Merhaba Hocam

Kod çalıştı emeğinize sağlık

Seçtiğimiz evrakı belirlediğimiz dosya içine kayıt ettirebilir miyiz?

(14/01/2022, 10:40)footprinting yazdı: Seçtiğimiz evrakı belirlediğimiz dosya içine kayıt ettirebilir miyiz?

kastettiğiniz şeyi tam olarak anlamadım, pdf dosyası tabloya ek olarak mi eklenecek?

Hocam

Tabloya adres eklenecek ve evraka tutanak ıd numarasını verecek ve Dosyalar klasörüne ekleyecek

(13/01/2022, 21:37)berduş yazdı: seçilen dosyanın sadece adresi mi kaydedilecek yoksa seçilen dosya belli bir yere taşınıp taşındığı yerin adresi mi kaydedilecek

burada dosya taşınacak mi diye sorduğumda

(13/01/2022, 21:39)footprinting yazdı: Dosya adresi kaydedilecek

demiştiniz,
ben şimdi anlamadım seçilen dosya taşınacak mi taşınmayacak mi taşınacaksa ayanı ada sahip bir dosya varsa ne yapacak?
Ayrıca dosya taşınacak mi yoksa kopyası mı alınacak?

(13/01/2022, 21:37)berduş yazdı: ilgili kayıt varsa güncellenip yoksa eklenecek mi?
seçilen dosyanın sadece adresi mi kaydedilecek yoksa seçilen dosya belli bir yere taşınıp taşındığı yerin adresi mi kaydedilecek
bir dosya tek mi seçilebilecek?

Hocam bunun için özür dilerim.

Ben kod yazılınca taşıyacağını sanmıştım.

Hocam
1-Dosya adresi metin kutusuna oturacak
2-Evrak adı Tutanak_Id olacak
3-Erak belirlediğimiz klasöre taşıyacak veya kopyasını alacak

güncellenmesini ve silinmesini isterim ama onun için benim yazdığım kodlarda oynanması gerekiyor.

hocam bana taşıma ve Tutanak_Id sayısını verirsek yeterldir.

sizide çok uğraştırdım bunun için özür dilerim.