Forma resim ekleme

[jale]

Merhaba :hey:

Access databasenize resimleri yüklemeden sadece dosya isimlerinin yollarýný yazarak yapýlan bir resim ekleme çalýþmasý.

Ekli File:resim_tabloya_yuklemeden

Ýyi çalýþmalar

[jale]

Merhaba

Baþka bir resim ekleme uygulamasý.

Ekli File:resim.zip

[xxrt]

verdiðiniz linkteki resim dosyasý güzel fakat hata veriyor nasýl düzeltirim
Merhaba ahmet114 yukarýda özelime attýðýnýz yazýya cevaben forma sormanýzý yazmýþ idim.Bahse konu Hata mesajý üzerinde yaptýðým incelemede;
1.)Birinci dosyaya (DOSYA-1)ait görüntü aþaðýda olup;
Burada size hata olarak gelen mesaj,Hata mesajý olmayýp,formun açýlmasý esnasýnda kontrol ikazýdýr.Yani c:\windows\Gone Fishing.bmp yolunu sizin PC'nize göre deðiþtirmeniz gerekir.Mesela sizin resminiz C:\Belgelerim\Resimlerim\Ã?rnek_Resim.jpg gibi olmaliki resimi görebilesiniz..
Hatadan Kastýnýz bu deðilse onuda belirtirseniz memnun oluruz..
Saygýlarýmla xxrt

[ahmet114]

dostum resim eklediðimde çalýþtýr dediðimde sdece resim oln yeri kopyaladým ve formumda tabloda photo yazn yeri ayný yptým kodlarýd ekledim çalýþtýr dediðimde þöyle bir hata veriyor [/img]

[xxrt]

Bakýn XP Kullanmýyorum ama hata yine ayný olaya baðlý bir hata Tablolarda Ýmagetableyi açýn ve tüm resim yollarýný deðiþtirin.Ben sorun yaþamýyorum.

[jale]

Merhaba Ahmet Bey,

Ã?ncelikle forumdaki dosyalarý çalýþtýramadýðýnýzý düþünmüþtüm.Ama yukarýaki yazýnýzdan anlýyorum ki kendi dosyanýzý çalýþtýramamýþsýnýz.Ýsterseniz þöyle bir deneme yapýn, benim örneðe kendi dosyanýzý uygulamaya çalýþýn ve sonucu bildirin lütfen.

Ýyi Çalýþmalar

[ahmet114]

ok deneyeyim hber veririm sðolun

[ahmet114]

bu seferde get file name bölümünde Me![Ad].SetFocus hatasý verdi çözüm ne acaba

[ahmetchip]

Merhaba

Baþka bir resim ekleme uygulamasý.

Ekli File:resim.zip

merhaba jale hn. acseste yapmýþ oldugunuz form çok güzel ama ben malsef yaptýðým çalýþmaya bunu ekleyemedim.sürekli debug oluyor.

[jale]

Merhaba :hey:
1.referranslarý kontrol ettiniz mi?
2.Benim dosyayý çalýþtýrabildiðinizi düþünüyorum.Þöyle bir þey deniyebilirsiniz.Kendi tablo, form vs leri benim dosyaya kopyalayýn.

[ahmet114]

debug hatasý vemesi kullandýðýnýz alanlar arasýnda sorun var yani formdaki alan ile koddaki alan ayný isimde deðildir örneðinizi gönderirseniz yardýmcý olmaya çalýþayým..

[jale]

Merhaba :hey:

html,gif,bmp uzantýlý resim dosyalarýný forma ekleme örneði:

res.zip

Not:Daha önce verdiðim hyperlinks dosyasýndan faydalanýlarak yapýlmýþtýr.

[excile]

Ã?rneklerin hepsi güzel.

[deepcosmos]

merhaba umarým anlatabilirim öðrenci bilgilerinin oldugu bir access uygulamasý var bu uygulamaya hazýr halde sýnýf numarasýna göre örneðin 10-B sýnýfýndaki bir öðrencinin bilgilerini sorguladýk ve bilgileri geldi bunun yaný sýra 10-B sýnýfýnýn ders programý var diyelim resim formatýnda örneðin jpeg oalrak bunu ne þekilde uygulamaya koyabiliriz yardýmcý olursanýz sevinirim

[sinan_yuksel]

selamlar,

jale teþekkürler..

access'den pek anlamam, sabahtan beri kurcalýyodum.

senin prog. çözdü iþi..

herkese iyi çalýþmalar..

[UFUKKURUM]

Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then

Jale hn
kendi formuma resim.mdb adlý formu eklediðimde bu uyarýyý alýyorum neden olabilir..

[UFUKKURUM]

Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Ad].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub

[UFUKKURUM]

Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Ad].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub

iþaretli alanda hata çýkýyor bu neden olabilir

[ozanakkaya]

Sorunu çözmek için Formu tasarım görünümünde açıp referanslardan yanında MISSING referansları tekrar tanıtın.

[se6liva]

Arkadaşlar 1 saaten fazla oldu uğraşıyorum aslında kod kullanmayı bilmeyince ne yapacağımıda bilmiyorum ama ,lütfen yardımcı olurmusunuz resim.zıp adlı örnekteki tablo ve form sayfasını kendi örneğime alıyorum.Fakat yukarıda Ufukkurum adlı arkadaşımızın yazdığı aynı sorunla karşılaşıyorum.Yardımcı olurmusunuz.Teşekürler.

[se6liva]

Sizin örneğinize kendi dosylarımı aldım yine aynı debug lar ile karşılaştım

[selcukkahya]

selam arkadaþlar yukarýdaki sorun bendede oluyor bu sorunu detaylý bi þekilde çözmemize yardýmcý olabilecek arkadaþ yok mu acaba

þimdiden teþekkürler

[modalý]

Arkadaþlar,

Bu hatalar hep referans eksikliði hatasý. referanslarýnýzý kontrol edin.

Ýyi çalýþmalar

[selcukkahya]

msoFileDialogFilePicker hatasýnýn çözümü

arkadaþlar visual basic düzenleyicini açýn --> Tools --> References açýn

sonrasýný resimden görebilirsiniz.

bu eklemeleri yapýn sorun çözülür.

[nihat53]

Tesekkurler Verdiginiz Bilgiler Icin

[PHÖNÝX]

bence office yi güncelleştirin (yani update edin)

kodları giregire oficce proğramı alt üst oluyor bir yerden kendine

proğram yapıyorsun diğer taraftan başka yer hata yapıyor.

veya office proğramını tekrar yükleyin çalışan proğramların yedeğini almayı unutmayın.

yaptığınız bozuk excel- word - access dosyaları önce silin ki sonra tekrar etkilemesin.

benden den uyarması gerisini size bırakıyorum.

[msalvarli]

gerçekten çok iþime yaradý. paylaþýmýnýz için teþekkür ederim...

[selcukkahya]

Sayýn Se6liva

arkadaþlar visual basic düzenleyicini açýn --> Tools --> References açýn

sonrasýný resimden görebilirsiniz.

bu eklemeleri yapýn sorun çözülür.

Kolay gelsin

[Orhan Oguz]

aArkadaşlar bu örnek güzel çalışıyor ama her kayıt için yalnızca bir resim koyabildim. bir kayıt için birden fazla farklı resim koyma yolunu bilen var mı??

[Taruz]

Merhaba..

Adres ve Telefon Rehberi (http://www.excel.web.tr/showthread.php?t=33884)

Linkteki çalışmada bir kayıtta 3 ayrı resim gösterebilme özelliği var.. İşinize yarayabilir..

[hulsen]

güzel çok iþime yaradý

[alemciler]

formdan eklentileri indiremiyorum http://www.excel.web.tr/attachment.php?attachmentid=144&d=1096238403 hata veriyor attachment.php(GIF grafiði, 1x1 piksel)