To copy to the clipboard: Function Text2Clipboard(szText As String) ( 16-bit version also available for Access 1 and 2.) Declare Function abOpenClipboard Lib "User32" Alias "OpenClipboard" (ByVal Hwnd As Long) As Longĭeclare Function abCloseClipboard Lib "User32" Alias "CloseClipboard" () As Longĭeclare Function abEmpt圜lipboard Lib "User32" Alias "Empt圜lipboard" () As Longĭeclare Function abIsClipboardFormatAvailable Lib "User32" Alias "IsClipboardFormatAvailable" (ByVal wFormat As Long) As Longĭeclare Function abSetClipboardData Lib "User32" Alias "SetClipboardData" (ByVal wFormat As Long, ByVal hMem As Long) As Longĭeclare Function abGetClipboardData Lib "User32" Alias "GetClipboardData" (ByVal wFormat As Long) As Longĭeclare Function abGlobalAlloc Lib "Kernel32" Alias "GlobalAlloc" (ByVal wFlags As Long, ByVal dwBytes As Long) As Longĭeclare Function abGlobalLock Lib "Kernel32" Alias "GlobalLock" (ByVal hMem As Long) As Longĭeclare Function abGlobalUnlock Lib "Kernel32" Alias "GlobalUnlock" (ByVal hMem As Long) As Booleanĭeclare Function abLstrcpy Lib "Kernel32" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Longĭeclare Function abGlobalFree Lib "Kernel32" Alias "GlobalFree" (ByVal hMem As Long) As Longĭeclare Function abGlobalSize Lib "Kernel32" Alias "GlobalSize" (ByVal hMem As Long) As Long In the example above, you would use:ģ2-bit Declarations (for Access 95 and later). To avoid this situation, use the PlainText() function. The Text2Clipboard() function copies the tags, and then the appear literally when you paste them.
Rich text clipboard for windows code#
This code will require modification if you use the 64-bit version of Office (not merely a 64-bit version of Windows.)Īccess 2007 and later support introduced Rich Text memo fields that contain embedded HTML tags. Me.Address & vbCrLf & Me.City & " " & Me.State & " " & Me.Zip StrOut = Me.Title & " " & Me.FirstName & " " & Me.Surname & vbCrLf & _ To collect data from an Access form for pasting to your your word processor, how about a double-click on the form's detail section? The code for the DblClick event will be something like this: Dim strOut as string
Text2Clipboard(), Clipboard2Text() - 32-bit Microsoft Access tips: Clipboard Functions (32-bit) Microsoft Access: VBA Programming Code
0 kommentar(er)
