VBA Loop Problem

Visitors can check out the Forum FAQ by clicking this link. You have to register before you can post: click the REGISTER link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. View our Forum Privacy Policy.
Want to receive the latest contracting news and advice straight to your inbox? Sign up to the ContractorUK newsletter here. Every sign up will also be entered into a draw to WIN £100 Amazon vouchers!

You are not logged in or you do not have permission to access this page. This could be due to one of several reasons:

You are not logged in. If you are already registered, fill in the form below to log in, or follow the "Sign Up" link to register a new account.
You may not have sufficient privileges to access this page. Are you trying to edit someone else's post, access administrative features or some other privileged system?
If you are trying to post, the administrator may have disabled your account, or it may be awaiting activation.

Scrag Meister replied

26 April 2010, 11:33
My first move would be to put in an error trap and check if there is one being raised and put in some Debug.Prints so you can see exactly where the execution has got to.
Leave a comment:
Good Man started a topic VBA Loop Problem

26 April 2010, 10:34
VBA Loop Problem

Guys,
Can anyone help me with the atatched code. Been working on it for to long. The problem is every time a run the code , the reports export fine and when the loop finshes my PC freezes.
Would really apprecaite any advice. I have tried if exit statments to no avail.

Private Sub Command91_Click()

Dim db As Object
Dim rs As Object
Dim StrPractice As String
Dim Practice As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("SelectPractice")

Do Until rs.EOF = True

StrPractice = ("Practice")

DoCmd.Echo False, ""

Me.Practice = StrPractice

DoCmd.OpenReport "Master Practice Report", acViewPreview, acNormal

DoCmd.OutputTo acOutputReport, , _
acFormatSNP, "C:\test\" & StrPractice & ".snp", False
DoCmd.Close acReport, "Master Practice Report"

rs.MoveNext

Loop

Set rs = Nothing

Set db = Nothing

Exit Sub

End Sub
Tags: None