Discussion :

[SpyesX]

Bonjour à tous

Je bosse sur un formulaire en mode continue (VoyageProduitClient) qui lorsque je double click sur un champ date, il ouvre un autre formulaire (CalendrierVoyageProduits) avec un calendrier, histoire de remplir plus facilement les dates.

Mon problème, c'est que lorsque je fais ça dans le formulaireVoyageProduitClient en lui même tout va bien. MAIS lorsque qu'il est ouvert en tant que sous formulaire dans le form principal (ProduitsClient), ça marche plus...

j'ai vu quelque chose dans la FAQ qui resemble à ça

Code :

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

Call Form_NomDuSousForm.Champ_AfterUpdate

alors j'ai fais ça:

Code :

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

1
2
3
4
5
6
7
8
9
 
Call ProduitsClient_VoyageProduitClient_DblClick
                    'Call Form_NomDuSousForm.Champ_AfterUpdate
 
                    'Private Sub Date_Départ_Effective_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "CalendrierVoyageProduits", acNormal, , , , , "VoyageProduitClient![Date_Départ_Effective]"
 
End Sub

Mais bien sur ça ne marche pas... Je dois avouer que je ne sais absolument pas comment fonctionne ce "Call".

Quelqu'un pourrait-il m'aiguiller?

[Arkham46]

slt,

Code :

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

Call Form_VoyageProduitClient.DblClick

Form_VoyageProduitClient est le nom du module de classe lié au formulaire ; tu peux voir son nom dans l'explorateur de projet de l'editeur vba

[SpyesX]

Mais si je met

Code :

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

Call Form_VoyageProduitClient.DblClick

Ce n'est plus mon champs date qui est double clické...

En fait je cherche à faire en sorte que mon code (ci dessous) fonctionne même lorsque le formulaire VoyageProduitClient est en sous formulaire... Le principal étant ProduitsClient

Code :

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

1
2
3
Private Sub Date_Départ_Effective_DblClick(Cancel As Integer)
DoCmd.OpenForm "CalendrierVoyageProduits", acNormal, , , , , "VoyageProduitClient![Date_Départ_Effective]"
End Sub

En fait la base de l'erreur vient du fait que lorsque VoyageProduitClient est ouvert en tant que sous formulaire,
- Je double click sur le champ date pour ouvrir le formulaire CalendrierVoyageClient
-Je sélectionne une date dans le controle.Calendar
-Je click sur le bouton Ok (btnOK)
Et la j'ai une erreur

Erreur d'exécution '2450'
Impossible de trouver le formulaire 'VoyageProduitClient' auquel il est fait référence dans une expression de macro ou un code visual basic.

Cette erreur n'est présente QUE lorsque le formulaire VoyageProduitClient est en sous formulaire...

Mon code de click sur le btnOK est:

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
Private Sub btnOK_Click()
Dim strForm As String, strChamp As String
Dim intI As Integer
 
If Not IsNull(Me.OpenArgs) Then
    ' Identifier les champs
    intI = InStr(1, Me.OpenArgs, "!", vbTextCompare)
    If intI <> 0 Then
        strForm = Left(Me.OpenArgs, intI - 1)
        strChamp = Mid(Me.OpenArgs, intI + 1)
 
        ' Affecter la date au champ passé en argument
        Forms(strForm)(strChamp) = Me!Calendrier.Value
    End If
End If
 
' Fermer le formulaire
DoCmd.Close
End Sub

Et l'erreur se situe ici:

Forms(strForm)(strChamp) = Me!Calendrier.Value

[Arkham46]

Mais si je met

Code :

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

Call Form_VoyageProduitClient.DblClick

Ce n'est plus mon champs date qui est double clické...

Alors pour le double click sur un champ tu mets le nom de la routine qui correspond :

Code :

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

Call Form_VoyageProduitClient.Date_Départ_Effective_DblClick

Pour atteindre un contrôle d'un sous-formulaire je t'invite à regarder dans la FAQ.

[SpyesX]

Voilà ce que j'ai fais... mais ça ne marche pas car je ne sais pas utiliser "str". (J'ai récupéré ce petit code sur les sources d'un site mais ils n'expliquent pas plus que ça comment ça marche. )
Du coup pour atteindre le controle du sous form avec ça:

Code :

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

   Forms(strSousForm)(strForm)(strChamp) = Me!Calendrier.Value

Mon code:

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
Private Sub btnOK_Click()
Dim strSousForm As String, strForm As String, strChamp As String
Dim intI As Integer
 
If Not IsNull(Me.OpenArgs) Then
    ' Identifier les champs
    intI = InStr(1, Me.OpenArgs, "!", vbTextCompare)
    If intI <> 0 Then
 
        strSousForm = Left(Me.OpenArgs, intI - 1)
        strForm = Mid(Me.OpenArgs, intI - 1)
        strChamp = Right(Me.OpenArgs, intI + 1)
 
        ' Affecter la date au champ passé en argument
        Forms(strSousForm)(strForm)(strChamp) = Me!Calendrier.Value
       ''''''''''''''''''''''''''''
       'Forms![ProduitsClient]![VoyageProduitClient].Form![MaZoneDeText]
 
    End If
End If
 
' Fermer le formulaire
DoCmd.Close
End Sub

[SpyesX]

Comment puis-je appliquer ce code tuto

Code :

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

Forms![NomFormulaire]![NomSousFormulaire].Form![MaZoneDeText]

à monde code à moi qui n'est sensiblement pas le même puisqu'il doit resembler à ça:

Code :

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

Forms(strSousForm)(strForm)(strChamp) = Me!Calendrier.Value