Yeni kaydı iptal etme

[akd]

Merhaba arkadaşlar,
Ben Yeni kayıt için bir buton
Ben kayıt için bir buton ekledim,
Yeni kayıt butonuna tıkladıkdan sonra,
yeni kayıttan vazgeçmek istiyorum,
Vazgeç butonu ekledim bu butona,
nasıl bir kod yazmam gerekir acaba. ?
İyi akşamlar...

 

[attila52]

Me.undo
BaŞka Bİr Kod Yok

 

[akd]

malesef hiç birşey olmadı be kardeşim.
iyi akşamlar...

 

[modalı]

Sayın akd,

Maalesef çalışıyor. Neresi çalışmıyor anlayamadım.

Bir de alt satırına

DoCmd.GoToRecord , , acLast

eklerseniz o zaman son veriye gitmiş olur.

İyi çalışmalar

 

[akd]

Çok Çok teşekkürler Sayın modalı ve sayın attila52 kardeşlerim,
Ne yapalım bu accessi öğrenene kadar, sizin değerli zamanlarınızı alacağız,
Nolur hakkınızı helal edin...
İyi geceler...

 

[asena1313]

otomatik sayı

arkadaşlar yeni konu açmak istemedim yardımlarınız için şimdiden teşekkürler

bu me.undo komutunu kullandığım zaman son kaydı iptal ediyor
fakat otomatik sayı 1 artıyor

kaydet dediğim zaman 10 kaydet yaptıysam 11 kayıt yapıyor du 11. boş tabii

bende me.undo komutunu yazdım fakat şimdi kayıtlarım yani otomatik sayı 2 şer 2 şer gidiyor bunu engellemenin bir yolu var mı acaba

Teşekkürler

 

[attila52]

sayın asena1313
me.undo üstünde bulunduğun kaydı iptal etmenin kıscası tabiki otomatik sayı artanını 1 yok eder ama sen alanları bir değere bağlayıp diğer kodları da eklersen örneğin bir değişken e atarsan durumu değişir ozaman sana işte şu veri yok bu kayıt işlemi yapılamaz diye yanıt gönderen ve sonrada kaydet veya iptal diye seçenekler sunan bir kod bileşenini ataman gerekir devamında

 

[attila52]

satır noyu yok etmeden kaydı iptal et komutu örnek

'"tek tırnak içinde olanlar kodla alakası yok açıklamadır."

'öncelikle form üzerine
'1. cmd button = kaydet 'buton adı
'2. text alanı = Kayıt 'text adı
'3. İlerlemeÇubuğu
'ekleyiniz

'sonra buton un kod bölümüne

'Girildiğinde=[OlayYordam] aşağıdaki kodu ekle

Private Sub kaydet_Enter()
On Error GoTo hata
Kayıt = 1
hata: Exit Sub
End Sub

'Çıkıldığında [OlayYordam] kod bölümüne aşağıdakini yaz

Private Sub kaydet_Exit(Cancel As Integer)
On Error GoTo hata
Kayıt = 0
hata: Exit Sub
End Sub

'Odaklanmasonlandığında= [OlayYordam] kod bölümüne yazılacaklar

Private Sub kaydet_LostFocus()
On Error GoTo hata
kayıt = 0
hata: Exit Sub
End Sub

'Tıklatıldığında=[OlayYordam] kodbölümüne yazılacaklar

Private Sub kaydet_Click()
On Error GoTo Err_kaydet_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Dim X

If IsNull(Me.KayıtYeri) Then MsgBox "Lütfen müşteri adını yazınız", 48, "Kayıt İşlemi": Me.KayıtYeri.SetFocus: Exit Sub
If MsgBox("Değişiklikler kaydedilsin mi?", 36, "KAYDET") = 6 Then
For X = 1 To 1000 Step 10
Me.İlerlemeÇubuğu.Value = X
Next X
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Me.İlerlemeÇubuğu.Value = 0


Else

Me.Undo

End If
Exit_kaydet_Click:
Exit Sub
Err_kaydet_Click:
MsgBox "Kaydetme işlemi yapılamadı", 0, "Kayıt İşlemi"
Resume Exit_kaydet_Click


End Sub


'evet böylece yukarıda yazmış olduğumuz kodlar ile eğer kayıt kaydetme sırasında iptal edilirse gerekli düzeltme otomatik sayıyı yutmadan düzeltilip yeniden kaydet komutu verilebilir sayın arkadaşlar access teki kaydet mevzuatı aslında bir geyik muhabbeti olup kaydetmesine gerek yoktur son haliyle kalır ama biz bazı istek ve arzularımızı tatmin etmek için illaki bir kaydet komutu vereceğizya ne gerek varsa işte bunun sonucuda budur buradaki kaydet aldatmacası aslında kaydı yenile komutu üstünden işlem görür ki buda son girdiğiniz kayıtları form üzerinde sadece günceller aslında kayıt kaydedilmiştir.

gerisi kolay gelsin

 

[asena1313]

attila52 yardımların için çok teşekkür ederim