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...
#1
Yeni Microsoft Office Word Belgesi (2).docx
(Dosya Boyutu: 62,82 KB | İndirme Sayısı: 3)
