Discussion :

[ganok]

Bonjour,
J'ai crée un formulaire qui se présente ainsi :

J'ai nomme les deux combo box indépendantes : "cbxProjectNumber" et "cbxProjectManager".
Ensuite, sur l'évènement AfterUpdate du champs "Task", j’ai mis :

Code :

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

1
2
3
4
5
 
Private Sub Task_AfterUpdate()
 Me.Project_Number.DefaultValue = "'" & Me.cbxProjectNumber & "'"
 Me.Project_Manager.DefaultValue = "'" & Me.cbxProjectManager & "'"
End Sub

Et j'obtiens ce message d'erreur...

Est ce que quelqu'un pourrai m'aider SVP?
Merci d'avance.

[tee_grandbois]

Bonsoir,
il était inutile de créer un autre post car c'est le même que celui-ci :http://www.developpez.net/forums/viewtopic.php?t=291701
Autant il est bien de taguer Résolu quand çà l'est effectivement, autant il vaut mieux tester une solution proposée avant de taguer.
Cela dit, pourquoi n'as-tu pas fait comme je t'ai indiqué ? c'est à dire changer la valeur par défaut de chacun de tes contrôles cachés (que tu dois transformer en zone de texte, mais ceci est du détail), après mise à jour de tes combos, ou sur clic, éventuellement, car après mise à jour de Task, c'est trop tard, puisque l'enregistrement est déjà créé (l'icône du petit crayon sur le sélecteur t'indique que tu es en cours d'écriture de cet enregistrement).
Voici donc le code que tu dois mettre :

Code :

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

1
2
3
4
5
6
7
Private Sub cbxProjectNumber_AfterUpdate() 
 Me.Project_Number.DefaultValue = "'" & Me.cbxProjectNumber & "'" 
End Sub
 
Private Sub cbxProjectManager_AfterUpdate() 
 Me.Project_Manager.DefaultValue = "'" & Me.cbxProjectManager & "'" 
End Sub

Ces évènements auront pour effet de changer la valeur par défaut de tes contrôles.
Si cela ne marche pas, tu peux créer l'évènement Click à la place.
Cela dit, ton application doit être blindée car, il es toujours possible de changer de Project ou de Manager en cours de saisie. Pour cela, il vaudrait mieux verrouiller les combos une fois que le premier enregistrement est créé, par exemple.

[ganok]

Merci et encore désole... Je suis novice en Access mais aussi dans les forums... Mais bon, c'est en faisant des erreurs qu'on apprend...
Ta solution ne marche pas car j'ai toujours ce p***** de message d'erreur qui s'affiche. En revanche, j'ai trouve plus simple :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub MonContrôle_AfterUpdate()
 
' si la valeur est alphanumérique
Me.MonContrôle.DefaultValue = """" & Me.MonContrôle & """"
' si la valeur est numérique
Me.MonContrôle.DefaultValue = Me.MonContrôle
End Sub

Voila! Merci d'avoir pris sur ton temps pour répondre a ma question.
Bonne continuation!