AccessTr.neT

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
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
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
Teşekkürler Sn celoyce hocam..
teşekkürler gerçekten güzel bir uygulama eline sağlık ..
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
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