AccessTr.neT

Tam Versiyon: Formdan Evrak Seçip Kaydetmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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.
Sayfalar: 1 2 3