[AccessD] Bit OT - Reporting Services Question

Hi Lambert
It's in Reporting Services
Reporting Services is a Microsoft report tool designer that sits inside Visual
Studio
The idea is to have an easy to use (Their words not mine) report tool that
speaks with SQL dB's

So technically - Not Access - hence the OT Subject thread - but Vb type code

I posted this q to the DBA-SQLServer list too

Stuart Mc had the right answer - As usual :-))

I was treating the code as 'ReturnFileName' code but of course
The code was doing exactly what it was designed to do and that is 'ReturnPath'
not filename

What a dufus - <sigh>

Thanks Stuart and thanks Lambert

Darren
------------------------------
T: 0424 696 433
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, 1 March 2006 4:07 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [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
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com