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
