Quelqu'un sait-il comment vider le presse-papier ?
Je m'explique : pour ouvrir un formulaire j'utilise un "copier-coller"
(plus précisément un "coller par ajout") et si j'ai beaucoup
d'enregistrements, çà rempli le presse-papier. Du coup, si je referme le
formulaire, il faut un bout de temps pour obtenir cette fermeture. La
seule astuce que j'ai trouvé est une cde "AtteindreControle" suivi d'une
cde "Copier". Cà ne rempli le presse-papier que de valeur du contrôle et
donc la fermeture est instantanée. Mais cette astuce ne paraît pas très
orthodoxe...
Merci donc, si vous avez mieux, et
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------
Quelqu'un sait-il comment vider le presse-papier ?
Essaie ceci :
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard. X = EmptyClipboard()
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Jc
Bonjour(soir) 3stone et tous les Autres,
"3stone" a écrit dans le message news:
Salut et bonne année également, Essaie ceci :
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard. X = EmptyClipboard()
Merci de votre aide. La fonction, je comprends, mais je ne vois pas comment l'utiliser...
-- Bonne fin de journée. ---------------------------------------- Jclg88 Cliquer sur ce lien pour me joindre par mél : http://cerbermail.com/?JVKAlLV1Rf ----------------------------------------
Bonjour(soir) 3stone et tous les Autres,
"3stone" <3stone@skynet.be> a écrit dans le message news:
exJ27GV0DHA.1760@TK2MSFTNGP10.phx.gbl...
Salut et bonne année également,
Essaie ceci :
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard.
X = EmptyClipboard()
Merci de votre aide. La fonction, je comprends, mais je ne vois pas
comment l'utiliser...
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard. X = EmptyClipboard()
Merci de votre aide. La fonction, je comprends, mais je ne vois pas comment l'utiliser...
-- Bonne fin de journée. ---------------------------------------- Jclg88 Cliquer sur ce lien pour me joindre par mél : http://cerbermail.com/?JVKAlLV1Rf ----------------------------------------
3stone
Salut,
"Jc"
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard. X = EmptyClipboard()
Merci de votre aide. La fonction, je comprends, mais je ne vois pas comment l'utiliser...
Colle la ligne "Private Declare Function.... tout en haut du code de ton formulaire, immédiatement sous :
Option Compare Database Option Explicit
Private Declare Function EmptyClipboard Lib "user32" () As Long
ensuite, pour vider... tu fait un simple
Call EmptyClipboard
que tu peux mettre sous le bouton pour fermer le formulaire (par exemple)
Private Sub Fermer_Click() Call EmptyClipboard DoCmd.Close End Sub
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Jc"
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard.
X = EmptyClipboard()
Merci de votre aide. La fonction, je comprends, mais je ne vois pas
comment l'utiliser...
Colle la ligne "Private Declare Function....
tout en haut du code de ton formulaire, immédiatement sous :
Option Compare Database
Option Explicit
Private Declare Function EmptyClipboard Lib "user32" () As Long
ensuite, pour vider... tu fait un simple
Call EmptyClipboard
que tu peux mettre sous le bouton pour fermer le formulaire (par exemple)
Private Sub Fermer_Click()
Call EmptyClipboard
DoCmd.Close
End Sub
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard. X = EmptyClipboard()
Merci de votre aide. La fonction, je comprends, mais je ne vois pas comment l'utiliser...
Colle la ligne "Private Declare Function.... tout en haut du code de ton formulaire, immédiatement sous :
Option Compare Database Option Explicit
Private Declare Function EmptyClipboard Lib "user32" () As Long
ensuite, pour vider... tu fait un simple
Call EmptyClipboard
que tu peux mettre sous le bouton pour fermer le formulaire (par exemple)
Private Sub Fermer_Click() Call EmptyClipboard DoCmd.Close End Sub
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Jc
Bonjour(soir) 3stone et tous les Autres,
"3stone" a écrit dans le message news:
Salut,
"Jc"
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard. X = EmptyClipboard()
Call EmptyClipboard
Cà y est, çà marche... Merci 3stone ;-))
-- Bonne fin de journée. ---------------------------------------- Jclg88 Cliquer sur ce lien pour me joindre par mél : http://cerbermail.com/?JVKAlLV1Rf ----------------------------------------
Bonjour(soir) 3stone et tous les Autres,
"3stone" <3stone@skynet.be> a écrit dans le message news:
OCWJeXm0DHA.4032@tk2msftngp13.phx.gbl...
Salut,
"Jc"
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard.
X = EmptyClipboard()
Call EmptyClipboard
Cà y est, çà marche... Merci 3stone ;-))
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------
Private Declare Function EmptyClipboard Lib "user32" () As Long
' Nettoyage du Clipboard. X = EmptyClipboard()
Call EmptyClipboard
Cà y est, çà marche... Merci 3stone ;-))
-- Bonne fin de journée. ---------------------------------------- Jclg88 Cliquer sur ce lien pour me joindre par mél : http://cerbermail.com/?JVKAlLV1Rf ----------------------------------------
