AccessTr.neT

Bul · 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

Bul · 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

Bul · 09/04/2010, 23:24

Teşekkürler Sn celoyce hocam..

Bul · 10/04/2010, 03:34

teşekkürler gerçekten güzel bir uygulama eline sağlık ..

Bul · 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

Bul · 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

AccessTr.neT

Forma Resim Ekleme, Kopyalama ve Arşivleme

Forma Resim Ekleme, Kopyalama ve Arşivleme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri