Kodlar doğru çalışıyorsa bu daha iyi.Sayende Access uzmanı olacağım
#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
