AccessTr.neT

https://accesstr.net/konu-veritabanina-r...sim+ekleme

sayın Puletin; yukarıdaki linkte 6. mesajdaki örneğiniz ektedir. burada yeni bir kayıt yapmadan önce ilgili resmin klasöre atılması gerekli. yoksa hata veriyor. yeni kayıt yaptıktan sonra tc no ile ilişkili resim klasörde yoksa hata vermsin resimyok.jpg diye bir resmimiz olsun ve onu göstersin. daha sonra eğer ilgili kişinin tcnosu ile adlandırılmış resmi klasöre kopyalanırsa resimyok.jpg yerine onu göstersin. bunu nasıl yaparız? ben aşağıdaki gibi bişi yapmaya çalıştım ama olmadı.

Private Sub Form_Current()

If IsNull(Me![TCNO]) And resim.Picture <> Application.CurrentProject.Path & "\" & Me.TCNO & ".JPG" Then

resim.Picture = ""

Else

resim.Picture = Application.CurrentProject.Path & "\" & Me.TCNO & ".JPG"

End If

End Sub

Sayın Kadir Dursun Hocam;
Aşağıdaki Kodu bir modüle kaydedin.

Option Compare Database

Option Explicit

Public Function Varmi(ByRef dosyaadi) As Boolean

        If Len(Dir(dosyaadi, 16)) Then Varmi = True Else Varmi = False

End Function

Bu koduda Formunuzun tüm kodu ile değiştirin.

Option Compare Database

Private Sub Form_Current()

resim_kontrol

End Sub

Private Sub TCNO_AfterUpdate()

resim_kontrol

End Sub

Private Sub Açılan_Kutu10_AfterUpdate()

    ' Denetime uyan kaydı bul.

    Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[adi] = '" & Me![Açılan Kutu10] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Sub resim_kontrol()

Dim dosyaadi As String

dosyaadi = Application.CurrentProject.Path & "\" & Me.TCNO & ".JPG"

If Varmi(dosyaadi) = True Then

Me.resim.Picture = dosyaadi

Else

Me.resim.Picture = "C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Mavi tepeler.jpg"

End If

End Sub

Kolay Gelsin.

oldu teşekkür ederim.

sayın Kur@l;
benim örneğime ekleyince ".......... geçerli olduğunda ifadesi hataya neden oldu.........." diye bir hata verdi. konu kapandığı için ekleyemedim. ne yapmalıyım?

Hocam örnek eklemiştim. Onu bir deneyin.

onuda denedim. örneği ilk önce görmedim ve bende 1. mesajdaki örneğe ekleyerek denedim, ondan dolayı oldu diye mesaj çektim. ama kendi örneğime ekleyince maalesef hata verdi.