Discussion :

[clemus83]

Bonjour,

Mon patron voudrait que j'automatise un champ dans un sous formulaire et j'ai un probleme avec le code.

La base de données est divisé en plusieurs onglets qui font office de sous formulaire dans le menu principal.

J'ai un champ (zone de liste) dans un sous formulaire et il faudrait que quand dans un autre sous formulaire, 2 champs (zone de liste) soit sélectionné, la valeur de la liste modifiable change.

Je ne connais pas tres bien le VB alors j'ai écrit le code suivant en pensant de la maniere suivante: si une valeur est selectionné dans les 2 champs, alors la valeur du champ change.

Pour le moment, il me dit l'erreur Suivante: erreur execution 438, propriété ou methode non géré par cet objet. et je ne sais pas ce que ca veut dire

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Statut_Client_Click()
If Forms![Menu Principal]![Appel d'offre].Form!PartenaireID <> 0 And Forms![Menu Principal]![Appel d'offre].Form!montantP1 <> 0 Then
Me.Statut_Client = "Ma"
 
    ElseIf Forms![Menu Principal]![Projet_retenu].Form!PartenaireID <> 0 And Forms![Menu Principal]![Projet_retenu].Form!montantP1 <> 0 Then
    Me.Statut_Client = "Cl"
 
    End If
 
End Sub

Par avance je vous remercie pour vos reponses car je suis un peu perdu

[mout1234]

... divisé en plusieurs onglets qui font office de sous formulaire ...

Bonjour,

Qu'entends-tu par "font office de sous formulaire"...

Code :

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

Forms![Menu Principal]![Appel d'offre].Form!PartenaireID

La syntaxe que tu as utilisée suppose que "Appel d'offre" soit le nom d'un contrôle contenant un sous-formulaire.

S'il s'agit du nom d'un onglet, dans lequel se trouve directement le contrôle PartenaireID, le controle est directement rattaché au formulaire:

Code :

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

Forms![Menu Principal]!PartenaireID

En passant, je suppose que "Statut_Client" est un controle du même formulaire "Menu Principal". Tu peux donc remplacer partout dans ce module Forms![Menu Principal] par Me .


Un dernier conseil, évites des noms d'objets comportant des espaces et/ou des accents, apostrophes... , tout au moins lorsqu'ils sont référencés dans le code.
Dans ce registre, je t'invite à jeter un coup d'oeil par ici: http://argyronet.developpez.com/office/vba/convention/


Bon courage

[clemus83]

Bonjour Mout 1234,

En fait, il y a un formulaire menu principal qui ne possede aucun champ et que des onglets. Tous les onglets sont relié au menu principal par un identifiant commun.

Tous les onglets sont en fait des formulaires indépendant mis en onglet et relié au menu principal par l'identifiant. Chaque formulaire est considéré comme sous formulaire du menu principal.

Il faut que si une valeur est sélectionné dans 2 champ(zone de liste) de l'onglet "Appel d'offre", la valeur d'un champ(zone de liste) dans l'onglet "Dossier" change.

Les champs dans l'onglet "Appel d'offre" dont une valeur doit etre selectionné sont 'PartenaireID' et 'MontantP1'.
Le champ dans l'onglet "Dossier" dont la valeur doit etre modifié est 'Statut_Client'.

par avance merci.

[mout1234]

Bonsoir,

...
Pour le moment, il me dit l'erreur Suivante: erreur execution 438, propriété ou methode non géré par cet objet. et je ne sais pas ce que ca veut dire
...

Sur quelle ligne tu as le message d'erreur?

[clemus83]

Bonjour,

il me met erreur execution 438 sur la ligne suivante :

Code :

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

If Forms![Menu Principal]![Appel Offres].Form!PartenaireID <> 0 And Forms![Menu Principal]![Appel Offres].Form!montantP1 <> 0 Then

[mout1234]

Bonsoir,

Je ne vois pas d'anomalie dans cette ligne ...