#silindi hatası

05/11/2012, 13:42

yücelkaya

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...
05/11/2012, 16:33

accessman

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
05/11/2012, 16:41

yücelkaya

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