Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
.rar proje1.rar (Dosya Boyutu: 177,48 KB | İndirme Sayısı: 4)
Son Düzenleme: 14/12/2010, 14:02, Düzenleyen: ozmly.
Cevapla
Çözüldü #2
Sn.ozmly Örnek Ekliyerek Anlatınız.
açıkcası pek birşey anlamadım.
Application Engineer
Cevapla
Çözüldü #3
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
Son Düzenleme: 14/12/2010, 14:07, Düzenleyen: ozmly.
Cevapla
Çözüldü #4
Sn.ozmly Örneği 2003 Formatına Çevirme İmkanınız varmı.

Me.Recordset.Delete Yazan Kısmı Siliniz.
Application Engineer
Cevapla
Çözüldü #5
Maalesef çevrilmiyor
Cevapla
Çözüldü #6
(14/12/2010, 14:16)ozmly yazdı: Maalesef çevrilmiyor

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task