If Me.SyAdi = Dlookup ("kulanici_adi", "TKullanicilar", "kul_id=AktifKullanici()") Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Else
MsgBox ("kayit silinemez hata .....")
End If
Resim11'in tıklandığında olayına aşağıdaki kodu ekleyerek deneyiniz.