Soru Çalışan kod'a Evet/Hayır koşulu eklensin

[s.savas]

Merhaba arkdaşlar.
Aşağıdaki kod ile access veritabanındaki kayıt siliniyor. Bu koda Evet/Hayır sorgusu ile beraber kişiye ait image1 nesnesindeki resminin de silinmesinin eklenmesini istiyorum.
İlgili kayıt silinirken resmi de silinsin.

If txKimlik = "" Then
    MsgBox "Önce listeden çift tıklayarak bir veri seçin.", vbCritical + vbOKOnly, "Süleyman SAVAŞ"
    Exit Sub
End If

Dim kimlik As Integer
kimlik = txKimlik

Call BAGLANTI
Set rs = baglan.Execute("DELETE FROM REHBER WHERE KIMLIK=" & kimlik)

Set baglan = Nothing: Set rs = Nothing:
listeye_al
temizle
MsgBox kimlik & " kimlik numaralı kayıt silindi.", vbInformation + vbOKOnly, "Süleyman SAVAŞ"
Label6.Caption = "Toplan kayıt sayısı= " & ListBox1.ListCount

Kodu şu şekilde derlemeye çalıştım ancak resimdeki yerde hata döndürdü.

Dim kimlik As Integer
kimlik = txKimlik

If txKimlik = "" Then
    soru = "Mevcut kaydı silmek istediğinizden emin misiniz?"
        cevap = MsgBox(soru, vbYesNo + vbQuestion)
        Select Case cevap
            Case vbYes
            Call BAGLANTI
            Set rs = baglan.Execute("DELETE FROM REHBER WHERE KIMLIK=" & kimlik)
            Set baglan = Nothing: Set rs = Nothing:
            Case vbNo
                Exit Sub
        End Select
    MsgBox "Önce listeden çift tıklayarak bir veri seçin.", vbCritical + vbOKOnly, "Süleyman SAVAŞ"
    Exit Sub
End If

listeye_al
temizle
MsgBox kimlik & " kimlik numaralı kayıt silindi.", vbInformation + vbOKOnly, "Süleyman SAVAŞ"
Label6.Caption = "Toplan kayıt sayısı= " & ListBox1.ListCount

 

[Haluk]

Image1 nesnesindeki resmi kaldırmak için;

Image1.Picture = LoadPicture("")

.

 

[s.savas]

Image1 nesnesindeki resmi kaldırmak için;

Image1.Picture = LoadPicture("")

.

Teşekküler haluk hocam, soruyu tam ifade edememişim özür.
Gaye sadece Image1 deki resmi kaldırmak değil. Çift tık ile görüntülenen kişin resmini Resimler klasöründen de silinmesi gerekiyor.
Kişilerin resimleri uygulama yolundaki Resimler klasöründe bulunmakta ve T.C Kimlik numarası ile kayıt edilmekte.

 

[Haluk]

O zaman;

Kill ThisWorkbook.Path & Application.PathSeparator & "Resimler" & Application.PathSeparator & ListBox1.Column(2, i) & ".*"

.

 

[s.savas]

O zaman;

Kill ThisWorkbook.Path & Application.PathSeparator & "Resimler" & Application.PathSeparator & ListBox1.Column(2, i) & ".*"

.

Haluk hocam kaydı sildi ancak resim klasörde duruyordu, şu şekilde revize ettim, şimdi resimde siliniyor.

Kill ThisWorkbook.Path & Application.PathSeparator & "Resimler" & Application.PathSeparator & txtTCKimlik & ".jpg"

Evet/Hayır sorgusu içinde bir çözümünüz varmı?

 

[Haluk]

Örnek;

Sub Test()
    a = 12
    b = 20
    
    secim = MsgBox("Toplamak için EVET, çarpmak için HAYIR butonuna basın !", vbYesNo)
    
    If secim = vbYes Then
        MsgBox a + b
    ElseIf secim = vbNo Then
        MsgBox a * b
    End If
End Sub

Bence siz güzel bir VBA kitabı alıp, oradan okuyarak çalışın..... yararlı olacaktır.

.