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

#37
Üstad buda 5 saniede karşılaştırır.Farkı önceki timer her saniede çalışıyordu ve bunda ise her 5 saniyede.
Kodlar doğru çalışıyorsa bu daha iyi.Sayende Access uzmanı olacağım Img-grin

#If VBA7 Then
    Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
#Else
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
#End If


Private Type POINTAPI
        X As Long
        Y As Long
End Type


Dim a As POINTAPI
Dim b As Long
Dim c As Long
Dim ret As Variant
Dim ilk As String
Dim son As String
Dim say As Integer
Dim bol As Long, bol2 As Long

Const saniye As Long = 5000 'saniye cinsi

Private Sub Form_Load()
      bol = saniye / 2
      bol2 = saniye / (bol)
      TimerInterval = 1000 'Burasi acilis icin kalmali
      ilk = mousepos
      say = 1
End Sub

Private Function mousepos() As String
    ret = GetCursorPos(a)
    b = a.X
    c = a.Y
    mousepos = "X:" & b & " ; Y :" & c
End Function

Sub mesajVer()
    MsgBox "Abi yorgunuz galiba" _
            & vbCrLf & " kalk yerine yat bende verileri kaybolmadan kaydedeyim" _
            & vbCrLf & " veya daha iyisi deðiþiklikleri geri alayým" _
            & vbCrLf & " sen bir ara tekrar bakarsýn", vbInformation, "Süre"
End Sub
Private Sub Form_Timer()
   
    If say Mod bol2 = 1 Then ilk = mousepos
    If say Mod bol2 = 0 Then son = mousepos

    If say Mod bol2 = 0 Then
      If ilk = son Then mesajVer
    End If
   
    TimerInterval = bol 'Burasi extra böyle yapildi
    say = say + 1
   

End Sub
.rar Belirli süre sonra mesaj yada kapanma_acc3.rar (Dosya Boyutu: 92,26 KB | İndirme Sayısı: 5)
Cevapla
#38
Zaten öylesin ellerine sağlık
Cevapla
#39
Rica ederim abey,sorun çözüldümü?

Bu api çok işe yarar bence.
Cevapla
#40
ellerinize sağlık çok güzel olmuş
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task