İlgilendiğiniz için teşekkür ederim.
Klasör oluşturma diye aratmak aklıma gelmemişti
dediğiniz gibi yaptım, bulduğum kodları kullanarak aşağıdaki kodu revize ettim. Harika oldu.'--------------- get file name
Sub getFileName()
Dim klasoryeri, klasoryeri2, klasoryeri3 As String
Dim kayit As Integer
Dim Kaynak, Hedef
klasoryeri = CurrentProject.path & "\resim\" & "\" & Me.TUR
If Len(Dir(klasoryeri, vbDirectory)) = 0 Then
MkDir (klasoryeri)
'MsgBox ("KLASÖR oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA BİLGİSİ"
End If
klasoryeri2 = CurrentProject.path & "\resim\" & "\" & Me.TUR & "\" & Me.NOKTA
If Len(Dir(klasoryeri2, vbDirectory)) = 0 Then
MkDir (klasoryeri2)
'MsgBox ("KLASÖR oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA BİLGİSİ"
End If
klasoryeri3 = CurrentProject.path & "\resim\" & "\" & Me.TUR & "\" & Me.NOKTA & "\" & Me.KOL
If Len(Dir(klasoryeri3, vbDirectory)) = 0 Then
MkDir (klasoryeri3)
'MsgBox ("KLASÖR oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA BİLGİSİ"
End If
'--------------------
kayit = Me.GIP_NOKTA_ID
Kaynak = GetOpenFile_CLT("C:\", "Resim Seçiniz...")
Hedef = CurrentProject.path & "\resim\" & "\" & Me.TUR & "\" & Me.NOKTA & "\" & Me.KOL & Me.YER & "\" & Me.NOKTA & "-" & Replace(Me.KOL, "Ø", "o ") & "-" & Me.TUR & "-" & Me.TARIHI & "_1" & ".jpg"
'Replace("Me.KOLU","Ø", " o ")
Me.ImagePath = Hedef
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.ImageFrame.Visible = False
Me.Refresh
'DoCmd.GoToRecord acForm, "Kişiler", acGoTo, kayit
Me.ImageFrame.Visible = True
End If
End Sub
