#silindi hatası

Değerli arkadaşlar,
ekteki dosyada bulunan resimde kaydı sil butonuna tıkladığımda "#silindi" şeklinde bir ibare çıkıyor.
silme işlemi ile ilgili kullandığım kodlar
"""Private Sub Komut99_Click()
On Error GoTo Err_Komut99_Click
Dim C As Integer
C = MsgBox("Kayıt silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "CeloSoft")
If C = vbOK Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
ElseIf C = vbCancel Then
Me.Undo

End If

Exit_Komut99_Click:
Me.Requery
Exit Sub

Err_Komut99_Click:
MsgBox Err.Description
Resume Exit_Komut99_Click
End Sub"""
şeklindedir.hatam nerede bulamadım...

temel bilgiler formuna bunu ekleyin
ben denedim silindi yazısı çıkmıyor

Kod:
Private Sub Açılan_Kutu18_Enter()

Açılan_Kutu18.Requery

End Sub

teşekkür ederim sayın accessman
sorun çözülmüştür.
saygılarımla+rep

#silindi hatası

yücelkaya

accessman

yücelkaya