Discussion :

[chelmi95]

Bonjour,

J'ai un grand mystère que je n'arrive pas à comprendre. J'ai crée un bouton pour afficher un formulaire précis mais ca ne fonctionne pas alors que j'utilise la même méthode sur d'autre formulaire et ca fonctionne correctement. Access m'affiche l'erreur "2501 'laction openform a été annulé"

Code :

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

1
2
3
4
5
Dim NumCde As Integer
 
NumCde = C_Cde_Num_Ordre
 
DoCmd.OpenForm "F_Devis", , , "[C_Dev_Num_Ordre_Cde_Asso] = " & CStr(NumCde)

j'ai fait l'essai en enlevant le critère pour le filtre et il m'ouvre correctement le formulaire avec le bon enregistrement. Mais avec le critère ca marche pas
Est ce quelqu'un à une idée pour résoudre mon problème. Merci.

[mout1234]

Bonsoir,

On dirait que la source de ton form n'accepte pas ton critère de filtrage.
Ce qui m'étonne, c'est que si le champ est mal orthographié, tu devrais avoir un message demandant un paramètre...


Au fait, ton form a bien une source (ce n'est pas genre un form indépendant avec un sous form... ou une source que tu définis par code ....)


Bon openform

[chelmi95]

La source de mon formulaire est une requête.

[mout1234]

Et cette requête expose un champ C_Dev_Num_Ordre_Cde_Asso ?


Donne le SQL de ta requête SQL pour voir...

[chelmi95]

Oui il est bien dans ma requête

[mout1234]

Donne le SQL de ta requête SQL pour voir...

[Jeannot45]

Bonjour,

Pourquoi cette conversion :

Code :

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

CStr(NumCde)

Si tu traduis ton critère en texte, il faut utiliser de quotes (guillemets simples) ce qui te donne :

Code :

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

1
2
3
4
5
Dim NumCde As Integer
 
NumCde = C_Cde_Num_Ordre
 
DoCmd.OpenForm "F_Devis", , , "[C_Dev_Num_Ordre_Cde_Asso] = '" & CStr(NumCde) & "'"

A+