Dim sl As String
Dim dakif As String
Dim satif As String
Dim durna As String
Dim ledif As String
Dim ab As String
ab = abc.Caption
dakif = Mid(ab, 4, 2)
satif = Mid(ab, 1, 2)
sl = "Select led,durno "
sl = sl & "from Table3"
sl = sl & " where saat="
sl = sl & " " & satif & ""
sl = sl & " and dak="
sl = sl & " " & dakif & ""
Set rs = DTBS.OpenRecordset(sl)
ledif = rs("led")
durna = rs("durno")
If durna = 1 Then
led_yak (ledif)
End If
If durna = 0 Then
led_sondur (ledif)
End If
burada ben olayı kısaca anlatayım saatin yazdığı bi label var dakika ve saati ayırıp önceden access de tanımlı tablodan ayarlanmış saatte istenen ledi ve durumunu bulup ona göre hareket edecek bi kod parçası sorun şu eğer o saat dakikada alarmlık olay yoksa no current record deyip olayı kapatıyor onun dışında kodda herhangi bir problem yok yardımcı olursanız sevinirim
|
Del.icio.us
Digg
Facebook
Furl
Google
Blink
Simpy
Spurl
Y! MyWeb