Newsgroup: it.comp.appl.access
Titolo: Copia appunti

Un saluto a tutti i partecipanti.
Vorrei copiare negli appunti, il valore di una variabile a livello di Sub
(qualcosa tipo Clipboard in VB). Come posso fare ?
Grazie per l'aiuto.
Ciao a tutti.
Daniele

 (qualcosa tipo Clipboard in VB). Come posso fare ?
Per farci che, scusa?
Antonio


docmd.RunCommand acCmdCopy
ciao

 ha scritto nel messaggio
news:8sjmae$dec$1...@nslave2.tin.it...


 docmd.RunCommand acCmdCopy
Non credo proprio... se prima non metti il contenuto della variabile in un
oggetto e lo selezioni.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 ha scritto nel messaggio
news:8sjqtp$bgd$1...@fe2.cs.interbusiness.it...


(qualcosa tipo Clipboard in VB). Come posso fare ?
Da un vecchio post del compianto Bettini :-)
**** Invio Dati a Clipboard *****
To copy information to the Clipboard, follow these steps.
NOTE: You may have some Microsoft Windows API functions
defined in an
existing Microsoft Access library; therefore, your
declarations may be
duplicates. If you receive a duplicate procedure name error
message, remove
or comment out the declarations statement in your code.
1. Create a module and type the following lines in the
Declarations
   section:
      Declare Function GlobalUnlock Lib "kernel32" (ByVal
hMem As Long) _
         As Long
      Declare Function GlobalLock Lib "kernel32" (ByVal hMem
As Long) _
         As Long
      Declare Function GlobalAlloc Lib "kernel32" (ByVal
wFlags As Long, _
         ByVal dwBytes As Long) As Long
      Declare Function CloseClipboard Lib "User32" () As
Long
      Declare Function OpenClipboard Lib "User32" (ByVal
hwnd As Long) _
         As Long
      Declare Function EmptyClipboard Lib "User32" () As
Long
      Declare Function lstrcpy Lib "kernel32" (ByVal
lpString1 As Any, _
         ByVal lpString2 As Any) As Long
      Declare Function SetClipboardData Lib "User32" (ByVal
wFormat _
         As Long, ByVal hMem As Long) As Long
      Public Const GHND = &H42
      Public Const CF_TEXT = 1
      Public Const MAXSIZE = 4096
2. Type the following procedure:
      Function ClipBoard_SetData(MyString As String)
         Dim hGlobalMemory As Long, lpGlobalMemory As Long
         Dim hClipMemory As Long, X As Long
         ' Allocate moveable global memory.
         '-------------------------------------------
         hGlobalMemory = GlobalAlloc(GHND, Len(MyString) +
1)
         ' Lock the block to get a far pointer
         ' to this memory.
         lpGlobalMemory = GlobalLock(hGlobalMemory)
         ' Copy the string to this global memory.
         lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString)
         ' Unlock the memory.
         If GlobalUnlock(hGlobalMemory) <> 0 Then
            MsgBox "Could not unlock memory location. Copy
aborted."
            GoTo OutOfHere2
         End If
         ' Open the Clipboard to copy data to.
         If OpenClipboard(0&) = 0 Then
            MsgBox "Could not open the Clipboard. Copy
aborted."
            Exit Function
         End If
         ' Clear the Clipboard.
         X = EmptyClipboard()
         ' Copy the data to the Clipboard.
         hClipMemory = SetClipboardData(CF_TEXT,
hGlobalMemory)
      OutOfHere2:
         If CloseClipboard() = 0 Then
            MsgBox "Could not close Clipboard."
         End If
         End Function
3. To test this function, type the following line in the
Debug window,
   and then press ENTER.
      ? ClipBoard_SetData("To Clipboard")
   Type CTRL+V (the shortcut for Paste) and note that "To
Clipboard" is
   pasted into the Debug Window from the Clipboard.
----------------------------------------------------------------------------
----------------------
**** Lettura da Clipboard *****
To retrieve information from the Clipboard, follow these
steps.
NOTE: You may have some Microsoft Windows API functions
defined in an
existing Microsoft Access library; therefore, your
declarations may be
duplicates. If you receive a duplicate procedure name error
message, remove
or comment out the declarations statement in your code.
1. Create a module and type the following lines in the
Declarations
   section:
      Declare Function OpenClipboard Lib "User32" (ByVal
hwnd As Long) _
         As Long
      Declare Function CloseClipboard Lib "User32" () As
Long
      Declare Function GetClipboardData Lib "User32" (ByVal
wFormat As _
         Long) As Long
      Declare Function GlobalAlloc Lib "kernel32" (ByVal
wFlags&, ByVal _
         dwBytes As Long) As Long
      Declare Function GlobalLock Lib "kernel32" (ByVal hMem
As Long) _
         As Long
      Declare Function GlobalUnlock Lib "kernel32" (ByVal
hMem As Long) _
         As Long
      Declare Function GlobalSize Lib "kernel32" (ByVal hMem
As Long) _
         As Long
      Declare Function lstrcpy Lib "kernel32" (ByVal
lpString1 As Any, _
         ByVal lpString2 As Any) As Long
      Public Const GHND = &H42
      Public Const CF_TEXT = 1
      Public Const MAXSIZE = 4096
2. Type the following procedure:
      Function ClipBoard_GetData()
         Dim hClipMemory As Long
         Dim lpClipMemory As Long
         Dim MyString As String
         Dim RetVal As Long
         If OpenClipboard(0&) = 0 Then
            MsgBox "Cannot open Clipboard. Another app. may
have it open"
            Exit Function
         End If
         ' Obtain the handle to the global memory
         ' block that is referencing the text.
         hClipMemory = GetClipboardData(CF_TEXT)
         If IsNull(hClipMemory) Then
            MsgBox "Could not allocate memory"
            GoTo OutOfHere
         End If
         ' Lock Clipboard memory so we can reference
         ' the actual data string.
         lpClipMemory = GlobalLock(hClipMemory)
         If Not IsNull(lpClipMemory) Then
            MyString = Space$(MAXSIZE)
            RetVal = lstrcpy(MyString, lpClipMemory)
            RetVal = GlobalUnlock(hClipMemory)
            ' Peel off the null terminating character.
            MyString = Mid(MyString, 1, InStr(1, MyString,
Chr$(0), 0) - 1)
         Else
            MsgBox "Could not lock memory to copy string
from."
         End If
      OutOfHere:
         RetVal = CloseClipboard()
         ClipBoard_GetData = MyString
      End Function
3. To test this function, copy one of the lines from the
function to the
   Clipboard, type the following line in the Debug window,
and then press
   ENTER.
      ?ClipBoard_GetData()
   Note that the line you copied is displayed in the Debug
window.
--
Lorenzo Coronati
--
<<Come posso dunque sprotegere il database? 
Esiste un crack o qualcosa del genere 
che mi faccia accedere ai dati?>>
(Cocco, 17/10/2000)
--

Lorenzo ciao.
Ti ringrazio per il tuo aiuto.
Ciao - Daniele
"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:39edce48...@news.libero.it...
