Code

Re: VBscript problem

SamDahl — Tue, 06 Jun 2006 23:08:21 GMT

Here's a good website for VBS syntax:

http://www.w3schools.com/vbscript/default.asp

Re: VBscript problem

SamDahl — Tue, 06 Jun 2006 23:06:41 GMT

Do While ( (Len(NewId) >0) AND (Len(NewId) < 9 ))
NewId="0" & NewId
Loop

Re: VBscript problem

Maglor — Tue, 06 Jun 2006 14:15:43 GMT

Use 'wend' instead of 'End While'?

Re: VBscript problem

liorlankri — Tue, 06 Jun 2006 05:44:28 GMT

That's work!
But I have new Problem:

Private Function FormatId (OldId)
Dim NewId
NewId=OldId
While ( (Len(NewId) >0) AND (Len(NewId) < 9 ))
NewId="0" & NewId
End While
FormatId = NewId
End function

I get this error

Expected statement
File:script.vbs
Line:56
End While

What is the problem?

Re: VBscript problem

SamDahl — Mon, 05 Jun 2006 23:41:21 GMT

Is there an 'As String' in VBS?
seems to work without them...

VBscript problem

liorlankri — Mon, 05 Jun 2006 11:38:54 GMT

I have a OnBeforeChange event. In this event code i Try to call to a private VBscript function.

private Function FormatId (OldId As String) As String
Dim NewId As String
NewId="0" & OldId
FormatId = NewId
End function

When I run the form I get this Error

Expected ')'
File:script.vbs
Line:51
private Function FormatId (OldId As String) As String

What is the problem?