Qr Kod

düzeltme yaptım ama bu defa Attach etmiyor
örnek ekte
bu kısımda yardımcı olur musunuz

Qr code indirilmesine ilişkin kodunuzu aşağıdaki şekilde revize edin. Bu hali ile indirme hata verirse uyarı alırsınız.

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



done = URLDownloadToFile(0, URL, GResimDizin, 0, 0)



If Not done = 0 Then

MsgBox "QR Code indirilemedi"

End If

Attach etmemesi ise recordsetiniz hatalı. Formunuzdaki kimlik denetiminin ABONE_ID'ye eşit olduğu kayıtları seçmeye çalışıyor ancak tablonuzda böyle bir alan yok. Dolayısı ile herhangi bir kayıt getirmediği için ekleme de yapmıyor.

Tavsiye etmiş olduğunuz kodları ekledim bazı düzeltmeleri yaptık.
ama qr hala gelmiyor

ekte düzeltilmiş olan hali

düzeltmeleri yaptım çalıştı
ama şöyle bir sorun var
20 adet satırdan sonra bazılar qr kodu getirmiyor ve karşıma uyarı gelmiyor
sanki aralarından rasgele bir şekilde oluyor gibi
farklı bir durum olabilir bilemiyorum ama geneline bakarsak çalıştı
ilkinde qr yazmadıysa bir da çalıştırıyorum bu defa çalışıyor boş olan hücreler qr geliyor
şu var ki bu düzenlemeyle çok seri çalışıyor
------------

bu hali yeterlidir


son halini ekliyorum

ama hikaye burada bitmiyor tamamı bitince mutlaka ama mutlaka paylaşırım

teşekkürler