Discussion :

[maringot]

Bonjour,
Dans mon formulaire CLIENT, j’ai créé un sous formulaire ClientProjet. Ces deux form sont basés sur 2 tables dont la relation est le n° client.

Pièce jointe 455988

Dans la table CLIENT, il y a un champ « SUIVIPROJET » au format oui/non et dont la valeur par défaut est « oui » et qui se coche automatiquement à la création d’un client.

Dans la table DEVIS il y a un champ CLIENT avec une relation (NUMCLI). Il y a également un champ PROJCLI en relation avec la table ClientProjet.
Dans la requête du devis j’ai mis le champ SUIVIPROJET.

Ce que je souhaite faire, c’est que lorsqu’on choisit un client dans le devis, la liste des projets (PROJCLI) n’affiche que les projets saisis dans la fiche du client. J’ai donc écris le code suivant sur le champ NUMCLI (après MAJ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub NUMCLI_AfterUpdate()
If Me.SUIVIPROJET = "5" Then
Dim strSQL As String
strSQL = "SELECT [CLIENTPROJET].IDPROJET, [CLIENTPROJET].[PROJETNOM], [CLIENTPROJET].[PROJADRESSE], [CLIENTPROJET].[PROJADRESS2], [CLIENTPROJET].[PROJCP], [CLIENTPROJET].[PROJVILLE], [CLIENTPROJET].PROJETIDCLIENT" _
& "From [CLIENTPROJET] " _
& "WHERE [CLIENTPROJET].PROJETIDCLIENT = " & Me.NUMCLI & " ORDER BY [CLIENTPROJET].[PROJETNOM];"
Me.PROJCLI.RowSource = strSQL
Me.PROJCLI.Requery
End If
End Sub

Le problème c’est qu’il n’apparaît rien dans la liste PROJCLI du devis.

Pièce jointe 455985

Merci de me conseiller sur le code pour que l'affichage fonctionne, cordialement

[micniv]

Bonjour,
ben déjà

il y a un champ « SUIVIPROJET » au format oui/non ...

et dans ton code

If Me.SUIVIPROJET = "5" Then ...

a voir

[maringot]

J'ai trouvé, il manquiat des [] autour de PROJETIDCLIENT.

Excusez pour le dérangement

[tee_grandbois]

bonjour,

J'ai trouvé, il manquiat des [] autour de PROJETIDCLIENT

étant donné que les crochets ce sont pas obligatoires si la règle de nommage est respectée, j'ai des doutes, je pencherai plutôt pour un espace manquant entre
PROJETIDCLIENT" _ et & "From [CLIENTPROJET] " _parce que là:

Bonjour,
ben déjà

il y a un champ « SUIVIPROJET » au format oui/non ...

et dans ton code

If Me.SUIVIPROJET = "5" Then ...

a voir

micniv a complètement raison .. tu seras toujours dans la condition Else