(19/03/2019, 21:26)haliliyas yazdı: tablolar arasındaki ilişkiyi kesince hem taşıma da hem de tabloya eklemede sorun çıkarmadan çalıştı. taşımada sorun çıkmıyor ama tabloya eklemede ilişkili olduğu için -tabloda o ad olmadığından- sorun çıkarıp tabloya eklemiyor.
ilişkileri kesmeseniz de Lcase(kişiadı) ile yine genelde ekliyor - ş.ç,ğ gibi dosya isimlendirmesinde kullanmadığınız ama tabloda kullandığınız isimler hariç- ama müşteri tablosunda o adın olması şart.

Kod:

Dim MyFile As String
Dim txtDosyaAdi() As String
'On Error Resume Next

ReDim DirectoryListArray(1000)

MyFile = Dir$(CurrentProject.Path & "\Müşteriler\_Tarananlar\*.pdf")
Counter = 0
Do While MyFile <> ""
   DirectoryListArray(Counter) = MyFile
   MyFile = Dir$
   Counter = Counter + 1

Loop

For x = 0 To Counter - 1
xMyFile = DirectoryListArray(x)
txtDosyaAdi = Split(xMyFile, "_")

xKonum = CurrentProject.Path & "\Müşteriler\_Tarananlar\"

Xhedef = CurrentProject.Path & "\Müşteriler\" & txtDosyaAdi(0)
If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef
Xhedef = Xhedef & "\" & Replace(txtDosyaAdi(3), ".pdf", "")
If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef
Xhedef = Xhedef & "\" & txtDosyaAdi(1)
If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef
Xhedef = Xhedef & "\" & txtDosyaAdi(2)
If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef
Xhedef = Xhedef & "\"

Name xKonum & xMyFile As Xhedef & xMyFile

DoCmd.RunSQL "insert into 2_Dosya_Link_T (MUSTERI_ADI,DOSYA_LINK) values ('" & _
             Lcase(txtDosyaAdi(0)) & "', '#" & Xhedef & xMyFile & "#');"
Next

Merhaba Üstadım,

Dediğiniz gibi, taşımayı sorunsuz yapıyor. Hatta, Türkçe karakterleri destekleyerek yapıyor. Ve yine hatta, şayet dosyaya ait bir üst ya da alt klasör yok ise, onları bile create edip oluşturuyor. Ellerinize, emeğinize sağlık. Minnettarım. Teşekkürler.

Yalnız, ben şurayı atladım size anlatırken, dosyayı taşıyor doğru. Ancak o dosyadan bir kaç tane varsa yani;

ALI_2019_01_KDV_001.pdf
ALI_2019_01_KDV_002.pdf
ALI_2019_01_KDV_003.pdf olarak taşıması gerekiyor.

Biz sadece, ALI_2019_01_KDV.pdf dosyasını şu anda atabiliyoruz. Bu durumda, diğer dosyaları taşıyamıyorum. Kodun neresinde değişiklik yapılması lazım? Çünkü, aynı kritere ait yani aynı müşterinin, aynı yıla, aynı aya ve kdv fatura türüne göre birden fazla dosyası oluyor.

İkinci sorum ise, klasör isminde ALI, Dosyada ALI, Access kaydındaki müşteri adı ALI olduğu halde, 2_Dosya_Link_T formunda ilişkili dosyaları eklemiyor. Bunun nedeni nedir?

Teşekkürler.