Butona Basıldığında Kodun Değişmesi - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Butona Basıldığında Kodun Değişmesi (/konu-butona-basildiginda-kodun-degismesi.html) Sayfalar:
1
2
|
Butona Basıldığında Kodun Değişmesi - ozmly - 14/12/2010 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 Cvp: Butona Basıldığında Kodun Değişmesi - emturker - 14/12/2010 Sn.ozmly Örnek Ekliyerek Anlatınız. açıkcası pek birşey anlamadım. Cvp: Butona Basıldığında Kodun Değişmesi - ozmly - 14/12/2010 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 Cvp: Butona Basıldığında Kodun Değişmesi - emturker - 14/12/2010 Sn.ozmly Örneği 2003 Formatına Çevirme İmkanınız varmı. Me.Recordset.Delete Yazan Kısmı Siliniz. Cvp: Butona Basıldığında Kodun Değişmesi - ozmly - 14/12/2010 Maalesef çevrilmiyor Cvp: Butona Basıldığında Kodun Değişmesi - emturker - 14/12/2010 (14/12/2010, 14:16)ozmly yazdı: Maalesef çevrilmiyor Me.Recordset.Delete Yazan Kısmı Siliniz. Yaptığınız Kayıt Silinmeyecektir. |