Skip to main content

AccessTr.neT


Forumda Forumu Silince Boş Form Geliyor

Forumda Forumu Silince Boş Form Geliyor

#7
Merhaba, silme kodunu aşağıdaki ile değiştirerek deneyiniz

' MsgBox "Bu Tuşu Aktif Yapmak isterseniz Tasarımcı ile irtibata geçiniz.", vbInformation, "Tasarım"

If MsgBox("Kayıtı silmek istediginize eminmisiniz.", vbCritical + vbOKCancel) = vbOK Then
   CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where FirmaID=" & Me.FirmaID
   
   CurrentDb.Execute "Delete Tbl_Firmalar_data.FirmaID FROM Tbl_Firmalar_data WHERE Tbl_Firmalar_data.FirmaID=" & Me.FirmaID

   'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 'Kaydı Seç
   'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 'Kaydı sil
   DoCmd.Close acForm, "FirmaSİLME"
   
   Forms![Frm_Firma_ismiBUL]![lstMusteriListesi].Requery
   
Else
   Me.Undo
   MsgBox "Kayıt silme işlemi iptal edildi."
End If
DoCmd.Close acForm, "Frm_Firma_Bilgileri"
Cevapla
#8
Üstad teşekkür Ederim. Şimdi oldu.
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#9
I can help nothing, but it is assured, that you will find the correct decision.
Cevapla
#10
Also what from this follows?
Cevapla
#11
Not in it business.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task