Utilisation de OpenArgs

Bonjour,

J'ai le code suivant pour un bouton retour :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Retour_Click() MsgBox (Me.OpenArgs) ' Fermer le formulaire DoCmd.Close   ' Ouvrir le formulaire DoCmd.OpenForm Me.OpenArgs End Sub

---

La MsgBox m'affiche bien le bon nom de formulaire d'origine.
Ensuite j'ai le message suivant :

Citation:

---

Erreur d'exécution '5':
Argument ou appel de procédure incorrect

---

Je lance donc le Débogage qui me signale que l'erreur serait là :

Code:

---

DoCmd.OpenForm Me.OpenArgs

---

Je ne vois pas l'erreur de syntaxe

Par contre si je fais ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Retour_Click()   Dim strForm As String strForm = Nz(Me.OpenArgs, "")   ' Fermer le formulaire DoCmd.Close   ' Ouvrir le formulaire DoCmd.OpenForm strForm End Sub

---

Là tout va bien.
Est on obligé de passer par une variable ?

Merci d'avance

Bonjour.

Si tu ouvres un formulaire avec un DoCmd.OpenForm sans spécifié le paramètre OpenArgs alors il est null.

Et comme toujours avec Access le null a un comportement parfois déroutant. Des fois il est traiter en douceur et des fois il génère une erreur.

Donc on n'est pas obligé d'utiliser une variable mais il est fortement recommander de mettre du code pour gérer le null.

A+

Bonjour Marot r,

Citation:

---

La MsgBox m'affiche bien le bon nom de formulaire d'origine.

---

Ce n'est donc pas null !

En tout cas, je viens de tester sans problème chez moi, sans transiter par une variable (Access2000).

Bonjour,

Et si tu tente d'ouvrir ton formulaire appelant avant de fermer le formulaire appelé ?
Je n'ais pas testé mais tu perds peut-être la propriété OpenArgs après un docmd.close (Dans ton test avec variable string, tu affecte la valeur de OpenArgs avant de fermer ton formulaire)...

Bien vu, c'est là qu'est l'os !

J'avais testé sans cette instruction !

Avec Access2000, ce message qui confirme bien ce que tu dis

http://claudeleloup.developpez.com/&99/L5917.jpg

Excellente analyse comme d'hab...

Donc le bon code est :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Retour_Click()   ' Ouvrir le formulaire DoCmd.OpenForm Nz(Me.OpenArgs, "")   ' Fermer le formulaire DoCmd.Close   End Sub

---

Merci beaucoup