Another Pulling Strings apart

[joeyh]

It's me again. I thought that I had solved my problem but I didn't. This is how the function looks.

Function Seperate(Field)
Field = Cstr(Field)
RSpace = InStr(Field, " &quot
Field = Left(Field, RSpace - 1)
Seperate = Field
End Function

It gives me an error saying:
Invalid procedure call or argument: 'Left'

The wierdest thing that I found out was, if I did it like this:

Function Seperate(Field)
Field = Cstr(Field)
RSpace = InStr(Field, " &quot
Field = Left(Field, 2)
Seperate = Field
End Function

it worked with no problem. The thing is I do not know how many characters from the left I will need. Whether it is 2 or 1 or ever how many. This is the blindfold nature of programming.
Any help will be appreciated.
Thanks
Joeyh

 

[luciddream]

i don't know anything about vbscript... but maybe you might want to try to use parseint on rspace before you subtract 1.

 

[NickBulka]

Didn't the answer I supplied in the other post work? Will your field always contain a space?

nick bulka

 

[joeyh]

Nick,

I haven't had a chance to try Clng, but I will and will post back here if it works or if it doesn't. Yes the field will always contain a space. What I am doing is developing an API to update a MS Access database. I have two tables. One table has fields:
Attach_id
Attachment

I have a drop down menu that supplies both of the fields.
This is the way it looks when the function is called.

1 mowers
2 boxblades

and so on.
The reason I am doing this is because The relationship in the other table is linked to the attach_id in the other.
This way the persons updating the database will not have to know the attach_id number in the main table. I am not very good at explaining, but maybe you will understand what I am doing.
Joeyh

 

[jkl]

joey, try this:
============

Function Seperate(Field)
fieldVal = Cstr(Field)
spaceLocale = InStr(Field, " &quot
fieldVal = Mid(Field, (spaceLocale-1) )
Seperate = fieldVal
End Function

============

 

[joeyh]

The mid did not work. I get a invalid procedure call or argument no matter what I use. I believe I going to give up because I do not think I can do it in VBScript. I can do it all day long in Visual Basic, nut if anyone else has any suggestions, please let me know.
Thanks,
Joeyh

 

[joeyh]

The mid did not work. I get a invalid procedure call or argument no matter what I use. I believe I going to give up because I do not think I can do it in VBScript. I can do it all day long in Visual Basic, but if anyone else has any suggestions, please let me know.
Thanks,
Joeyh

 

[NickBulka]

the code looks syntactically correct. again, I'll suggest testing to make sure that the instr function is returning a positive value. This is something you should ALWAYS do, even if you always expect a non-zero value. It's just good programming.

nick bulka