09/08/2014, 11:00
Merhaba Mehmet bey,
Örneklerinizi inceledim. Ayrıca yönlendirdiğiniz farklı kaydet ve tümünü kaydet seçeneğini kullanmak istemediğimden dolayı o makaleyi uygulamadım. Çünkü kullanıcının her sipariş için bu işlemi yapması gerekiyor. Yinede tüm cevaplar için teşekkür ederim.
Konu ile ilgili sorun değerli bir arkadaşım tarafından çözülmüştür. Aşağıdaki kod ekteki dosyayı alıp klasör içine kaydetmektedir.
Saygılarımla
Örneklerinizi inceledim. Ayrıca yönlendirdiğiniz farklı kaydet ve tümünü kaydet seçeneğini kullanmak istemediğimden dolayı o makaleyi uygulamadım. Çünkü kullanıcının her sipariş için bu işlemi yapması gerekiyor. Yinede tüm cevaplar için teşekkür ederim.
Konu ile ilgili sorun değerli bir arkadaşım tarafından çözülmüştür. Aşağıdaki kod ekteki dosyayı alıp klasör içine kaydetmektedir.
'sayın dsezgin83260 den alıntıdır
Private Sub Komut96_Click()
Dim Kyt As Recordset, Yer As String, Cvp as Variant
Yer = "C:\Users\" & Environ("UserName") & "\Documents\" & Me.FirmaAdi
If Len(Dir(Yer, vbDirectory)) = 0 Then MkDir Yer
Set Kyt = Me.RecordsetClone
Set Dosya = Kyt.Fields("MusteriBelgesi").Value
While Not Dosya.EOF
If Len(Dir(Yer & "/" & Dosya.FileName)) = 0 Then Dosya.Fields("FileData").SaveToFile Yer: MsgBox Dosya.FileName & vbNewLine & " Kopyalanmistir...." Else Cvp = MsgBox("Klasorunde " & Dosya.FileName & vbNewLine & " dosyasi Mevcuttur...", vbCritical, Yer)
Dosya.MoveNext
Wend
Kyt.Close: Set Kyt = Nothing
End SubSaygılarımla