Window 8 PutInClipboard error

[ukyank]

Hi all,

Been looking for a resolution to an error I get with the PutInClipboard code below. Works in everything but win8 with office 2010. I get a "?" icon instead of the text. Any help would be greatly appreciated.

Dim objData As New DataObject,  strCopy2 As String
    
    strCopy2 = "Test"
    With objData
        .SetText strCopy2
        .PutInClipboard
    End With

[ukyank]

MS is aware of the problem: http://social.msdn.microsoft.com/For...s-in-clipboard, no concrete answer so far

[snb]

What do you get using:

Sub M_snb()
    With New DataObject
        .SetText "Test_snb"
        .PutInClipboard
        MsgBox .GetText
        MsgBox .GetFormat(1)
    End With
End Sub

[ukyank]

What do you get using:

Sub M_snb()
    With New DataObject
        .SetText "Test_snb"
        .PutInClipboard
        MsgBox .GetText
        MsgBox .GetFormat(1)
    End With
End Sub

Same error for pasting but msgbox isn't an issue. I don't use a dataobject for that

[mancubus]

hi.

both codes worked for me with office 2010 on win8 machine.

[Kenneth Hobs]

I don't have win8 to test. The link said that 2/5 times there was a problem with that control in win8. Problems like this break some controls. 64bit vs. 32bit is the issue.

I would put this links code into a Module and use them instead. You may still run into the 32 vs. 64 bit issue with API commands. Some of these may need an equivalent 64 bit code.

http://access.mvps.org/access/api/api0049.htm

[mancubus]

my test:
win8 is 64-bit and office 2010 is 32-bit