+- 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ığı: Access Resim Ekleme (/konu-access-resim-ekleme.html)
Cvp: Access Resim Ekleme - Yandemir - 10/03/2011
yolladığımı denerseniz ihtiyacınız doğrultusunda olduğundan eminim aynı mantıkla tutuyorum bende.
Cvp: Access Resim Ekleme - assenucler - 11/03/2011
Emek ve katkılarınız için teşekkürler..
Cvp: Access Resim Ekleme - ozanakkaya - 11/03/2011
Örnek uygulama eklemek için Mesaja Eklenti Eklemek linkini inceleyiniz.
Cvp: Access Resim Ekleme - emre94 - 11/03/2011
Öncelikle merhaba, ben bilişim teknolojileri ögrencisiyim ve veri tabanı dersinden dönem ödevi aldım. Ödev; Bilgisayar Otomasyon programı...
Ödev hakkında pek bilgim yok, Eğer sizde Bilgisayar otomasyon programı gibi bir kaç örnek program varsa forum a koyulmasını rica ediyorum..
şimdiden Teşekkürler...
Cvp: Access Resim Ekleme - gulhankaya - 11/03/2011
sn.yandemir
sizin acces uygulamanızdaki tabloyu kendi tablolarımın olduğu yere, formunuzuda formların yanına kopyaladım.yaptıgınız şeyi birebir yaptım. ama olmuyor. sizin formun açıldığındaki görünümüyle benim form sihirbazıyla yaptığım form aynı değil ki... minimize tuşu bile yok sizinkinde...size yaptığım uygulamayı göndermek istiyorum bakıp halledebilirmisiniz resimleri görememe sıkıntımı. sagolun.cvp bekliyorum.lütfeennn.
Cvp: Access Resim Ekleme - Yandemir - 11/03/2011
yolladığım örnekte alınacak birşey yoktur birtek form var ve geçerli olduğunda yordamında bir kod var sadece orayı almanız yeterlidir. C:\Resim\ Klasöründeki resimleri getiriyor. kodlar aşağıdadır. sadece kodları inceleyin derim.
örneğinizide gönderebilirseniz incelerim.
Option Compare Database
Private Sub Ad_AfterUpdate()
ResimYukle
End Sub
Private Sub Form_Current()
ResimYukle
End Sub
Private Sub Soyad_AfterUpdate()
ResimYukle
End Sub
Sub ResimYukle()
On Error Resume Next
Resim.Picture = "C:\Resim\Bos.jpg"
Resim.Picture = "C:\Resim\" & Me.Ad & " " & Me.Soyad & ".jpg"
End Sub