Problème code VBA

**nanot** · 03/06/2008, 14h18

Bonjour,

J'ai le code Visual Basic ci dessous que j'ai appliqué à un formulaire.

Ce que je voudrais faire c'est qu'après la fermeture de ce fomulaire un autre formulaire s'ouvre directement.

J'ai essayé DoCmd.OpenForm (z) mais cela ne marche pas.

(z) faisant référence à mon formulaire qui doit s'ouvrir après la fermeture de l'autre formulaire.

Merci d'avance pour vos réponses.

Private Sub Valider_Click()
On Error GoTo err
Dim Db As DAO.Database
Dim QryModele As DAO.QueryDef
Dim strSQLModele As String
Set Db = CurrentDb
Set QryModele = Db.QueryDefs("Requête61 pour formulaire61 pour formualire72")
strSQLModele = QryModele.SQL
'Effectue le remplacement du critere par la valeur
strSQLModele = Replace(strSQLModele, "[saisir le nom salarié]", Chr(34) & Nz(Nom) & Chr(34))
'Si la requête existe déjà alors
If TesteExistenceRequete("rt") Then
'alors modifier le code de la requête
Db.QueryDefs("rt").SQL = strSQLModele
'Sinon
Else
'Créer la nouvelle requête
Db.CreateQueryDef "rt", strSQLModele
End If
'Ferme le formulaire
DoCmd.Close acForm, Me.Name
Exit Sub
err:
MsgBox "Une erreur est survenue", vbCritical, "Sélection nom"
End Sub

**Kloun** · 03/06/2008, 14h35

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Valider_Click()
'On Error GoTo err
Dim Db As DAO.Database
Dim QryModele As DAO.QueryDef
Dim strSQLModele As String
    Set Db = CurrentDb
    Set QryModele = Db.QueryDefs("Requête61 pour formulaire61 pour formualire72")
    strSQLModele = QryModele.SQL
    'Effectue le remplacement du critere par la valeur
    strSQLModele = Replace(strSQLModele, "[saisir le nom salarié]", Chr(34) & Nz(Nom) & Chr(34))
    'Si la requête existe déjà alors
    If TesteExistenceRequete("rt") Then
        'alors modifier le code de la requête
        Db.QueryDefs("rt").SQL = strSQLModele
        'Sinon
    Else
        'Créer la nouvelle requête
        Db.CreateQueryDef "rt", strSQLModele
    End If
    DoCmd.OpenForm z
    'Ferme le formulaire
    DoCmd.Close acForm, Me.Name
    Exit Sub
err:
    MsgBox "Une erreur est survenue", vbCritical, "Sélection nom"
End Sub

Ca le fait pas ?

**azertix** · 03/06/2008, 15h10

Moi j'utilise la syntaxe :

Code :

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

DoCmd.OpenForm "MonFormulaire"

P.S : Tu peux utiliser la balise [CODE] (clic sur le # dans la barre d'outils d'édition) pour présenter ton code, ça sera mieux qu'en vert fluo

**nanot** · 03/06/2008, 15h16

Kloun, j'ai déja appliqué ce code au même endroit que toi pour DoCmd.OpenForm (z) mais cela ne marche pas.

Cette commande ne réagit pas.
Peut être que ce bout de code est mal placé dans mon code.

Je vais faire des tentatives mais si vous avez des idées, je suis preneur

**marot_r** · 03/06/2008, 15h23

Je ne vois aucun endrois où Z est renseigné dans ton code mais probablement que le code ne passe même pas par là car tu aurais un message d'erreur disant qu'il ne trouve pas le formulaire demandé.

Fait une execution pas à pas de ton code tu devrais localiser facilement le problème.

A+

**nanot** · 03/06/2008, 15h34

Envoyé par marot_r

Je ne vois aucun endrois où Z est renseigné dans ton code mais probablement que le code ne passe même pas par là car tu aurais un message d'erreur disant qu'il ne trouve pas le formulaire demandé.

Fait une execution pas à pas de ton code tu devrais localiser facilement le problème.

A+

Je ne l'ai pas mis marot_r car cela ne marchait pas mais je l'ai mis à cet endroit là avant (en rouge)

J'ai en fait appliqué ce code :

Private Sub Valider_Click()
On Error GoTo err
Dim Db As DAO.Database
Dim QryModele As DAO.QueryDef
Dim strSQLModele As String
Set Db = CurrentDb
Set QryModele = Db.QueryDefs("Requête61 pour formulaire61 pour formualire72")
strSQLModele = QryModele.SQL

'Effectue le remplacement du critere par la valeur
strSQLModele = Replace(strSQLModele, "[saisir le nom salarié]", Chr(34) & Nz(Nom) & Chr(34))

'Si la requête existe déjà alors
If TesteExistenceRequete("rt") Then

'alors modifier le code de la requête
Db.QueryDefs("rt").SQL = strSQLModele

'Sinon
Else

'Créer la nouvelle requête
Db.CreateQueryDef "rt", strSQLModele
End If
DoCmd.OpenForm (z)
'Ferme le formulaire
DoCmd.Close acForm, Me.Name
Exit Sub
err:
MsgBox "Une erreur est survenue", vbCritical, "Sélection nom"
End Sub

**psykodumarteau** · 03/06/2008, 15h44

Bonjour,

Si la fonction ne retourne pas d'erreur c'est quelle marche. Essaie de force l'ouverture en mode normal

Code :

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

DoCmd.OpenForm "monform", acNormal, , , acFormPropertySettings, acWindowNormal

Il se peut que ton formulaire s'ouvre en mode "hidden"

**Kloun** · 03/06/2008, 15h45

Pour moi, z est une variable, d'où :

Code :

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

docmd.openform z 'sans parenthèse

Enlève la gestion d'erreur et déroule pas à pas.

**marot_r** · 03/06/2008, 15h49

J'ai sans doute mal exprimé mon point, nul part dans ton code je ne vois de déclaration ni d'assignation d'une valeur à z. Des instructions du type dim z as et z=. Z est une variable globale ?

Je maintient qu'un exécution pas à pas te permettra de trouver le problème.

De plus si tu tiens à l'usage des parenthèses dans DoCmd.OpenForm tu peux écrire call DoCmd.OpenForm() sinon la syntaxe classique, mentionnée par Kloun est DoCmd.OpenForm z.

A+

**nanot** · 03/06/2008, 16h10

Envoyé par psykodumarteau

Bonjour,

Si la fonction ne retourne pas d'erreur c'est quelle marche. Essaie de force l'ouverture en mode normal

Code :

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

DoCmd.OpenForm "monform", acNormal, , , acFormPropertySettings, acWindowNormal

Il se peut que ton formulaire s'ouvre en mode "hidden"

Envoyé par Kloun

Pour moi, z est une variable, d'où :

Code :

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

docmd.openform z 'sans parenthèse

Enlève la gestion d'erreur et déroule pas à pas.

Envoyé par marot_r

J'ai sans doute mal exprimé mon point, nul part dans ton code je ne vois de déclaration ni d'assignation d'une valeur à z. Des instructions du type dim z as et z=. Z est une variable globale ?

Je maintient qu'un exécution pas à pas te permettra de trouver le problème.

De plus si tu tiens à l'usage des parenthèses dans DoCmd.OpenForm tu peux écrire call DoCmd.OpenForm() sinon la syntaxe classique, mentionnée par Kloun est DoCmd.OpenForm z.

A+

J'ai fait comme a dit Kloun, j'ai tout d'abord enlevé la gestion des erreurs puis j'ai décidé de mettre z entre "" comme psykodumarteau :
DoCmd.OpenForm "z"
Quand j'ai mis entre guillemets z cela a marché alors qu'avec les parenthèses et sans les paranthèses cela ne marche pas.

Cependant, après j'ai decidé de mettre la gestion des erreurs et là cela m'affiche bien mon formulaire z mais avec un message d'erreur.

Bref, je ne sais pas pourquoi mais cela n'est pas trop grave, je vais enlever la gestion des erreurs.

**Kloun** · 03/06/2008, 16h17

z est donc bien le nom de ton formulaire et non pas une variable ?
C'est quoi ton message d'erreur ?

**nanot** · 03/06/2008, 16h24

Envoyé par Kloun

z est donc bien le nom de ton formulaire et non pas une variable ?
C'est quoi ton message d'erreur ?

Lors de mon 1er message, j'ai bien indiqué que z etait mon formulaire que je devais ouvrir et je ne jamais indiqué que c'étais une variable

En ce qui concerne le message d'erreur c'est une fênetre qui m'affiche "une erreur est survenue"

Cela est du au bout de code que j'ai appliqué en cas d'erreur :

On Error GoTo err

err:
MsgBox "Une erreur est survenue", vbCritical, "Sélection nom"

Cependant, je ne vois pas d'erreur.

Lorsque j'enleve la gestion d'erreur, cela est parfait.

**marot_r** · 03/06/2008, 16h25

Envoyé par nanot

Bref, je ne sais pas pourquoi mais cela n'est pas trop grave, je vais enlever la gestion des erreurs.

Ça c'est pas une bonne idée. Normalement il faut gadrer la gestion d'erreur et faire en sorte qu'il n'y ai pas d'erreur pas simplement ignorer l'erreur.

A+

**nanot** · 03/06/2008, 16h29

Envoyé par marot_r

Ça c'est pas une bonne idée. Normalement il faut gadrer la gestion d'erreur et faire en sorte qu'il n'y ai pas d'erreur pas simplement ignorer l'erreur.

A+

Je sais mais je ne vois pas pourquoi cela m'affiche un message d'erreur car le formulaire qui s'affiche est bon

**azertix** · 03/06/2008, 16h49

Enlève le OnError, mets le SetWarnings à True et cherche à résoudre ton erreur, c'est la meilleure solution.
Si tu ne trouve pas d'où vient ton erreur, poste-la ici, avec la ligne de code concernée, et nous tâcherons de taider

**marot_r** · 03/06/2008, 16h51

Envoyé par nanot

Je sais mais je ne vois pas pourquoi cela m'affiche un message d'erreur car le formulaire qui s'affiche est bon

Alors probalement que l'erreur vient d'ailleur. Quel est ton message d'erreur ?

**nanot** · 03/06/2008, 17h08

Je vais partir de mon stage maintenant.

Je vais y reflechir ce soir et normalement je devrais trouver l'erreur.

Merci à vous, si je coince, j'enverrais un message