AccessTr.neT

AccessTr.neT > Microsoft Access > Access Örnekleri ve Uygulamaları > Forma Resim Ekleme, Kopyalama ve Arşivleme
Tam Versiyon: Forma Resim Ekleme, Kopyalama ve Arşivleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7

ensar236

09/04/2010, 10:19
Teşekkürler ercan hocam ellerinize sağlık.
Hocam
Private Sub Form_Current()
On Error GoTo Err_Foto

Resim.Picture = ""
Resim245.Picture = ""
Resim246.Picture = ""
Resim254.Picture = ""
Resim.Picture = CurrentProject.Path & "/Resimler/ogrenciler/" & Me.TC.Value & ".jpg"
Resim245.Picture = CurrentProject.Path & "/Resimler/ogrenciler/" & Me.TC.Value & "-1.jpg"
Resim246.Picture = CurrentProject.Path & "/Resimler/ogrenciler/" & Me.TC.Value & "-2.jpg"
Resim254.Picture = CurrentProject.Path & "/Resimler/ogrenciler/" & Me.TC.Value & "-3.jpg"
Err_Foto:

If Err.Number = 2220 Then
Resume Next
Else
End If
End Sub
kodu ile 4 adet resmi forma çağırıyorum.
öğreniğinizdeki resim ekleme kodu ile eğer şahsın resmi yoksa resim çok güzel ekleniyor.
Hocam sorum şu eğer şahsın bir resmi varsa ikinci, üçüncü veya dördüncü resmi yoksa, ilk resmi silmeden ikinci üçüncü veya dördüncü resmi ekleyebilirmiyiz.? Teşekkürler

C*e*l*o*y*c*e

09/04/2010, 20:24
Bu konuda yine Ercan hocamızın güzel bir örneğini ekliyorum kendisine teşekkür ederek rep puanını vermeyi unutmayalım Img-grin

ercansahin

09/04/2010, 23:24
Teşekkürler Sn celoyce hocam..

akem

10/04/2010, 03:34
teşekkürler gerçekten güzel bir uygulama eline sağlık ..

zgrkaralar

24/04/2010, 14:25
Ercan Hocam benım ufak bir sorunum var.

Ekledim forma bunu ancak resim ekleyince ilk kayıta geri donuyor bunu nasıl durdurabilirim

Teşekkürler

mehmetdemiral

26/04/2010, 00:57
Bunun için şöyle bir yöntem uygulayacağız:

Önce bir değişken açıp bulunduğumuz kayıt sayısını sno kutusundan alacağız. Sonra resim eklenecek ve requery yapılacak. Bu sırada resim çerçevesi görünmez olmalı ki ilk kayıttaki resim görülmesin. Daha sonra da değişkene atanan değere gidilecek ve resim çerçevesi tekrar görünür olacak. Bunun için resim ekleme düğmesinin kodlarını aşağıdaki şekilde değiştirin:

Kod:
Private Sub ResimEkle_Click()
On Error GoTo err_ResimEkle
Dim kayit As Integer
Dim Kaynak, Hedef
kayit = Me.sno
Kaynak = GetOpenFile_CLT("C:\", "Resim Seçiniz...")
Hedef = CurrentProject.Path & "\resim\" & Me.adi_soyadi & "-" & Me.tcno & ".jpg"
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.ResimCercevesi.Visible = False
Me.Requery
DoCmd.GoToRecord acForm, "bilgiler", acGoTo, kayit
Me.ResimCercevesi.Visible = True


End If

exit_ResimEkle:
    Exit Sub
    
err_ResimEkle:
    MsgBox Error$
    Resume exit_ResimEkle
End Sub
Sayfalar: 1 2 3 4 5 6 7
AccessTr.neT > Microsoft Access > Access Örnekleri ve Uygulamaları > Forma Resim Ekleme, Kopyalama ve Arşivleme