printing labels problem

[Octavee Uhl]

Hello,

I have a library program where I need to print spine labels of the call
number.
The call number is one field and is alphanumeric. It has data like the
folowing:
110 Ous
299 Uran V1
220.12 Car

When I print these labels I want them to look like this:
110
Ous

299
Uran V1 or

299
Uran
V1

220.12
Car

Any hints are appreciated.

Greetings
Octavee

 

[fredg]

Hello,

I have a library program where I need to print spine labels of the call
number.
The call number is one field and is alphanumeric. It has data like the
folowing:
110 Ous
299 Uran V1
220.12 Car

When I print these labels I want them to look like this:
110
Ous

299
Uran V1 or

299
Uran
V1

220.12
Car

Any hints are appreciated.

Greetings
Octavee

Use an unbound control for the label.

To get
299
Uran V1
Set it's control source to:

=Left([Fieldname],InStr([FieldName]," "_-1) & chr(13) & chr(10) &
Mid([FieldName],InStr([fieldName]," ")+1)

The above should be all on one line.

To get
299
Uran
V1
as control source, write:

=Replace([FieldName]," ", chr(13) & chr(10))

 

[Octavee]

Hi Fred,

I tried the unbound field:
=Left([itemcallnumber],InStr([itemcallnumber]," "_-1) & chr(13) & chr(10) &
Mid([itemcallnumber],InStr([itemcallnumber]," ")+1)

But it gave me a syntax error.

The other solution =Replace([FieldName]," ", chr(13) & chr(10)) and it
worked great. Thanks very much.

Octavee

Hello,

I have a library program where I need to print spine labels of the call
number.
The call number is one field and is alphanumeric. It has data like the
folowing:
110 Ous
299 Uran V1
220.12 Car

When I print these labels I want them to look like this:
110
Ous

299
Uran V1 or

299
Uran
V1

220.12
Car

Any hints are appreciated.

Greetings
Octavee

Use an unbound control for the label.

To get
299
Uran V1
Set it's control source to:

=Left([Fieldname],InStr([FieldName]," "_-1) & chr(13) & chr(10) &
Mid([FieldName],InStr([fieldName]," ")+1)

The above should be all on one line.

To get
299
Uran
V1
as control source, write:

=Replace([FieldName]," ", chr(13) & chr(10))

 

[fredg]

Hi Fred,

I tried the unbound field:
=Left([itemcallnumber],InStr([itemcallnumber]," "_-1) & chr(13) & chr(10) &
Mid([itemcallnumber],InStr([itemcallnumber]," ")+1)

But it gave me a syntax error.

The other solution =Replace([FieldName]," ", chr(13) & chr(10)) and it
worked great. Thanks very much.

Octavee

Hello,

I have a library program where I need to print spine labels of the call
number.
The call number is one field and is alphanumeric. It has data like the
folowing:
110 Ous
299 Uran V1
220.12 Car

When I print these labels I want them to look like this:
110
Ous

299
Uran V1 or

299
Uran
V1

220.12
Car

Any hints are appreciated.

Greetings
Octavee

Use an unbound control for the label.

To get
299
Uran V1
Set it's control source to:

=Left([Fieldname],InStr([FieldName]," "_-1) & chr(13) & chr(10) &
Mid([FieldName],InStr([fieldName]," ")+1)

The above should be all on one line.

To get
299
Uran
V1
as control source, write:

=Replace([FieldName]," ", chr(13) & chr(10))

I hit the underscore key instead of the close parenthesis.
It should have been:

=Left([Fieldname],InStr([FieldName]," ") -1) & etc....

 

[Octavee]

great, that worked.
Thanks again, Octavee

Hi Fred,

I tried the unbound field:
=Left([itemcallnumber],InStr([itemcallnumber]," "_-1) & chr(13) & chr(10)
&
Mid([itemcallnumber],InStr([itemcallnumber]," ")+1)

But it gave me a syntax error.

The other solution =Replace([FieldName]," ", chr(13) & chr(10)) and it
worked great. Thanks very much.

Octavee

On Fri, 11 Jan 2008 13:17:29 -0700, Octavee Uhl wrote:

Hello,

I have a library program where I need to print spine labels of the call
number.
The call number is one field and is alphanumeric. It has data like the
folowing:
110 Ous
299 Uran V1
220.12 Car

When I print these labels I want them to look like this:
110
Ous

299
Uran V1 or

299
Uran
V1

220.12
Car

Any hints are appreciated.

Greetings
Octavee

Use an unbound control for the label.

To get
299
Uran V1
Set it's control source to:

=Left([Fieldname],InStr([FieldName]," "_-1) & chr(13) & chr(10) &
Mid([FieldName],InStr([fieldName]," ")+1)

The above should be all on one line.

To get
299
Uran
V1
as control source, write:

=Replace([FieldName]," ", chr(13) & chr(10))

I hit the underscore key instead of the close parenthesis.
It should have been:

=Left([Fieldname],InStr([FieldName]," ") -1) & etc....