Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
08/11/2010 14:58
Konu Sahibi
kadirdursun
Yorumlar
19
Okunma
4994
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

kadirdursun

Aktif Üye
Aktif Üye*
KA.... DU....
 38
 1.291
 104
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
Çözüldü 
[/u]https://www.accesstr.net/konu-veritabanina-resim-ekleme.html?highlight=resim+ekleme

sayın Puletin; yukarıdaki linkte 6. mesajdaki örneğiniz ektedir. burada yeni bir kayıt yapmadan önce ilgili resmin klasöre atılması gerekli. yoksa hata veriyor. yeni kayıt yaptıktan sonra tc no ile ilişkili resim klasörde yoksa hata vermsin resimyok.jpg diye bir resmimiz olsun ve onu göstersin. daha sonra eğer ilgili kişinin tcnosu ile adlandırılmış resmi klasöre kopyalanırsa resimyok.jpg yerine onu göstersin. bunu nasıl yaparız? ben aşağıdaki gibi bişi yapmaya çalıştım ama olmadı.


Visual Basic Code
1
2
3
4
5
6
7
Private Sub Form_Current()
If IsNull(Me![TCNO]) And resim.Picture <> Application.CurrentProject.Path & "\" & Me.TCNO & ".JPG" Then
resim.Picture = ""
Else
resim.Picture = Application.CurrentProject.Path & "\" & Me.TCNO & ".JPG"
End If
End Sub


Ek Dosyalar
.rar   Resim_Puletin.rar(Dosya Boyutu: 39,8 KB / İndirme Sayısı: 40)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)

Kullanici Avatari

Kur@l

AccessTR.Net
Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 22/07/2018,02:01
Çözüldü 
Sayın Kadir Dursun Hocam;
Aşağıdaki Kodu bir modüle kaydedin.

Visual Basic Code
Option Compare Database
Option Explicit
Public Function Varmi(ByRef dosyaadi) As Boolean
        If Len(Dir(dosyaadi, 16)) Then Varmi = True Else Varmi = False
End Function


Bu koduda Formunuzun tüm kodu ile değiştirin.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Compare Database
Private Sub Form_Current()
resim_kontrol
End Sub
Private Sub TCNO_AfterUpdate()
resim_kontrol
End Sub
Private Sub Açılan_Kutu10_AfterUpdate()
    ' Denetime uyan kaydı bul.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[adi] = '" & Me![Açılan Kutu10] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Sub resim_kontrol()
Dim dosyaadi As String
dosyaadi = Application.CurrentProject.Path & "\" & Me.TCNO & ".JPG"
If Varmi(dosyaadi) = True Then
Me.resim.Picture = dosyaadi
Else
Me.resim.Picture = "C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Mavi tepeler.jpg"
End If
End Sub


Kolay Gelsin.



Ek Dosyalar
.zip   Resim_Puletin.zip(Dosya Boyutu: 454,69 KB / İndirme Sayısı: 52)
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

Kullanici Avatari

kadirdursun

Aktif Üye
Aktif Üye*
KA.... DU....
 38
 1.291
 104
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
Çözüldü 
oldu teşekkür ederim.


Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)

Kullanici Avatari

kadirdursun

Aktif Üye
Aktif Üye*
KA.... DU....
 38
 1.291
 104
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
Çözüldü 
sayın Kur@l;
benim örneğime ekleyince ".......... geçerli olduğunda ifadesi hataya neden oldu.........." diye bir hata verdi. konu kapandığı için ekleyemedim. ne yapmalıyım?


Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)

Kullanici Avatari

Kur@l

AccessTR.Net
Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 22/07/2018,02:01
Çözüldü 
Hocam örnek eklemiştim. Onu bir deneyin.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

Kullanici Avatari

kadirdursun

Aktif Üye
Aktif Üye*
KA.... DU....
 38
 1.291
 104
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
Çözüldü 
onuda denedim. örneği ilk önce görmedim ve bende 1. mesajdaki örneğe ekleyerek denedim, ondan dolayı oldu diye mesaj çektim. ama kendi örneğime ekleyince maalesef hata verdi.


Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Otomatik Kaydetme Ve Pasif Yapma Sorunu hey 5 219 15/09/2018, 09:06
Son Yorum: hey
Çözüldü Ek Ekleme musat 2 81 28/08/2018, 08:21
Son Yorum: ozanakkaya
Çözüldü Stok Yok Uyarısının Otomatik Kapanması ielmacilar 2 86 26/08/2018, 19:09
Son Yorum: ielmacilar
Çözüldü Vcard İçin Resim Kayıt Zorunluluğu Olmasın access acemisi 2 96 16/08/2018, 23:47
Son Yorum: access acemisi
Çözüldü Forma Fotoğraf Ekleme antoryum 8 330 09/08/2018, 09:43
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.