Discussion :

[AndréPe]

Bonsoir,

Voiçi le code en cause

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub CmdBMX_Click() 'test
On Error GoTo Err_CmdBMX
    ABR = "MaBase"
    stDocName = "frmBM"
   DoCmd.OpenForm stDocName, , , , , acDialog, ABR
Exit_CmdBMX:
    Exit Sub
Err_CmdBM:
    MsgBox err.Description & "  " & err.Number
    Resume Exit_CmdBMX
End Sub

On passe directement de la ligne 5 à la ligne 9 avec err 2501 "l'opération open a été annulée".

J'ai trouvé dans le forum des problèmes similaires, mais je ne suis aps ici dans les configurations où il est question de cette erreur.I
Il s'agit simplement d'ouvrir un form en dialog et le programme en va même pas à la routime d'ouverture du form.
Merci par avance de votre aide.
Amicalement

[marot_r]

1. déclare tes variables, cela élimine pas mal de sources d'erreur.
   

   Code :

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

   1
   2
   3
    
   dim ABR as string : ABR = "MaBase"
   dim stDocName as string : stDocName = "frmBM"

   et à mettre en tête du module
   

   Code :

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

   option Explicit

   (juste après option comparaison)
2. met en commentaire le One Error Goto et vois où cela casse exactement.

[AndréPe]

Merci de tes suggestions.
En réalité, je n'ai donné qu'un extrait du code, les variables étant déclarées dans le module et "option explicit" existant bien

Ca butte sur l'ouverture du form.
J'ai vu que l'erreur disparait si dans les propriétés "données" du form j'enlève la table que je souhaitais lui affecter.

Donc résolu, mais pas élégamment !

Merci de ton aide.
Cordialement