[Αννατζικ]

Γιώργο ευχαριστώ σχεδόν μου έκανες όλη τη βάση o κώδικας δεν κτυπάει και δουλεύει μια χαρά επειδή κάνω έναν αυτοματισμό (μαζί με το encoder θα βάλλω και ένα digital Switches) προσπαθώ να κάνω :
Option Compare Database
Option Explicit
Private WithEvents Encoder As PhidgetEncoder
Dim rs As DAO.Recordset
Dim Switches As Boolean
if Switches = False Then cmdStart_Click() = True
εάν είναι False τότε να κάνει ότι γίνεται στο κουμπί START εάν ίνα True κανε ότι το κουμπί STOP

Υπάρχει κάποιος παραδειγματικός κώδικας στο youtube:για το Switches

Public WithEvents phid As PhidgetInterfaceKit
Dim Switches As Boolean
Dim lightsOn As Boolean
Private Sub Form_Load()
Set phid = New PhidgetInterfaceKit
phid.Open
Switches = False
lightsOn = False
Me.TimerInterval = 1000
End Sub
Private Sub Form_Timer()
Dim currentTime As String
Me.lblClock.Caption = Format(Now(), "hh:nn:ss")
Me.lblDate.Caption = Format(Now(), "dddd dd, mmm-yyyy")
currentTime = Format(Now(), "hh:nn:ss")
txtLightAlarm.SetFocus
If (txtLightAlarm.Text = currentTime) Then
phid.OutputState(1) = True
phid.OutputState(2) = True
phid.OutputState(3) = True
phid.OutputState(4) = True
phid.OutputState(5) = True
phid.OutputState(6) = True
phid.OutputState(7) = True
lightsOn = True
End If
txtSwitchesSwitches Alarm.SetFocus
If (txtSwitchesAlarm.Text = currentTime) Then
Switches = True
phid.OutputState(1) = True
phid.OutputState(2) = True
phid.OutputState(3) = True
phid.OutputState(4) = True
phid.OutputState(5) = True
phid.OutputState(6) = True
phid.OutputState(7) = True
End If
If (Switches = True And phid.OutputState(1) = False) Then
phid.OutputState(1) = True
phid.OutputState(2) = True
phid.OutputState(3) = True
phid.OutputState(4) = True
phid.OutputState(5) = True
phid.OutputState(6) = True
phid.OutputState(7) = True
ElseIf (Switches = True And phid.OutputState(1) = True) Then
phid.OutputState(1) = False
phid.OutputState(2) = False
phid.OutputState(3) = False
phid.OutputState(4) = False
phid.OutputState(5) = False
phid.OutputState(6) = False
phid.OutputState(7) = False
ElseIf (Switches = False And lightsOn = False) Then
phid.OutputState(1) = False
phid.OutputState(2) = False
phid.OutputState(3) = False
phid.OutputState(4) = False
phid.OutputState(5) = False
phid.OutputState(6) = False
phid.OutputState(7) = False
End If
End Sub
Κάθε βοήθεια ευπρόσδεκτη ευχαριστώ