Can someone help me put a "for loop" around this thing. Time is of essence and I don't have any right now to learn. Thanks
-----
Private Sub cmdKeyRecord_Click()
DoCmd.GoToRecord , , acFirst
AppActivate "tnd06h.hertz.com", True
SendKeys "{F7}", True
SleepX (1000)
SendKeys Me.Area, True
If Len(Me.Area) <> 5 Then
SendKeys "{TAB}", True
End If
SendKeys Me.PO, True
If Len(Me.PO) <> 7 Then
SendKeys "{TAB}", True
End If
SendKeys Me.Item1, True
If Len(Me.Item1) <> 4 Then
SendKeys "{TAB}", True
End If
SendKeys Me.Item2, True
If Len(Me.Item2) <> 4 Then
SendKeys "{TAB}", True
End If
SendKeys "{F8}", True
SleepX (2000)
SendKeys "+{TAB 4}", True
SendKeys Me.MFG, True
If Len(Me.MFG) <> 3 Then
SendKeys "{TAB}", True
End If
SendKeys Me.NewModel, True
If Len(Me.NewModel) <> 8 Then
SendKeys "{TAB}", True
End If
SendKeys Me.MY, True
SendKeys "{END}", True
SendKeys "+{TAB}", True
SendKeys Me.RequestedBy, True
If Len(Me.RequestedBy) <> 16 Then
SendKeys "{TAB}", True
End If
SendKeys Me.Reason, True
SendKeys "{F6}", True
SleepX (2000)
SendKeys "{F7}", True
Me.Done = True
DoCmd.Requery
End Sub

This message has been edited. Last edited by: Kerry,

Is this Visual Basic ??

Yes, VB macro set up in MS Access. Currently I click a button which runs through one record in the database. I want to set this up to run through a number of records before it stops. I have other things I must get done and am stuck here clicking this button every 4 seconds or so. Thanks much.

TimpyJane,

This is WebFOCUS forum, you will have better luck at a VisualBasic forum, non?

Timpy, I'm sure this will solve all your problems. Enclose your code in this loop:

-REPEAT FORLOOP X TIMES;

-FORLOOP

Problem solved, no? Please let us know if this resolved your problem.

The suggestion you have got from bcowley is a perfect webfocus answer, but since you ask for a Access VB looping that will not work.

try something like this

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

look at this site

http://www.everythingaccess.com

Private Sub cmdKeyRecord_Click()
Dim timesToLoop = 100
For count = 0 to timesToLoop
DoCmd.GoToRecord , , acFirst
AppActivate "tnd06h.hertz.com", True
SendKeys "{F7}", True
SleepX (1000)
SendKeys Me.Area, True
If Len(Me.Area) <> 5 Then
SendKeys "{TAB}", True
End If
SendKeys Me.PO, True
If Len(Me.PO) <> 7 Then
SendKeys "{TAB}", True
End If
SendKeys Me.Item1, True
If Len(Me.Item1) <> 4 Then
SendKeys "{TAB}", True
End If
SendKeys Me.Item2, True
If Len(Me.Item2) <> 4 Then
SendKeys "{TAB}", True
End If
SendKeys "{F8}", True
SleepX (2000)
SendKeys "+{TAB 4}", True
SendKeys Me.MFG, True
If Len(Me.MFG) <> 3 Then
SendKeys "{TAB}", True
End If
SendKeys Me.NewModel, True
If Len(Me.NewModel) <> 8 Then
SendKeys "{TAB}", True
End If
SendKeys Me.MY, True
SendKeys "{END}", True
SendKeys "+{TAB}", True
SendKeys Me.RequestedBy, True
If Len(Me.RequestedBy) <> 16 Then
SendKeys "{TAB}", True
End If
SendKeys Me.Reason, True
SendKeys "{F6}", True
SleepX (2000)
SendKeys "{F7}", True
Me.Done = True
DoCmd.Requery
Next



End Sub


That should work for you, just change the timesToLoop value to the number of loops you need.

Lucas, I'm getting an error on the Dim timesToLoop = 100 as follows:

Compile error:
Syntax error

Any ideas?
Thanks

quote:

Dim timesToLoop = 100
For count = 0 to timesToLoop

Just change it to
For count = 0 to 100
and lose the "Dim timesToLoop = 100" all together.

You could also make it
timesToLoop = 100
For count = 0 to timesToLoop
and just remove the "Dim", that should work to.

The "timesToLoop = 100" is just the upper limit on the for loop limiting the number of times you want to loop.

I found this to work somewhat:

Dim LoopCounter As Integer
LoopCounter = 2
While LoopCounter < 4

[coding]

LoopCounter = LoopCounter + 1
Wend
End Sub
----
I set it to 2 as a test. First record updates just fine, but the job won't pull in the second record until I click anywhere on the Access database, which is probably something about which application has focus. Thus, the loop isn't buying me anything. Any ideas? We're gonna get this yet )

I developed many access applications, but never created an update script this way.
it reminds me of the old days when I created macros for lotus 1-2-3. (one of the first spreadsheet programs)
I would try to create an real update query instead.

Did you search the internet for a better support site on access?

Hi Frank. I searched for a forum site and am just about finished with the register part.

I appreciate everyone's input. I knew I could get some help here - lots of good folks.

Timpy