Re: Poking info into a Memo box

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Access doesn't really support drag-and-drop. However, take a look at my
January and February, 2004 "Access Answers" columns in Pinnacle
Publication's "Smart Access" for how to simulate it.

You can download the columns (and sample databases) for free at
http://www.accessmvp.com/djsteele/SmartAccess.html

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"johnb" <johnb@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:D4603C4D-110B-4694-871C-B49C8C9407FA@xxxxxxxxxxxxxxxx
Doug your're super star!

Now Then where do I find an example of drag and drop between Forms?

"Douglas J. Steele" wrote:

It's because you're using

Me.GlazingInfo = Me.GlazingInfo & vbCrLf & Me.Combo165

That puts the blank line before the contents of the combo box.

Try:

Me.GlazingInfo = Me.GlazingInfo & Me.Combo165 & vbCrLf

(assuming you don't mind a blank line at the end), or

Me.GlazingInfo = Me.GlazingInfo & _
IIf(Len(Me.GlazingInfo) > 0, vbCrLf, "") & Me.Combo165

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"johnb" <johnb@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:7F967EC8-4D64-4AC4-BF20-6805F6795BF4@xxxxxxxxxxxxxxxx
Hi Fred, Doug,
Thank you for the feedback. Using the '& vbCrLf &' removed the small
squares
in the memo box. However on poking text from the Combobox to the
Memobox
I
still get a blank line at the top of the Memobox. How do I stop this
happening?

regards

john

"Douglas J. Steele" wrote:

"fredg" <fgutkind@xxxxxxxxxxxxxxx> wrote in message
news:18y2wh57yfbcp$.8okrdyedmh9m$.dlg@xxxxxxxxxxxxx
On Tue, 27 Mar 2007 19:01:35 -0700, johnb wrote:

Hi all. I seem to have lost a question. So I'll have another go.

I have an unbound combo box with about 30 lines. And I need to
insert
several of these lines into a memo box on the same form. Each one
starting in
the lefthand column. So I thought use the combos AfterUpdate to
insert
each
selected line into the memobox. It works ok but I get a blank first
line
and
small squares at the end if each line. The code is Me.GlazingInfo =
Me.GlazingInfo & Chr(13) & Chr(10) + Me.Combo165


As I read your code, you're appending chr(13) to the existing Memo
field then adding chr(10) plus the value in Me.Combo165 together.
I don't think that is what you mean to do.
Try:
Me.GlazingInfo = Me.GlazingInfo & Chr(13) & Chr(10) & Me.Combo165
That should take care of the squares (on new data entry. You'll have
to run an update query on existing data.).

Actually, as long as something's selected in the combo box,
Me.GlazingInfo &
Chr(13) & Chr(10) + Me.Combo165 and Me.GlazingInfo & Chr(13) & Chr(10)
&
Me.Combo165 should result in the same thing. It's only if nothing's
selected
(so that Me.Combo165 evaluates to Null) that there will be a
difference:
+
propagates Nulls, & doesn't.

However, it is better to use & consistently in this case. In fact, try
Me.GlazingInfo & vbCrLf & Me.Combo165

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)









.