paylaşım için teşekkürker
Sn Mehmet hocam, açıklayıcı bilgi için teşekkürler..
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
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.
Güncellenmiş hali ilk mesaja eklenmiştir.
ercan hocam teşekkürler bende bunu arıyordum teşekkür ederim