Discussion :

[antony34200]

Bonjour,
j'ai créé une base permettant de faire des contrats, pour 2 entités gérer par le même patron.

J'aimerais un petit coup de main pour m'aider à remplir un champs sous condition.

J'aimerais que si je saisie dans le champs Fournisseur "fournisseur 1 SAL" ou le "fournisseur 2 GPD", le champs société soit automatiquement rempli par la société 2,
et j'aimerais aussi que si je saisie dans le champ enseigne "AUCHAN", le champs société soit automatiquement rempli par la société 2.

J'ai tester avec le code suivant et ça ne fonctionne pas. je ne comprend pas pourquoi.

Code :

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

1
2
3
4
Private Sub Enseigne_LostFocus()
If ([Enseigne] = "AUCHAN") Then
[N°_Société] = Me.N°_Société.Column(2)
End Sub

Pourriez vous me donner un petit coup de main SVP. Merci d'avance

[marot_r]

Bonjour.

Je ne suis pas sûr que ce soiyt l aréponse que tu cherchais mais à priori, Pour faire cela tu peux utiliser un truc du genre =Dfirst("TonChamp", "tblSociete", "[Enseigne]=""" & [Enseigne] & """").

Mais généralement c'est plus simple avec une jointure dans la source de données sur le ID de société.

A+

[antony34200]

Bonjour,
Je dois insérer le code à la place du mien ?? dans LostFocus ?

[antony34200]

Pour faire plus simple.

Si enseigne = "AUCHAN" alors société 2.
Si fournisseur = "fournisseur 1 SAL" ou le "fournisseur 2 GPD" alors société = société 2

Les 2 conditions ne doivent pas obligatoirement etre réuni, il se peut que le "fournisseur 1 SAL" puisse intervenir sur l'enseigne une autre enseigne ou auchan.

Je ne comprend pas "une jointure" dans votre post. mais si c'est plus simple, je suis preneur

[marot_r]

Aucune certitude car je n'ai pas le droit d'ouvrir de fichier sur mon PC.

En fait en regardant ton poste de nouveau, pourquoi rendre l'assignation conditionnelle ?

Code :

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

1
2
3
Private Sub Enseigne_LostFocus()
   [N°_Société] = Me.N°_Société.Column(2)
End Sub

Ne ferait-il pas le travail ?

A+

[antony34200]

la, telle qu'est mon code, non il ne fonctionne pas.

En fait, actuellement, mon champs société est une liste déroulante pour choisir la société manuellement, et ça fonctionne. mais j'aimerais l'automatiser afin d'éviter les erreurs ...

ce champs société me sert aussi à remplir mon état contrat

[marot_r]

Bonjour.

Pour gérer l'association d'une valeur à une autre, le plus simple est d'avoir une table.
Tu mets dans une colonne la valeur "clef" et dans l'autre la valeur à associer.

Par exemple, ici tu pourrais avoir une table

tblFournisseurSociete :

ClefFournisseurSociete
ClefFouniseur
ClefSociete

ou peut-être simplement un champ ClefSociete dans ta table des fournisseurs si ton fournisseur n'approvisionne qu'une est une seule société.

Après tu n'as plus qu'à aller "pécher" la société associée au fournisseur. Tu peux utiliser DFirst() pour cela ou faire une jointure sur cette table d'association dans la source de ton formulaire.

Tu peux faire la même chose pour tes enseignes.

A+

[antony34200]

Je vais me pencher sur ta réponse et me mettre au au travail, je reviens te dire après ce qu'il en est

[antony34200]

Voilà, je viens de créer une nouvelle table T_FourSociétéEnseigne


Et voila comment est structuré mon formulaire de saisie des contrats.


Maintenant que ma nouvelle table est créé, comment faire pour que
Si enseigne = "AUCHAN" alors société.
Si fournisseur = "fournisseur 1 SAL" ou le "fournisseur 2 GPD" alors société = société 2
Tout en sachant que par défaut il faut que j'ai société 1

[marot_r]

Dans la procédure événementielle associée à l'événement après mise à jour de ton champ fournisseur.

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if not isnull(me.idFournisseur) then
        dim idSociete as variant
        idSociete=dfirst("idSociete", "T_FourSociétéEnseigne", "[idFournisseur]=" & me.IdFournisseur)
        if isnull(idSociete) then
          me.idSociete=1 'valeur par défaut
           else
          me.idSociete=idSociete 'Valeur trouvée dans la table de correspondance.
        end if
    else
         me.idSociete=null
end if

A+

[antony34200]

Avec le code j'ai fait planter ma base ... ou alors je n'ai pas su le placer au bon endroit

[marot_r]

Bonjour.

Avec le code j'ai fait planter ma base ... ou alors je n'ai pas su le placer au bon endroit

Peux-tu poster ton code et indiquer où tu l'as mis … j'ai un peu de mal depuis le Canada à voir par dessus ton épaule :-).

Est-ce que tu as eu un message d'erreur ? Si oui, où ?

A+

[antony34200]

Pour etre franc, je ne sais plus et je suis passé sur une autre solution, celle de mettre dans ma table enseigne la société qui correspond a l'enseigne et idem pour ma table fournisseur ...
Mais je galaère tout autant ...
Dans ma table enseigne, j'ai mis un nouveau champs société_enseigne, dont le contenu est le suivant :

Code SQL :

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

SELECT T_Société.Dénomination_Société FROM T_Société;

Maintenant je cherche à faire s'incrémenter le champ société enseigne dans mon formulaire contrat

[marot_r]

Bonjour.

C'est probablement un code semblable à celui que j'ai posté à mettre au même endroit si par Incrémenter tu penses "Afficher" et pas "ajouter une valeur de 1".

La grande différence ça va être la table source.

A+

[antony34200]

en fait, je patauge ... je cherche une solution la meilleur et la plus simple.

Dans l'état actuel, ma base fonctionne très bien. Sauf que dans mon formulaire de contrat, j'ai une liste déroulante pour choisir la société et ça marche très bien. Mais j'aimerais, pour éviter les erreurs, sélectionner automatiquement la société 2 en fonction de 2 fournisseurs et d'une enseigne sinon il doit y avoir en permanence la société 1

Et ensuite que mon état corresponde à mon formulaire ... et la dans l'état actuel, tout fonctionne très bien.
Je cherche juste à améliorer de la façon la plus simple.

[marot_r]

Selon moi la table d'association ou mettre la clef Société dans la table source sont les solutions les plus simples et les plus durables.

A+

[antony34200]

je vais reprendre alors, mais il faut que je le face pas à pas ...
La je suis en train de m'arracher les cheveux

[antony34200]

Je viens de refaire ma table tblFournisseurSocieteEnseigne



Voilà, maintenant, pas à pas, je fais quoi ??
Faut-il que je saisisse des info dans cette table ?

[marot_r]

Bonjour.

Faut-il que je saisisse des info dans cette table ?

Oui Access ne crée aucune donnée par lui-même et mettre des tables en relation ne le fait pas non plus.

Est-ce que le fournisseur est relié à l'enseigne ?

A+

[antony34200]

Je vais abandonner l'idée, ça me semble trop complexe pour mes petites connaissances avec access