access 2013 resim ekleme sorunu - 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ığı: access 2013 resim ekleme sorunu (/konu-access-2013-resim-ekleme-sorunu.html) |
access 2013 resim ekleme sorunu - orhantanriverdi - 16/01/2014 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 Cvp: access 2013 resim ekleme sorunu - orhantanriverdi - 17/01/2014 Sorun cozulmustur. Cevaplanmislara kaldirabiliriz. POWER hocama tesekkurler. |