Skip to main content

AccessTr.neT


Forma Resim Ekleme, Kopyalama ve Arşivleme

Forma Resim Ekleme, Kopyalama ve Arşivleme

#13
paylaşım için teşekkürker
Cevapla
#14
Sn Mehmet hocam, açıklayıcı bilgi için teşekkürler..
Cevapla
#15
Teşekkürler Mehmet hocam.

Peki o bunu başka sayfada nasıl cektirebilirim oradada gözüksün istiyorum.

Hocam gerek kalmadı halletım

Aşağıdaki kodu ekledım öteki sayfayada çok süper oldu. (:

Kod:
Private Sub Form_Current()
  On Error GoTo Err_Foto

    ResimCercevesi.Picture = ""
    ResimCercevesi.Picture = CurrentProject.Path & "/resim/" & Me.adi_soyadi.Value & "-" & Me.tcno & ".jpg"
  
Err_Foto:
    
    If Err.Number = 2220 Then
        Resume Next
    Else
    End If
End Sub

Son Düzenleme: 26/04/2010, 10:35, Düzenleyen: zgrkaralar.
Cevapla
#16
Silmek için tıklandığında da aynı sorun meydana gelmekte, yani ilk kayda dönmektedir. Bunun içinde Sil düğmesinin kodunu,
Kod:
Private Sub ResimSil_Click()
If Me.ResimCercevesi.Picture = "(Yok)" Then
  MsgBox "Silinecek Dosya Bulunamadı"
Else
  Dim kayit As Integer
  kayit = Me.sno
  Kill CurrentProject.Path & "/resim/" & Me.adi_soyadi.Value & "-" & Me.tcno & ".jpg"
  Me.Requery
  DoCmd.GoToRecord acForm, "bilgiler", acGoTo, kayit
End If
End Sub

şeklinde değiştirmeyiliz.
Cevapla
#17
Güncellenmiş hali ilk mesaja eklenmiştir.
Cevapla
#18
ercan hocam teşekkürler bende bunu arıyordum teşekkür ederim
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task