A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » Setting Up & Running Reports
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

printing labels problem



 
 
Thread Tools Display Modes
  #1  
Old January 11th, 2008, 08:17 PM posted to microsoft.public.access.reports
Octavee Uhl
external usenet poster
 
Posts: 6
Default printing labels problem

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


  #2  
Old January 11th, 2008, 09:50 PM posted to microsoft.public.access.reports
fredg
external usenet poster
 
Posts: 4,386
Default printing labels problem

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))
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail
  #3  
Old January 11th, 2008, 10:37 PM posted to microsoft.public.access.reports
Octavee[_2_]
external usenet poster
 
Posts: 2
Default printing labels problem

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



"fredg" wrote in message
. ..
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))
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail



  #4  
Old January 11th, 2008, 10:54 PM posted to microsoft.public.access.reports
fredg
external usenet poster
 
Posts: 4,386
Default printing labels problem

On Fri, 11 Jan 2008 15:37:31 -0700, Octavee wrote:

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

"fredg" wrote in message
. ..
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))
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail


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

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


--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail
  #5  
Old January 12th, 2008, 01:51 AM posted to microsoft.public.access.reports
Octavee[_2_]
external usenet poster
 
Posts: 2
Default printing labels problem

great, that worked.
Thanks again, Octavee

"fredg" wrote in message
...
On Fri, 11 Jan 2008 15:37:31 -0700, Octavee wrote:

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

"fredg" wrote in message
. ..
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))
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail


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

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


--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 08:15 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.