Can't use SendMessage...WM_PASTE with a regular Text Box

[Neil]

Anyone have any idea why

SendMessage ctl.hwnd, WM_PASTE, 0, 0

isn't working from a regular Access text box (form is opened normally, not
in dialog more)? I realize I can just use docmd.RunCommand acCmdPaste. But I
have a reason for needing to do it this way. When I run the code I get the
message, "Object doesn't support this property or method" (error 438). Any
ideas why this is happening? Thanks!

Neil
Here is the code I'm using:

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_PASTE = &H302

Function MyFunc(ctl as control)
SendMessage ctl.hwnd, WM_PASTE, 0, 0
End Function

[Tom van Stiphout]

On Tue, 30 Oct 2007 22:17:16 -0500, "Neil" <no****@nospam.netwrote:

Yes. You are assuming that the controls you see on the screen actually
exist. Not so in MsAccess. They are PAInTED on the form, but only the
control with input focus actually exists and has a valid window
handle.

-Tom.

>Anyone have any idea why

SendMessage ctl.hwnd, WM_PASTE, 0, 0

isn't working from a regular Access text box (form is opened normally, not
in dialog more)? I realize I can just use docmd.RunCommand acCmdPaste. But I
have a reason for needing to do it this way. When I run the code I get the
message, "Object doesn't support this property or method" (error 438). Any
ideas why this is happening? Thanks!

Neil
Here is the code I'm using:

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_PASTE = &H302

Function MyFunc(ctl as control)
SendMessage ctl.hwnd, WM_PASTE, 0, 0
End Function

[Neil]

Yes, it had the focus. I called it from the OnClick event of the control
itself (just as a simple test to start with).

Also, if I change the object type to Textbox instead of Control, I see that
hwnd isn't a valid property anyway. So that must be what the problem is.

So the question now is: how to get a control handle in Access?

Thanks!

"Tom van Stiphout" <no*************@cox.netwrote in message
news:92********************************@4ax.com...

On Tue, 30 Oct 2007 22:17:16 -0500, "Neil" <no****@nospam.netwrote:

Yes. You are assuming that the controls you see on the screen actually
exist. Not so in MsAccess. They are PAInTED on the form, but only the
control with input focus actually exists and has a valid window
handle.

-Tom.

>>Anyone have any idea why

SendMessage ctl.hwnd, WM_PASTE, 0, 0

isn't working from a regular Access text box (form is opened normally, not
in dialog more)? I realize I can just use docmd.RunCommand acCmdPaste. But
I
have a reason for needing to do it this way. When I run the code I get the
message, "Object doesn't support this property or method" (error 438). Any
ideas why this is happening? Thanks!

Neil
Here is the code I'm using:

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_PASTE = &H302

Function MyFunc(ctl as control)
SendMessage ctl.hwnd, WM_PASTE, 0, 0
End Function

[Neil]

Re. my other message, found some code by Dev Ashish that does that. Working
now. Thanks.

"Tom van Stiphout" <no*************@cox.netwrote in message
news:92********************************@4ax.com...

On Tue, 30 Oct 2007 22:17:16 -0500, "Neil" <no****@nospam.netwrote:

Yes. You are assuming that the controls you see on the screen actually
exist. Not so in MsAccess. They are PAInTED on the form, but only the
control with input focus actually exists and has a valid window
handle.

-Tom.

>>Anyone have any idea why

SendMessage ctl.hwnd, WM_PASTE, 0, 0

isn't working from a regular Access text box (form is opened normally, not
in dialog more)? I realize I can just use docmd.RunCommand acCmdPaste. But
I
have a reason for needing to do it this way. When I run the code I get the
message, "Object doesn't support this property or method" (error 438). Any
ideas why this is happening? Thanks!

Neil
Here is the code I'm using:

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_PASTE = &H302

Function MyFunc(ctl as control)
SendMessage ctl.hwnd, WM_PASTE, 0, 0
End Function

[David W. Fenton]

"Neil" <no****@nospam.netwrote in
news:q9*****************@newssvr25.news.prodigy.ne t:

Re. my other message, found some code by Dev Ashish that does
that. Working now.

Why do you need to do this? I can't imagine ever needing it in any
of my Access apps.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[Neil]

Ah! Well, here's the deal. I needed to paste some text into a field from the
clipboard. However, that form is opened using acDialog. When that's the
case, Access Docmd Paste doesn't work. However, using SendMessage I was able
to paste the text from the clipboard into the textbox, even when it was open
in dialog mode.

(Now you might ask why I would need to paste data from the clipboard into a
text box with its form opened in dialog mode. If you want to know, I'll tell
you; but I wasn't sure if you wanted that much information.)

"David W. Fenton" <XX*******@dfenton.com.invalidwrote in message
news:Xn**********************************@216.196. 97.142...

"Neil" <no****@nospam.netwrote in
news:q9*****************@newssvr25.news.prodigy.ne t:

>Re. my other message, found some code by Dev Ashish that does
that. Working now.

Why do you need to do this? I can't imagine ever needing it in any
of my Access apps.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[David W. Fenton]

"Neil" <no****@nospam.netwrote in
news:d1******************@newssvr14.news.prodigy.n et:

Ah! Well, here's the deal. I needed to paste some text into a
field from the clipboard. However, that form is opened using
acDialog. When that's the case, Access Docmd Paste doesn't work.
However, using SendMessage I was able to paste the text from the
clipboard into the textbox, even when it was open in dialog mode.

(Now you might ask why I would need to paste data from the
clipboard into a text box with its form opened in dialog mode. If
you want to know, I'll tell you; but I wasn't sure if you wanted
that much information.)

It sounds to me as though you're doing things wrong.

Again, I see no reason why one should ever need to do this. If you
need your dialog to get information from outside itself, there are
numerous ways to do it that don't require API calls of any kind.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[Neil]

Well, remember I wrote:

>(Now you might ask why I would need to paste data from the
clipboard into a text box with its form opened in dialog mode. If
you want to know, I'll tell you; but I wasn't sure if you wanted
that much information.)

So, instead of judging whether I'm doing things right or wrong, why don't
you just get that information? I didn't give it to you at first because I
didn't know if you wanted to go that deep into my situation. So here it is.

Users have a series of Word docs that they need to copy and paste from into
rich text fields in my database. By copying and pasting, they retain the
formatting in the Word docs, which needs to be preserved. One of the places
they need to paste into is a form bound to a child table (not a dialog box),
which is opened in dialog mode for coding reasons. So, when they need to
paste into this child form/table, which is open in dialog mode, there is no
way to do this apart from the API call.

Now, that being said, now that I've explained my situation, how would you
accomplish the same thing without using the API call? Don't say that you
wouldn't use rich text boxes to begin with, because that's not a valid
argument. My situation/client's needs require them. So, given the situation
I've described above, how would you accomplish it without the API call to
perform the paste?

Neil


"David W. Fenton" <XX*******@dfenton.com.invalidwrote in message
news:Xn**********************************@216.196. 97.142...

"Neil" <no****@nospam.netwrote in
news:d1******************@newssvr14.news.prodigy.n et:

>Ah! Well, here's the deal. I needed to paste some text into a
field from the clipboard. However, that form is opened using
acDialog. When that's the case, Access Docmd Paste doesn't work.
However, using SendMessage I was able to paste the text from the
clipboard into the textbox, even when it was open in dialog mode.

(Now you might ask why I would need to paste data from the
clipboard into a text box with its form opened in dialog mode. If
you want to know, I'll tell you; but I wasn't sure if you wanted
that much information.)

It sounds to me as though you're doing things wrong.

Again, I see no reason why one should ever need to do this. If you
need your dialog to get information from outside itself, there are
numerous ways to do it that don't require API calls of any kind.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[David W. Fenton]

"Neil" <no****@nospam.netwrote in
news:uf***************@newssvr22.news.prodigy.net:

Now, that being said, now that I've explained my situation, how
would you accomplish the same thing without using the API call?
Don't say that you wouldn't use rich text boxes to begin with,
because that's not a valid argument. My situation/client's needs
require them. So, given the situation I've described above, how
would you accomplish it without the API call to perform the paste?

I don't know.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[lyle]

On Nov 4, 6:42 am, "Neil" <[e-mail]:

Users have a series of Word docs that they need to copy and paste from into
rich text fields in my database. By copying and pasting, they retain the
formatting in the Word docs, which needs to be preserved. One of the places
they need to paste into is a form bound to a child table (not a dialog box),
which is opened in dialog mode for coding reasons. So, when they need to
paste into this child form/table, which is open in dialog mode, there is no
way to do this apart from the API call.

When I run
DoCmd.OpenForm "employees", acNormal, , , , acDialog

and click on

Command34

Private Sub Command34_Click()
Me.LastName.SetFocus
DoCmd.RunCommand acCmdPaste
End Sub

the contents ot the clipboard are pasted into the LastName textbox.

Could you, please,explain the conditions (again maybe) which prevent
this from being used in the situation in question?