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

Notaha ö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]

accesse resim ekleme

selamlar,

jale teşekkürler..

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

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

herkese iyi çalışmalar..

 

[UFUKKURUM]

[COLOR="Red"]Sub getFileName()[/COLOR]
    ' 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([COLOR="Red"]msoFileDialogFilePicker[/COLOR])
        .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
[COLOR="Red"]            Me![ImagePath].Text = fileName[/COLOR]
            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
[COLOR="Red"]            Me![ImagePath].Text = fileName[/COLOR]
            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.