ghostriderofthenite Ultimate Bot project

thing im exploreing some these

http://allenbrowne.com/ser-29.html
Microsoft Access tips: VBA Traps: Working with Recordsets

Microsoft Access tips: VBA Traps: Working with Recordsets

Common mistakes developers make when working with Recordsets in a Microsoft Access database

5. MoveNext without testing EOF

A MoveNext may take you to the end of the recordset (EOF) or a MovePrevious to the beginning of the recordset (BOF). Failure to test for these conditions means your code works for most cases, but generates an error one day when the last/first record is accessed.

The problem is prevalent when you have another exit condition in mind for your loop, so you are not thinking of EOF. Test for EOF (or BOF if moving backwards) before checking the real exit condition for your loop.
Solution:

Use this construct for looping through Access recordsets:

    Do while Not rst.EOF
        If rst![MyField] <> Something Then  'The real loop exit condition.
            Exit Do
        End If
        ' Rest of your code here.
        rst.MoveNext
    Loop

and

Another solution would be to use a timer control. You could set the time to 30000 msecs
and enable the timer. In the Timer_Timer() event you will disable the timer.
In your code you need a line to wait for the disabled timer.
Assume Timer1 added to your form
Code:

Private Sub Timer1_Timer()
  Timer1.Enabled = False
End Sub

‘in your code loop
…
While Timer1.Enabled: DoEvents: Wend ‘wait for the timer to expire

or this possibily

For the sake of a complete set of solutions:

If you’re using vb6 in an application environment (like excel), you can use

Application.OnTime (now + TimeValue(“00:00:30”)), “ProcedurePart2”

to call a procedure (with no parameters) after 30 seconds without locking up the application or consuming CPU power.

This would, for instance, work in any VBA environment. Depending on the nature of your VB6 app (standalone vs add-on), this option may be available to you.

Public Sub delay(PauseTime as integer)
    Dim start As single
    start = Timer  
   Do While Timer < start + PauseTime
    If (Timer < start) Then 'midnight crossover
        start = start - (86400 + 1)
    End If  
    DoEvents   ' Yield to other processes.

    Loop
End Sub

Ny lol I’m in upstate Ny, Well Yes I need connect and exit Paltalk but also how to post timer in room and when trivia finished how to post in room and accept responses and award points and the like

i think dis is part of the codes for the trivia i need just trying figure out how make work Use this construct for looping through Access recordsets:

	Do while Not rst.EOF
        If rst![MyField] <> Something Then  'The real loop exit condition.
            Exit Do
        End If
        ' Rest of your code here.
        rst.MoveNext
    Loop

This would, for instance, work in any VBA environment. Depending on the nature of your VB6 app (standalone vs add-on), this option may be available to you.

Public Sub delay(PauseTime as integer)
    Dim start As single
    start = Timer  
   Do While Timer < start + PauseTime
    If (Timer < start) Then 'midnight crossover
        start = start - (86400 + 1)

ok I’m still working trivia almost working and have meeting robin tonite help finish it hopefully I created a local form as test run see it works then would need that work in paltalk

wonder if change code to this for the textbox respectively would work might try it lol

(form1)
 
private sub command1_click ()

    me.hide

    form2.show

    form2.textbox1.text = me.textbox1.text

end sub
 
(form2)
 
private sub command1_click ()

    me.hide

    form1.show

    form1.textbox1.text = me.textbox1.text

end sub

new version 9 https://www.dropbox.com/s/23n4j8y8l9bwip9/NewBot%20Project%20files.zip?dl=0

Reinstalled 806 classic right from Paltalk and now it works again with all cams and no dc hahahha