+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Forma Resim Ekleme, Kopyalama ve Arşivleme (/konu-forma-resim-ekleme-kopyalama-ve-arsivleme.html)
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - hegu - 26/04/2010
paylaşım için teşekkürker
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - ercansahin - 26/04/2010
Sn Mehmet hocam, açıklayıcı bilgi için teşekkürler..
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - zgrkaralar - 26/04/2010
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 SubCvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - ercansahin - 26/04/2010
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 SubCvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - ercansahin - 28/05/2010
Güncellenmiş hali ilk mesaja eklenmiştir.
Cvp: Forma Resim Ekleme, Kopyalama ve Arşivleme - alarmci - 11/06/2010
ercan hocam teşekkürler bende bunu arıyordum teşekkür ederim