Skip to main content

AccessTr.neT


Qr Code Raporda Gösterme Problemi

Qr Code Raporda Gösterme Problemi

#7
Hocam Baskı önizlemede tüm QR kodlar doğru geliyor ama rapor görünümünde yanlış geliyor, Bunu nasıl çözebiliriz. Raporda qr kodu webbrowser olarak göstermeyeceğim, sizin yaptığınız gibi resim olarak göstermek daha mantıklı, ancak yukarıda belirttiğim gibi sadece önizlemede doğru resimleri çağırıyor, rapor görünümünde yanlış resim geliyor. 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.

Saygılarımla.
.rar QR_Code_deneme_HBAL09.rar (Dosya Boyutu: 41,94 KB | İndirme Sayısı: 9)
Cevapla
#8
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. 


Resimleri rapor görünümünde gösteremezsiniz. İlk kayıtta hangi resim var ise diğer resim alanlarında ilk kayıttaki resim gösterilir. Raporunuzun varsayılan görünümünü Baskı Önizleme olarak değiştirin.


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.

Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

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
Cevapla
#9
Hocam Şöyle bir hata ile karşılaştım:


[Resim: do.php?imgf=15375290092481.png]
debug dediğimdeki ekran görüntüsü de şu şekilde:

[Resim: do.php?imgf=153752900930512.png]
Cevapla
#10
Sayın @hbal09
Örnek uygulamanızın düzenlenmiş hali ektedir.
.rar QR_Code_deneme_HBAL09_sld.rar (Dosya Boyutu: 46,62 KB | İndirme Sayısı: 25)
Cevapla
#11
çok teşekkür ederim hocam, bu sefer istediğim raporu aldırabiliyorum. sorunum çözülmüştür.
Cevapla
#12
merhaba.

raporda gösteremiyorum.
yanlış bir şey mi yapıyorum acaba.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task