10/03/2011, 23:56
Access Resim Ekleme
11/03/2011, 00:23
assenucler
Emek ve katkılarınız için teşekkürler..
11/03/2011, 01:05
ozanakkaya
Örnek uygulama eklemek için Mesaja Eklenti Eklemek linkini inceleyiniz.
11/03/2011, 22:34
emre94
Ö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...
Ö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...
11/03/2011, 22:41
gulhankaya
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.
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.
11/03/2011, 22:51
Yandemir
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.
ö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