Newsgroup: it.comp.appl.access
Titolo: combinazione di tasti

qualcuno sa dirmi come si possono associare delle routine ad una 
combinazione di tasti?
per esempio se avessi questa routine:
Public Function IntelliPaste()
   'questa routine incolla nella form attiva un controllo copiato 'con 
IntelliCopy, con tutto il codice associato On Error Resume Next
   On Error Resume Next
   Dim f As Form
   Set f = Screen.ActiveForm
   Dim c As Control
   Set c = CreateControl(
f.name
, ControlToIntelliCopy.ControlType)
   Dim p As Long
   For p = 0 To ControlToIntelliCopy.Properties.Count - 1
       c.Properties(p) = ControlToIntelliCopy.Properties(p)
   Next p
   Dim m As Module
   Set m = f.Module
   m.InsertLines m.CountOfLines + 1, CodeToIntelliCopy
End Function
e volessi associarla a Maiusc+Ctrl+V
Grazie 

 ha scritto nel messaggio 
news:47ff39f1$0$29975$5fc...@news.tiscali.it...

Utilizzi la macro chiamata AutoKeys...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:47ff39f1$0$29975$5fc...@news.tiscali.it...

Va bene la risposta di Sergio...io vorrei sapere da dove hai preso le due 
funzioni IntelliPaste() e IntelliCopy() e se puoi postare il loro codice e 
come funzionano.
Ciao, Carlo 



forse l'op si riferisce a queste ( vecchio post del 2000... )
==============================================================
Option Compare Database
Option Explicit
Public ControlToIntelliCopy As Control
Public CodeToIntelliCopy As String
Public Function IntelliCopy()
   'questa routine copia un controllo da una form con tutto il codice
'associato, per incollare il tutto in un'altra form con IntelliPaste
   On Error GoTo annulla
   Set ControlToIntelliCopy = Screen.ActiveControl
   CodeToIntelliCopy = ""
   Dim n As String
   n = "Sub " & ControlToIntelliCopy.Name & "_"
   Dim f As Form
   Set f = Screen.ActiveForm
   Dim m As Module
   Set m = f.Module
   Dim ir As Long, ic As Long, fr As Long, fc As Long, rigai As Long,
rigaf
As Long
   Do While m.Find(n, ir, ic, fr, fc)
       rigai = ir: fr = 0: fc = 0
       If m.Find("End Sub", ir, ic, fr, fc) Then rigaf = fr
       CodeToIntelliCopy = CodeToIntelliCopy & m.Lines(rigai,
Abs(rigaf -
rigai) + 1) & vbCrLf
       fr = 0: fc = 0
   Loop
   Exit Function
annulla:
   MsgBox "Si e' verificato un problema." & vbCrLf & "Codice di errore
" &
Err.Number, vbCritical + vbOKOnly, "IntelliCopy"
End Function
Public Function IntelliPaste()
   'questa routine incolla nella form attiva un controllo copiato 'con
IntelliCopy, con tutto il codice associato On Error Resume Next
   On Error Resume Next
   Dim f As Form
   Set f = Screen.ActiveForm
   Dim c As Control
   Set c = CreateControl(f.Name, ControlToIntelliCopy.ControlType)
   Dim p As Long
   For p = 0 To ControlToIntelliCopy.Properties.Count - 1
       c.Properties(p) = ControlToIntelliCopy.Properties(p)
   Next p
   Dim m As Module
   Set m = f.Module
   m.InsertLines m.CountOfLines + 1, CodeToIntelliCopy
End Function
quindi una macro chiamata Autokeys
^C eseguicodice - nome funzione IntelliCopy()
^P eseguicodice - nome funzione IntelliPaste() 
======================================================

 ha scritto nel messaggio 
news:0f83045n13nvfsqd4...@4ax.com...

Carlo, le ho prese dal sitocomune...  Forms 3.11 Copiare controlli da una 
form all'altra.

 ha scritto nel messaggio 
news:0f83045n13nvfsqd4...@4ax.com...
cut
Grazie.
Ciao, Carlo 


Perfetto.
Ciao, Carlo