Discussion :

[licknriff]

Bonjour à tous,

Nom table : "Prospects"
Nom formulaire : "Prospects"

Dans mon formulaire :
- J'ai inséré une zone de liste déroulante nommé "Lieu salon" pour définir le lieu d'un salon.
- J'ai crée une fonction SQL avec IIF dans "Date salon" pour que s'ajoute automatiquement la date correspondant au salon précédemment inscris.


Problème :
Dans ma table ou s'affiche le lieu et la date, le lieu s'affiche bel et bien mais pas la date.
Alors comment faire pour que la date qui s'inscrit automatiquement dans le formulaire, s'inscrive aussi dans la table ?

Si vous me donner un code merci de m'expliquer ou le mettre car je ne m'y connais rien.

Voici le formulaire :Pièce jointe 170245
Voici la table vide dans le champs date :

J'ai essayé en insérant ça dans le formulaire, colonne évènements, ligne Avant MAJ

[RobiPMS]

Bonjour.

Puisque tu as défini comme source de données le VraiFaux qui te donne une date, ce champ ne peut évidemment pas être aussi lié à la table source de ton formulaire. Tu as donc diverses possibilités pour inscrire la date qui apparaît dans ce champ dans le champ [Date salon] de la table.
Puisque tu "n'y connais rien", voici deux possibilités (parmi bien d'autres) de régler le problème.

1° possibilité : Tu crées un nouveau champ que tu appelles D_Salon, que tu lies à la table en lui donnant comme source de données le champ [Date salon]. Tu affiches les propriétés du champ où la source est le VraiFaux, Onglet Evénement -> Sur double clic -> Procédure événementielle -> dans l'éditeur VBA tu mets ce code :

Code :

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

1
2
3
Private Sub Date_salon_DblClick(Cancel As Integer)
Me.[D_salon] = Me.[Date_salon]
End Sub

2° possibilité : Tu lies le champ [Date Salon] au champ [Date salon] de la table.Tu crées une procédure événementielle sur l'événement Après mise à jour de ta liste déroulante, où tu attribues au champ [Date salon] la valeur résultant de ton IIf

Code :

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

Me.[Date salon] = IIf(....)

Bonne continuation!

[licknriff]

Bonjour et merci bien RobiPMS.

J'ai opté pour la solution 2 qui me semble la plus facile pour moi cependant j'ai fais des erreurs quelque part.

Voici ma procédure :
- "Tu lies le champ [Date Salon] au champ [Date salon] de la table" => Je n'ai rien fais
- "Tu crées une procédure événementielle sur l'événement Après mise à jour de ta liste déroulante, où tu attribues au champ [Date salon] la valeur résultant de ton IIf" Alors la voici comment j'ai fais

J'ai ouvert le formulaire prospects en mode création.
J'ai cliqué sur lieu salon, ensuite j'ai été dans "evenements", ligne "apres maj" et voici ce que j'ai inscris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Private Sub Date_salon_BeforeUpdate(Cancel As Integer)
Me![Date salon] = Me![Date salon]
End Sub
Me![Date salon] = Me![Date salon]
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub Lieu_salon_AfterUpdate()
Me.[Date salon]=VraiFaux([Lieu salon]="Bar le Duc";#15/01/2014#;VraiFaux([Lieu salon]="Nancy";#20/02/2014#;VraiFaux([Lieu salon]="Metz";#15/03/2014#;#10/04/2014#)))
End Sub

- Voici les résultats obtenus (désolé de mon incompétence)


À savoir que je retrouve la règle Me. etc dans date salon aussi.

Merci

[RobiPMS]

Bonjour.

Je dois m'absenter aujourd'hui et pourrai te répondre plus complètement ce soir.
En attendant :
- Tu dois lier le champ Date salon du formulaire à la source "Date salon" de la table (propriétés du formulaire -> Données -> Source contrôle -> là tu choisis la source dans la liste déroulante
- Tu supprimes ce que tu as mis en "Before update" qui ne sert à rien et n'a pas de sens
- L'expression VraiFaux dans ta procédure doit être formulée en anglais, càd que VraiFaux doit devenir Iif.
Mais à voir la partie visible dans ton message de ta formulation, la formulation est assez lourde et je pense à une autre façon d'attribuer cette valeur selon le choix dans la liste.
Je te propose de poster le code complet de ton VraiFaux, et en fonction de cela, je te proposerai un code convenable.

A+
RL

[licknriff]

Bonjour,

Merci pour ces informations mais je n'y arrive toujours pas :/

J'ai effectué les étapes, voici la vidéo des résultats obtenues :

Je présente les tables avec relation au début puis ensuite la procédure réalisé.


Rappel objectif :
Champ "date" du formulaire "prospects" se retrouve dans le champs "date" de la table correspondante soit la table "prospects"

Je souhaiterais qu'en utilisant le formulaire "Prospects" qu'une fois choisis dans le champ "Lieu salon" :

- Bar le Duc s'affiche automatiquement ensuite dans le champ "Date salon" la date du 15/01/2014
- Nancy s'affiche automatiquement ensuite dans le champ "Date salon" la date du 20/02/2014
- Metz s'affiche automatiquement ensuite dans le champ "Date salon" la date du 15/03/2014
- Epinal s'affiche automatiquement ensuite dans le champ "Date salon" la date du 10/04/2014

Formule :

Code :

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

Me.[Date salon]=iff([Lieu salon]="Bar le Duc",#15/01/2014#,iff([Lieu salon]="Nancy",#20/02/2014#,iff([Lieu salon]="Metz",#15/03/2014#,#10/04/2014#)))

Lien vidéo : https://vid.me/eZGj

Merci

[RobiPMS]

ReBonjour.

J'ai regardé la vidéo, tu y es presque.

Je te propose de remplacer ton

Code :

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

Me.[Date salon]=iff([Lieu salon]="Bar le Duc",#15/01/2014#,iff([Lieu salon]="Nancy",#20/02/2014#,iff([Lieu salon]="Metz",#15/03/2014#,#10/04/2014#)))

par ceci :

Code :

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

1
2
3
4
5
6
7
8
9
If Me![Lieu salon] = "Bar le Duc" Then
Me.[Date salon]  =  "15/01/2014"
ElseIf Me![Lieu salon] = "Nancy" Then
Me.[Date salon]  =  "20/02/2014"
ElseIf Me![Lieu salon] = "Metz" Then
Me.[Date salon]  =  "15/03/2014"
ElseIf Me![Lieu salon] = "Epinal" Then
Me.[Date salon]  =  "10/04/2014"
End If

Remarque : tu peux aussi encadrer tes dates de #, mais dans ce cas, dans le code VBA, pour qu'access les interprète correctement, tu dois utiliser le format anglo-saxon (mois jour annéee) donc ici #1/15/2014# et ainsi de suite.
Je viens de simuler ta situation avec une liste déroulante de noms, et un champ date, et ce code marche parfaitement. Tu ne devrais donc pas avoir de problème.
Cordialement,
RL
PS : si tu veux avoir la traduction automatique d'une expression créée en français dans une requête avec le générateur d'expression, il suffit d'afficher la requête en mode SQL.

[licknriff]

Merci beaucoup je vais essayer cette méthode
minotot83 vient de m'aider ca a marché aussi en faisant autrement.

Donc le problème est résolu. En copiant ce code ça marche très bien