Butona Basıldığında Kodun Değişmesi

Formumda kullandığım Çıkış butonunun kodları aşağıdaki gibidir. Formda aynı zamanda bir kaydet butonu var. Sorunum şu; kaydet butonuna basıldıktan sonra bu komutun sadece DoCmd.Close şeklinde çalışmasını istiyorum. Bu haliyle yaptığım kaydı siliyor. Kaydete tıklanmadıysa aşağıdaki kodun, tıklandı ise DoCmd.Close ın çalışması lazım.


Private Sub btn_çıkış1_Click()
On Error Resume Next
If IsNull(txtAraçDN) Then
DoCmd.Close
Exit Sub
End If

Dim mesaj
mesaj = MsgBox("Girilen Bilgiler Kayıt Edilmeden Form Kapatılsın mı?", vbYesNoCancel, "Çıkış")
If Me.txtAraçDN >= 0 Then

If mesaj = vbNo Then
mesaj = MsgBox("Gerekli blgilerin tamamını doldurup Kaydet tuşuna basarak kaydı tamamlayın", vbInformation, "Kayda Devam")


ElseIf mesaj = vbYes Then
If Me.NewRecord Then
Me.Undo
Else
Me.Recordset.Delete
End If

DoCmd.Close
End If

End If
End Sub

Sn.ozmly Örnek Ekliyerek Anlatınız.
açıkcası pek birşey anlamadım.

Sayın Styker

Mesajı güncelledim.. Formda bilgileri girip ileri butonuna bastığınızda tab_2 açılacak. Buraya da bilgileri girip kaydet yapıyoruz sonra çıkış dediğimizde kaydı siliyor. Kaydete basıldıktan sonra çıkış dediğimizde çıkış butonunun olayındaki kontrolleri yapmadan ve tabi kaydı da sileden çıkması lazım

Sn.ozmly Örneği 2003 Formatına Çevirme İmkanınız varmı.

Me.Recordset.Delete Yazan Kısmı Siliniz.

Maalesef çevrilmiyor

(14/12/2010, 14:16)ozmly yazdı: Maalesef çevrilmiyor

Me.Recordset.Delete Yazan Kısmı Siliniz.
Yaptığınız Kayıt Silinmeyecektir.