Skip to main content

AccessTr.neT


Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek

Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek

Çözüldü #1
hemen Dirty ve BeforeUpdate i kastetmediğimi söyleyeyim
bir kaydı açtık bir şeyler değiştirdik ve telefon geldi muhabbet uzadı. kayıtta yaptığımız değişiklikler belki önemli belki değil 
son girilen veriden sonra zaman çalışmaya başlasa mesela bir dk içinde hiç veri girişi olmazsa 
(option buton tıklanması falan ne varsa hepsi dahil olmak üzere)
bilgisayar huylanıp bize sorsa 
"Abi devam etmeyeceksen istersen bu haliyle kaydedeyim veya sonra yaparsın değişikliğini bütün değişikliği geri alayım"
bunun için de bir muddet beklese
Visual Basic Code
CreateObject("WScript.Shell").PopUp mesaj, sure, Title, vbOKOnly + vbExclamation
baktı ki hiç ilgilenen yok değişikliği geri alsa sonra ister kapansın ister açık kalsın
ama bir müddet veri girilmeyince otomatik Undo yapsa nasıl olur
@benbendedeilem
Son Düzenleme: 23/03/2020, 10:33, Düzenleyen: accessman.
Cevapla
#2
Emin değilim ama şöyle birşey olabilir mouse move olayı ile zaman kaydedilip form timer olayı ile zaman farkı hesaplanıp süre geçmişse ekrana mesaj gonderilebilir

Yada mouse move yerine change olayına da eklenebilir son değişim zamani
Cevapla
#3
sn. @berduş mantıklı çoğu şeyi mosue ile yapıyoruz ama mouse hareketi olmadan da bir çok şey olabilir. Change olayı form için mi mouse için mi
Cevapla
#4
Merhaba aşağıdaki kodları kendinize uyarlarsanız 
PHP Kod:
Private Sub Form_Current()
Me.TimerInterval = 10000
End Sub

Private Sub Form_Timer(ı
'Burada tablo alanları ile formun seçili kayıttaki kontrollerle farklılık var mı diye test yapıyorsun.
'Farklı ise uyarı verdiriyorsun
'aşağıdaki satırı her koşulda ekliyorsunuz
Me.TimerInterval = 0
End Sub
Son Düzenleme: 23/03/2020, 12:05, Düzenleyen: alicimri.
Cevapla
#5
teşekkürler sn. @alicimri
Cevapla
#6
PHP Kod:
Private Sub Form_Timer()
 Dim rs As Object
    Set rs = Me.Recordset
Metin0.setfocus
   If Metin1.Value<> rs("Alan1") Or Metin2.Value<> rs("Alan2") Then
   MsgBox "Kayıt devam etsin mi"
   End If
Me.TimerInterval = 0
End Sub
Son Düzenleme: 23/03/2020, 18:57, Düzenleyen: alicimri.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da