AccessTr.neT
Veritabanına otomatik resim - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veritabanına otomatik resim (/konu-veritabanina-otomatik-resim.html)

Sayfalar: 1 2


Veritabanına otomatik resim - ihsan0618 - 28/04/2012

Herkese merhaba forumdan indirdiğim yaka kartı veri tabanına otomatik fotoğraf yükleme yapmak istiyorum.1500 kişinin bilgileri hazır fotoğrafları otomatik olarak isime göre yüklemesini yapabilirmiyim.

YOO.rar

]YAKA KARTI YAPACAĞIM 2 GÜNÜM KALDI ANCAK FOTOĞRAF EKLEMEYİ YAPAMADIM BANA LÜTFEN BİRİ YARDIM ETSİNN TEAMVİEWERDAN BAĞLANIP YARDIM EDERSE ÇOK MİNNETTAR OLACAĞIM....
SADECE RAPORDA GÖREMİYORUM NE YAPMAM LAZIM BUNU ANLATABİLİRMİSİNİZ


Cvp: Veritabanına otomatik resim - ozanakkaya - 28/04/2012

fotoğraf isimleri ile personelin bilgileri arasında benzerlik var ise (personelin tckimlik numarası ile resim adı aynı ise) resim yolu tabloya eklenebilir.

Arşiv isimli raporun ayrıntısının biçimlendiğinde olayına aşağıdaki kodu eklersen resimler raporda görünür.

Dim strPath As String

On Error Resume Next

If IsNothing(Me.Photo) Then

Me.Msg.Caption = "fotoğraf"

Me.Msg.Visible = True

Me.resgöster.Visible = False
Else
strPath = Me.Photo

If (InStr(strPath, ":") = 0) And (InStr(strPath, "\\") = 0) Then

strPath = CurrentProject.path & "\" & strPath
End If

Me.resgöster.Picture = strPath

If Err <> 0 Then

Me.Msg.Caption = "fotoğraf"

Me.Msg.Visible = True

Me.resgöster.Visible = False
Else

Me.resgöster.Visible = True

Me.PaintPalette = Me.resgöster.ObjectPalette
End If
End If



Cvp: Veritabanına otomatik resim - ihsan0618 - 28/04/2012

ozan bey onu hallettim ancak rapor yazdırdığımda resim ve başlığı yazmıyor bu konuda ne yapabilirm forumda aradım ancak çözüm bulamadım.
RAPORU YAZDIR DEDİĞİMDE EKSİK BASKI YAPIYOR FOTO VE LOGOYU BASMIYOR ACABA BU NEDEN OLABİLİR.

deneme.rar



Cvp: RAPORU YAZDIRMA - Kur@l - 28/04/2012

Örnek ekleyin sorunuzu küçük harfler ile sorun bakalım.


Cvp: Veritabanına otomatik resim - ozanakkaya - 28/04/2012

yazdırma işleminde problem göremedim. Son örnekteki sorgu ve formdaki hataları düzeltim. Şu anda problem görünmüyor.

örnekadi_sled.rar



Cvp: Veritabanına otomatik resim - ihsan0618 - 28/04/2012

Çok teşekkür ederim ozan bey.Hataları düzeltip gönderdiğiniz için.Yazdırma hatasını hala yapıyor.Bunu başka nasıl çözebilirim acaba?

Yazıcımın markası oki530dn yazıcıyla alakalı birşey olabileceğini düşünmüyorum.