[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