Apend query problem text size

GaryPanic

Smoke me a Kipper,Skipper
Local time
Today, 08:57
Joined
Nov 8, 2005
Messages
3,309
Hello - the world
this the 2nd time i tried this and hope someone can help

I have a form that i need to insert text into the text is held in a table and the amount of text can vary from 30characaters to 1,000's

now i have a drop down box with the following

SELECT [Wording].[wordingid], [Wording].[wordingnme], [Wording].[wording] FROM Wording;

i select one and then while that item is highlighted , i push a button append and it inserts in to my form

The table settings on the form are memo and the table settings on the wording are memo , i can see the info in the raw table its the append bit

so wording - fishing would be wordingnme and the text I want to apply would be "gone fishing etc "
works a treat but I only get the first 255 chars of a long wording

I can insert as many wordings into my form but size limt of 255 so its not the form

any ideas ?????:confused:
 
It would help if you could attach a stripped down version of your database (in Access 2000 or 97 format) for us to have a look at it.

^
 
Zip file access 2000

go through the processor screen and into quotes
tab called Endor

if you select text endoresemsent test123 you will see what I mean the texxt i want to import is greater than 255 chars but some how the append has decided to restict this to 255 - i am looking this up in my book- and running in to problems -i thnk this may have to be done with a bit VB coding with "string" ??

I away for the next couple of weeks - Exhibition and then a few days hols

but any thoughts on this - would be blooming marvelous:cool:
 

Attachments

I am away for the next 7 days but has anyone had any thoughts on this
 
You can append from the table rather than the combobox.
Code:
 If Not IsNull(Wordingselect.Column(2)) Then
    
    ' Endor = Endor & Chr(13) & Chr(10) & Wordingselect.Column(2)
    
    Endor = Endor & Chr(13) & Chr(10) & _
        DLookup("Wording", "Wording", "[Wordingid]=" & Wordingselect.Column(0))
 
 End If
.
 
problem solved

Many thanks to Jon K
this does the job - Brill

on to the next problem - steep learning curve

many thanks again

regards
 

Users who are viewing this thread

Back
Top Bottom