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