msaccess'de timer nerden ekleyebilirim

[living]

timer eklemeyi bulamadım nerden nasıl eklenir yada şu kodlarla bir örnek yapabilirmisiniz sayğılar

aşağıdaki kodlar internet bağlantısı olup olmadığını denetliyor

Private Const ERROR_SUCCESS = 0&
Private Const APINULL = 0&
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private ReturnCode As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" _
Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _ Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Function ActiveConnection() As Boolean
Dim hKey As Long
Dim lpSubKey As String
Dim phkResult As Long
Dim lpValueName As String
Dim lpReserved As Long
Dim lpType As Long
Dim lpData As Long
Dim lpcbData As Long
ActiveConnection = False
lpSubKey = "SystemCurrentControlSetServicesRemoteAccess"
ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, _
phkResult)
If ReturnCode = ERROR_SUCCESS Then
hKey = phkResult
lpValueName = "Remote Connection"
lpReserved = APINULL
lpType = APINULL
lpData = APINULL
lpcbData = APINULL
ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, ByVal lpData, lpcbData)
lpcbData = Len(lpData)
ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, lpData, lpcbData)
If ReturnCode = ERROR_SUCCESS Then
If lpData = 0 Then
ActiveConnection = False
Else
ActiveConnection = True
End If
End If
RegCloseKey (hKey)
End If
End Function

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If ActiveConnection = True Then
Label1 = "Connecté"
Else
Label1 = "Non connecté"
End If
End Sub

 

[Mahmut Bayram]

http://www.techonthenet.com/access/forms/flashing.htm
bir göz atın belki size göre bir şeyler vardır.

 

[Mahmut Bayram]

http://www.techonthenet.com/access/forms/flashing.htm bir göz atın derim Ã?ZÜR OLSUN 2 kere göndermiş tekini silebilir misiniz

 

[KoTiK]

http://www.excel.web.tr/viewtopic.php?t=6756

burada TIMER ekleme konusunda bir açıklama var. Gerçi SAAT için ama genede kurcalayarak çözebilir, kendi uygulamana uyarlayabilirsin...

iyi çalışmalar

 

[living]

ben yine beceremedim yukardaki kodlarla bir örnek uygulama yapabilirmisiniz internet bağlantısnın olup olmadığını gösteriyor