26/04/2010, 01:00
26/04/2010, 07:35
Sn Mehmet hocam, açıklayıcı bilgi için teşekkürler..
26/04/2010, 10:32
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. (:
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 Sub26/04/2010, 20:01
Silmek için tıklandığında da aynı sorun meydana gelmekte, yani ilk kayda dönmektedir. Bunun içinde Sil düğmesinin kodunu, şeklinde değiştirmeyiliz.
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 Sub28/05/2010, 22:44
Güncellenmiş hali ilk mesaja eklenmiştir.
11/06/2010, 18:30
ercan hocam teşekkürler bende bunu arıyordum teşekkür ederim