[RESOLVED] Electronic Draw

Plz check my following code:

Code:

---

Private Sub cmdStop_Click()
    MyRs.Close
    Timer1.Enabled = False
    MyRs.Open "select ename from Draw where pno='" & lblPNO.Caption & "'", MyConn, adOpenKeyset, adLockOptimistic
    lblName.Caption = MyRs.Fields!Ename
    MyRs.Close
End Sub

Private Sub Form_Load()
    MyConn.Open "Draw"
    MyRs.Open "select * from Draw", MyConn, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Timer1_Timer()
    lblPNO.Caption = MyRs.Fields!PNO
    MyRs.MoveNext
    If MyRs.EOF Then
      MyRs.MoveFirst
    End If
End Sub

---

This code works fine
Now I want to make the button for Start it again rather than i run the project again and again. Kindly guide how i make it

Do the same as you did in form load and then enable the timer.

Try moving the code in Form_Load to a new sub and call that sub whenever needed, ie. at startup and for the start button.

:wave:

I put my code in Start (which is sub routine) and call it through cmdStart, its work fine first time but if i press the stop button and again i click start button then it will give error:
Error No.3075
"Operation is not allowed when the object is open"

Because you are opening the connection again eventhough you haven't closed it !

This is the line causing the problem:

Code:

---

MyConn.Open "Draw"

---

Try closing the connection, when you press the Stop button.

:wave:

Thanks, let me check and confirm

Yes, it is works correctly, thank you so much akhileshbc