Problème code VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/06/2008, 14h18
nanot

Problème code VBA

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

Code:

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 ?

03/06/2008, 15h10
azertix

Moi j'utilise la syntaxe :

Code:

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 ;)
03/06/2008, 15h16
nanot

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
03/06/2008, 15h23
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+
03/06/2008, 15h34
nanot

Citation:

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
03/06/2008, 15h44
psykodumarteau

Bonjour,

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

Code:

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

Il se peut que ton formulaire s'ouvre en mode "hidden"
03/06/2008, 15h45
Kloun

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

Code:

docmd.openform z 'sans parenthèse

Enlève la gestion d'erreur et déroule pas à pas.
03/06/2008, 15h49
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+
03/06/2008, 16h10
nanot

Citation:

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:

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

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

Citation:

Envoyé par Kloun

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

Code:

docmd.openform z 'sans parenthèse

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

Citation:

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.
03/06/2008, 16h17
Kloun

z est donc bien le nom de ton formulaire et non pas une variable ?
C'est quoi ton message d'erreur ?
03/06/2008, 16h24
nanot

Citation:

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.
03/06/2008, 16h25
marot_r

Citation:

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+
03/06/2008, 16h29
nanot

Citation:

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
03/06/2008, 16h49
azertix

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 ;)
03/06/2008, 16h51
marot_r

Citation:

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 ?
03/06/2008, 17h08
nanot

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
04/06/2008, 08h46
azertix

En utilisant le débugueur et en passant la souris sur les différents éléments de ton code, ça peut t'aider à comprendre d'où vient ton erreur ;)
04/06/2008, 14h07
nanot

Bonjour à tous,

Me revoila.

Je viens de plonger il y a une dizaine de minutes sur le problème de la gestion d'erreurs.

Je viens de la résoudre.
04/06/2008, 14h29
azertix

Pense à cliquer sur le bouton :resolu: :mrgreen:

Voir 40 message(s) de cette discussion en une page