PatCatNat’s
Faire de son négatif un positif !

Site personnel de Patrice MOREL.

Convertir DoCmd.DoMenuItem en RunCommand
Article mis en ligne le 15 novembre 2006
dernière modification le 13 décembre 2006

par Patrice MOREL
Access 97

Access 97 | Compatible |

Access 2003

Access 2003 | Non testé |

(Access 97 Menu System)

DoCmd.DoMenuItem RunCommand
acFormBar, acEditMenu, 2 acCmdCopy
acFormBar, acEditMenu, 5 acCmdPasteAppend
acFormBar, acEditMenu, 6 acCmdDeleteRecord
acFormBar, acEditMenu, 8 acCmdSelectRecord
acFormBar, acEditMenu, 10 acCmdFind
acFormBar, acEditMenu, 12, 4 acCmdRecordsGoToNew
acFormBar, acEditMenu, acCopy acCmdCopy
acFormBar, acEditMenu, acPaste acCmdPaste
acFormBar, acEditMenu, acUndo acCmdUndo
acFormBar, acFile, acSaveForm acCmdSave
acFormBar, acRecordsMenu, 0, 2 acCmdAdvancedFilterSort
acFormBar, acRecordsMenu, 2 acCmdApplyFilterSort
acFormBar, acRecordsMenu, 5 acCmdRefresh
acFormBar, acRecordsMenu, acSaveRecord acCmdSaveRecord
acFormBar, 7, 6 acCmdSizeToFit
1, 3, 3 acCmdNewObjectReport
3, acEditMenu, acPaste acCmdPaste

Exemple du bouton supprimer généré automatiquement :

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

devient :

RunCommand acCmdSelectRecord
RunCommand acCmdDeleteRecord