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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Butona Basıldığında Kodun Değişmesi - Yazar: ozmly - 14/12/2010, 13:34
Task