ama hem tablonuz ilişkili alan kullandığından hem de pdf dosyalarını isimlendirirken kullandığınız i-I farkı nedeniyle dosya isimlerindeki adlar ile tablonuzdaki adlar uyumsuz olunca hata veriyor.
ekleyeceğiniz butonun koduna aşağıdaki kodu yazıp dener misiniz?
az önceki taşıma kodu sürekli hata veriyordu.
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 ('" & _
' txtDosyaAdi(0) & "', '#" & Xhedef & xMyFile & "#');"
Next