Discussion :

[gerarddurand]

Bonsoir à tous,

Oui j'ai ce message d'erreur quand je lance cette action :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cmdCopy_Click()
On Error GoTo cmdCopy_Click_err
 
   Me!N°Article.SetFocus
   DoCmd.RunCommand acCmdCopy 'copier
   DoCmd.GoToRecord , , acNewRec
   Me.N°Article.SetFocus
   DoCmd.RunCommand acCmdPaste   ' coller
Call ViderPressPapier
 
cmdCopy_Click_exit:
Exit Sub
 
cmdCopy_Click_err:
'Debug.Print err.Number
MsgBox err.Description, vbInformation, "Hôtellerie"
Resume cmdCopy_Click_exit
 
End Sub

en fait c'est pour copier le numéro de l'article dans l'enregistrement suivant.
J'ai trouvé l'astuce ,dans la FAQ,Ctrl + l'apostrophe qui fonctionnait bien jusqu'à ce jour. Je me demande ce qui ce passe ...

merci pour votre aide,

cordialement

[loufab]

Bonjour,

Voici ce que je ferais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   dim NumArticle 'à typer
   ' je mémorise
   NumArticle = Me.N°Article
   ' je me déplace
   DoCmd.GoToRecord , , acNewRec
   ' j'affecte
   Me.N°Article = NumArticle

Evite de passer par le presse-papier pour des données. Le presse-papier est comme le chapeau-claque, un coup il te sort un lapin un coup une tourterelle.

Cordialement,

[gerarddurand]

Bonsoir,

Mais c'est bien sûr !

Pourquoi faire simple quand Gérard Durand peut faire compliqué ?

Merci Loufab , je n'avais pas pensé à cette possibilité.

Bien cordialement.