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.