Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/01/2014 09:03
Konu Sahibi
orhantanriverdi
Yorumlar
1
Okunma
1207
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

orhantanriverdi


Kullanici Avatari
Altın Üye
O.... T....
132
23/11/2010
8
Ankara
Ofis 2010 64 Bit
26/08/2017,12:39
Çözüldü 
Sayin hocalarim

Ekte bulunan dosyada formlarda personelid1 formunda bulunan en sagda "general list" in yaninda bulunan + isaretinde resim ekle butonu mevcuttur. daha once calisan komut simdi calismiyor. Resim eklemek istiyorum. Baska arkadaslarin bilgisayarlarinda denedim calisiyor. (2010 Access kullaniyorlar) Bende 2013 Access yuklu. kodu her ihtimale karsi asagiya ekliyorum. Yardimlariniz icin simdiden tesekkurler.

Private Sub cmdResimEkle_Click()
On Error GoTo err_cmdResimEkle

Me![pictures] = GetOpenFile_CLT("strInitialDir", "resim seciniz...")
Me![pictures] = LCase(Me![pictures])
Me!ResimCercevesi.Picture = Me!pictures

exit_cmdResimEkle:
Exit Sub

err_cmdResimEkle:
MsgBox Error$
Resume exit_cmdResimEkle

End Sub

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

If IsNull(Me!pictures) Or Me!pictures = "" Then
' do nothing
Else
Me!ResimCercevesi.pictures = Me!pictures
End If

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open

End Sub


Private Sub Form_Current()

If Not Me!pictures = "" Or Not IsNull(Me!pictures) Then
Me!ResimCercevesi.Picture = Me!pictures
Else
Me!ResimCercevesi.Picture = ""

End If
End Sub


Private Sub ResimSil_Click()
Me!pictures = ""
Me!ResimCercevesi.Picture = ""
End Sub


Ek Dosyalar
.rar   Personnel.rar (Dosya Boyutu: 6,24 MB / İndirme Sayısı: 22)
Cevapla

orhantanriverdi


Kullanici Avatari
Altın Üye
O.... T....
132
23/11/2010
8
Ankara
Ofis 2010 64 Bit
26/08/2017,12:39
Çözüldü 
Sorun cozulmustur. Cevaplanmislara kaldirabiliriz.

POWER hocama tesekkurler.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
sorunu resim 2013 access ekleme


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Webden Resim Çağırma estapan 6 259 09/09/2017, 21:57 estapan
Çözüldü İlişkili Combobox - Resim Çağırma tsots 13 481 06/09/2017, 21:34 ozanakkaya
Çözüldü Açılır Kutudaki Değeri Alma Sorunu derzulya 5 218 11/07/2017, 16:08 derzulya
Çözüldü Formda Butona Say Komutu Ekleme ramazanemrullah 7 428 23/06/2017, 21:21 ramazanemrullah
Çözüldü Access Yazıcı Özelliği Ekleme! Bugday 2 219 12/06/2017, 11:14 Bugday

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.