Discussion :

[nanot]

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]

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]

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]

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]

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]

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