Hello:
I am trying to assign a team to review another team progress. However one team cannot have more than 1 team to review. When I run the script it gives a Loop without Do Error
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
I tried removing them one at a time and still get the same error.
In line 21 if the TeamReviewer is already assigned a team I want the script to go to the next record (rsAccess11)
In line 27 after the TeamReviewer is assigned a team I want the script to go to the next record (rsAccess11)
Does this make sense?
This code doesn't cause any errors and appears to be along the line of what you are after. Using tabbing will help to make the code easier to read
Do While Not rsAccess11.EOF
TeamName = rsAccess11("TeamName")
strSQLAccess12 = "SELECT Data.TeamName, AdjNameDept.Dept FROM Data INNER JOIN AdjNameDept ON Data.TeamName = AdjNameDept.Fullteamname WHERE TeamName <> '" & TeamName & "'"
rsAccess12.Open strSQLAccess12, cnAccess12, strDBCursorType, strDBLockType, strDBOptions
Do While Not rsAccess12.EOF
If rsAccess12.EOF Then
strSQLAccess13 = "UPDATE Data Set TeamReviewer = 'No Team Reviewer' WHERE TeamName = '" & TeamName & "'"
rsAccess13.Open strSQLAccess13, cnAccess13, strDBCursorType, strDBLockType, strDBOptions
Do While Not rsAccess13.EOF
'Code for rsAccess13
rsAccess13.MoveNext
Loop
Else
TeamReviewer = rsAccess12("TeamName")
strSQLAccess14 = "SELECT TeamReviewer FROM Data WHERE TeamReviewer = '" & TeamReviewer & "'"
rsAccess14.Open strSQLAccess14, cnAccess14, strDBCursorType, strDBLockType, strDBOptions
Do While Not rsAccess14.EOF
If Not rsAccess14.EOF Then
TeamReviewer = rsAccess14("TeamReviewer")
strSQLAccess15 = "UPDATE Data Set TeamReviewer = '" & TeamReviewer & "', Selected = 'Yes' WHERE TeamName = '" & TeamName & "'"
rsAccess15.Open strSQLAccess15, cnAccess15, strDBCursorType, strDBLockType, strDBOptions
Do While Not rsAccess15.EOF
'Code for rsAccess15
rsAccess15.MoveNext
Loop
End If
rsAccess14.MoveNext
Loop
End If
rsAccess12.MoveNext
Loop
rsAccess11.MoveNext
Loop
MsgBox "All Done!"
Business Accounts
Answer for Membership
by: DatabaseMXPosted on 2009-05-04 at 11:22:44ID: 24297721
Looks like you have an extra Loop on line 21 or 27
mx