AccessTr.neT

Tam Versiyon: Forumda Forumu Silince Boş Form Geliyor
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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"
Üstad teşekkür Ederim. Şimdi oldu.
I can help nothing, but it is assured, that you will find the correct decision.
Also what from this follows?
Not in it business.
Sayfalar: 1 2