[AccessD] Bit OT - Reporting Services Question

I agree that "Do While Condition Loop" is logically the equivalent of "While
Condition Wend", but the fact remains that "While Wend" is still very much
part of the language. Which why I asked Darren where the code was being run.

Very curious!

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Tuesday, February 28, 2006 9:44 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT - Reporting Services Question


Darren,

Can you use:

Do While intCount < 10

    . . . .

    intCount = intCount + 1
Loop

I've used this instead of While - Wend for some time and it always work.

Dan 
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Tuesday, February 28, 2006 7:49 AM
To: AccessD
Subject: [AccessD] Bit OT - Reporting Services Question

Hello all

In reporting services if I run the code below (from Lambert) I get the error
message...

"Wend statements are no longer supported . Use "End While" statements
instead

So If I replace wend with End while I don't get the desired result

The desired result is

From..... .C:\Program Files\Some Folder\some cool file.dll 

I want.....some cool file.dll 

But I am getting.....C:\Program Files\Some Folder

any suggestions??

Many thanks

Darren

Code Start>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Function GetPath(aPath) As String

Dim foo As Integer, aSlash As Integer

aSlash = 0

foo = InStr(aPath, "\")

While (foo > 0)

aSlash = foo

foo = InStr(aSlash + 1, aPath, "\")

end while

If aSlash > 0 Then

GetPath = Left$(aPath, aSlash)

Else

GetPath = aPath

End If

End Function

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com