Alıntı:Hocam Baskı önizlemede tüm QR kodlar doğru geliyor ama rapor görünümünde yanlış geliyor, ....... sadece önizlemede doğru resimleri çağırıyor, rapor görünümünde yanlış resim geliyor. 

Alıntı:Hocam ayrıca ekteki örnekte 2. bir form ekledim, burada formu tek form değil de sürekli form olarak göstermek istedim, amacım şu: sorgudan veri alan formdaki tüm kayıt satırları için tek butonla herbirine ayrı ayrı qr code ürettirmesi yapabilir miyiz? ayrıca şu dikkatimi çekti, sürekli form yaptığımızda mevcut qr code üret butonumuz oluşturduğu satırın qr codunu tüm veri satırlarında gösteriyor. tek tuşla herbirine ayrı qr code atama olayını başarabilirsek sürekli formda her satırdaki qr code üret butonuna ihtiyacımız da kalmaz. inşallah anlatabilmişimdir.

Dim Text As String

Dim URL As String

  

    

Dim rs As DAO.Recordset

Dim GSayi As Integer



GSayi = 0



Set rs = CurrentDb.OpenRecordset("SELECT * FROM siparis_qr_form_sorgusu")



If Not (rs.EOF And rs.BOF) Then

    rs.MoveFirst

		Do Until rs.EOF = True



		Text = rs.Fields(5)

		URL = "http://chart.apis.google.com/chart?chs=150x150&cht=qr&chld=H|0&chl=" & URLEncode(Text)

		

		WebBrowser.Navigate (URL)

		

		httpGet URL, CurrentProject.Path & "\" & rs.Fields(0) & ".png"

	  

			rs.Edit

			rs!barkodresim = rs.Fields(0) & ".png"

			rs.Update

			GSayi = GSayi + 1

			rs.MoveNext

		Loop

End If



MsgBox (GSayi & " Adet Barkod Oluşturuldu")



rs.Close

Set rs = Nothing



Me.Requery