Bonjour,
J'ai le code suivant :
Je n'arrive pas à supprimer l'enregistrement et j'ai un message d'erreur 2046
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub Commande59_Click() If MsgBox("Do you really want to delete this record ?", vbYesNo + vbExclamation + vbDefaultButton2, "CTX") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDelete DoCmd.SetWarnings True End If Else End Sub
Command or action 'Select Record' isn't available now
et il me surligne la ligne en jaune.
Pourquoi cela ne marche pas ?
Partager