Форумы HiProg.com - MS ACCESS, VBA, VB

ник: snipe

чего творим - то

в вашем случае хоть мульярд ставьте толку не будет

вот

Private Sub Form_Timer()
Dim statusint As Variant
statusint = Inp(889)

If statusint = 95 Then
If takt < 7 Then 'задержка 7*[интервал таймера]
If jkl = False Then
Me!RF = Me!RF + Me!StepNet
Call To_TRX
jkl = True
End If
takt = takt + 1
Else
Me!RF = Me!RF + Me!StepNet
Call To_TRX
takt = takt + 1
End If
Else
If statusint = 255 Then
If takt < 7 Then 'задержка 7*[интервал таймера]
If jkl = False Then
Me!RF = Me!RF - Me!StepNet
Call To_TRX
jkl = True
End If
takt = takt + 1
Else
Me!RF = Me!RF - Me!StepNet
Call To_TRX
takt = takt + 1
End If
Else
jkl = False
takt = 0
End If
End If

End Sub