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

1 2
14/12/2010, 13:34

ozmly

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
14/12/2010, 13:39

emturker

Sn.ozmly Örnek Ekliyerek Anlatınız.
açıkcası pek birşey anlamadım.
14/12/2010, 14:03

ozmly

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
14/12/2010, 14:10

emturker

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

Me.Recordset.Delete Yazan Kısmı Siliniz.
14/12/2010, 14:16

ozmly

Maalesef çevrilmiyor
14/12/2010, 14:17

emturker

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

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