Merhabalar,

Veritabanımdaki  Link alanında bulunan resim linklerinin bazılarını bilgisayarıma kayıt etmek istiyorum.  Liste kutusu yaptık linki seçtiğimde Formdaki web tarayıcısında açıyor ve sağ tıklayıp farklı kaydet diyorum.  Ben bunu bir buton yardım ile yapmak istiyorum.

Teşekkürler.

Sayın makrovba,

Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,uygulamanızın bir yedeğini çıkartıp içeriğinde farazi gerçek dışı veriler olacak şekilde ve işlemlerin neticelerini görmek adına da 4-5 kayıt barındıracak şekilde hazırlayıp konunuza dahil ettiğiniz takdirde,katılımcı olmak isteyebilecek üyelerin talebiniz ve örnek uygulamanızın niteliği doğrultusunda uygun bilgi ya da örnek paylaşımlarına zemin hazırlamış olursunuz.

Bilginize…iyi çalışmalar,saygılar.

(25/11/2015, 13:07)atoz112 yazdı: Sayın makrovba,

Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,uygulamanızın bir yedeğini çıkartıp içeriğinde farazi gerçek dışı veriler olacak şekilde ve işlemlerin neticelerini görmek adına da 4-5 kayıt barındıracak şekilde hazırlayıp konunuza dahil ettiğiniz takdirde,katılımcı olmak isteyebilecek üyelerin talebiniz ve örnek uygulamanızın niteliği doğrultusunda uygun bilgi ya da örnek paylaşımlarına zemin hazırlamış olursunuz.

Bilginize…iyi çalışmalar,saygılar.

Kusura bakmayın.

Dosya ektedir. Bayisi olduğum firmadan aldığım XML dosyasını Access aktarıyorum. Buradaki resimleri bilgisayarıma kaydetme istiyorum sorum budur.

Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Üstteki kodu modüle ekle, aşağıdaki kodu da formdaki butonun tıklandığında olayına ekle

  Dim ResimAdi As String



    Dim ret As Long

    Dim KayitYeri As String

    Dim URL As String









    URL = Replace(Me.link, "#", "")

    ResimAdi = Right(URL, Len(URL) - InStrRev(URL, "/"))

    KayitYeri = CurrentProject.Path & "\" & ResimAdi

    Debug.Print KayitYeri

    ret = URLDownloadToFile(0, URL, KayitYeri, 0, 0)









    If ret = 0 Then

        Exit Sub

    Else

        MsgBox "Dosya Yüklenemedi"

        Exit Sub

    End If

Konu taşınmıştır. Açtığınız konulara lütfen geri bildirimde bulununuz.

(06/07/2009, 23:57)AccessTr.neT Bilgilendirme yazdı: 2-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.

(22/04/2009, 15:53)ozanakkaya yazdı: 9-) Açtığınız konuya verilen cevapları kontrol edin ve yapılan yardımın olumlu ya da olumsuz sonucunu bildirin. Eğer açtığınız konulara cevap vermez iseniz sonraki sorularınızda daha önce sorunuzu yanıtlayan kişinin olası cevabından mahrum kalırsınız.