+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek (/konu-form-verilerinde-degisiklik-olup-olmadigini-kontrol-etmek.html)
Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek - accessman - 23/03/2020
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
CreateObject("WScript.Shell").PopUp mesaj, sure, Title, vbOKOnly + vbExclamationama bir müddet veri girilmeyince otomatik Undo yapsa nasıl olur
Cvp: Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek - berduş - 23/03/2020
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
Cvp: Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek - accessman - 23/03/2020
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
Cvp: Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek - alicimri - 23/03/2020
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
Cvp: Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek - accessman - 23/03/2020
teşekkürler sn. @alicimri
Cvp: Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek - alicimri - 23/03/2020
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