Discussion :

[pedrus16]

Bonjour,

J'ai un formulaire en mode feuille de donnée et je voudrais ajouter une colonne qui contiendrait "oui" ou "non" selon une condition.

J'ai une table Entreprise avec un attribut AnneeTaxe.

Je voudrais mettre "oui" si (L'année en cours - AnneeTaxe) <=3 et sinon mettre "non".

Code :

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

1
2
3
4
5
 If Year(Now) - "" <= 3 Then
        Me.txttaxe = "oui"
    Else
        Me.txttaxe = "non"
    End If

Je ne sais pas comment récupérer la valeur de AnneeTaxe (là où il y a les "") dans ma table.

merci d'avance de votre aide.

[vto59]

Salut,

pour récupéré ta veleur il faut que tu passe par un recordset

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim RS AS DAO.Recordset
Dim BD AS DAO.Database
Dim Req AS String
Dim intTaxe AS Integer
 
Set BD = CurrentDb()
Req = "SELECT * From Entreprise;"
Set RS = BD.OpenRecordset (Req)
 
intTaxe = RS![AnneeTaxe]

En faisant cela tu récupère la valeur du champ AnneeTaxe, et il faudrai que ce champ dans ta table soit en numérique et il serait bien aussi que dans le code pour le select il y a une restriction qui correspondrait a l'entreprise

[pedrus16]

Merci de ta réponse vto59.

Si j'ai bien compris ce code c'est intTaxe qui contient la valeur AnneeTaxe.

J'ai essayé de l'afficher dans un champ pour tester en écrivant ceci:

Code :

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

Me.txtTest = intTaxe

Mais il m'affiche 0 pour chaque ligne alors que dans la table il y a bien 2008,2005, etc...

Je ne sais pas si j'ai raté une étape.

Sinon j'ai essayé un truc idiot (disons évident) que je n'avais pas pensé à faire avant de poster : Récupérer la valeur du champ AnneeTaxe puisque ma feuille de donnée est basée sur la table Entreprise. Résultat : il test la 1ere ligne et ensuite affiche le même résultat pour toutes les autres lignes.

[vto59]

indique nous la structure de ton formulaire stp !

[pedrus16]

J'ai un formulaire basé sur rien du tout dans lequel il y a ce sous formulaire feuille de donnée qui est basé sur la Table Entreprise. (c'est ça la structure?)

[vto59]

Pour ma part je passerai par un autre formulaire pour effectué la modification et j'activerai ce sous formulaire par un click sur un bouton. Parce que je ne voit comment tu pourrait effectué cette modification sur une feuille de donnée...

[pedrus16]

De quelle modification tu parles?

[LE VIEUX]

Bonjour,
Et a part le sous-formulaire il y a quoi sur ton formulaire et il sert a quoi ?
Ce type de problème se règle en général par une requête basée sur la table en ajoutant une colonne par ex : Nommée « Reponse » et on y met le code suivant :

Code :

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

Reponse: VraiFaux(Année(Maintenant())-Année([AnnéeTaxe])<=3;"oui";"non")

[pedrus16]

Et a part le sous-formulaire il y a quoi sur ton formulaire et il sert a quoi ?

il y a juste un bouton quitter et un bouton pour accéder à un autre formulaire.

Reponse: VraiFaux(Année(Maintenant())-Année([AnnéeTaxe])<=3;"oui";"non")

Je ne savais pas qu'on pouvait faire ce genre de choses en SQL j'essaye ça tout d'suite.

Edit: Hmm ça y est j'ai compris c'est dans un champ de la feuille de donnée que j'ajoute ça pas dans la réquête

Edit: Hmmmmerciiii!!! ça môarche!

[LE VIEUX]

re,
il n'y a pas de quoi, mais
ce n'est pas tout a fait ce que j'ai dit.
et si effectivement dans le form cela marche, bien sur, ce n'est pas la démarche classique car pour avoir access à tes infos il te faudra ouvrir ton formulaire.
en principe, on fait cela dans une requête et on base le formulaire ou le sous formulaire sur sur cette requête. l'info est donc accessible par code ou autre sans que le formulaire soit ouvert - mais ce qu j'en dit....c'est toi qui voit.
à + pour d'autres avantures....

[pedrus16]

En fait oui j'aurais besoin de cette valeur plus tard. Comment faire pour ajouter cette fameuse colonne à ma requête?

Je ne peux pas ajouter la fonction VraiFaux a cause des ";" qu'il y a dans la syntaxe.

[LE VIEUX]

re,
de quels ";" parles-tu
tu dois mettre cette fonction directement dans ta requête en mode création.
la function que je t'ai envoyée est une fonction SQL de requête aussi bien que de contrôle. il n'y a qu'en VBA où on les remplace par "," avec If......

[pedrus16]

Je parlais des ";" dans la fonction pour séparer les "oui" et "non".

Bon voila ça fonctionne j'ai trouvé la syntaxe pour le VraiFaux en SQL ici:
http://www.developpez.net/forums/d50...tion-vraifaux/

Ce qui donne:

Code sql :

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

1
2
SELECT IIf(Year(Now())-[AnneeTaxe]<=3,"oui","non") AS Taxe
FROM Stage

Voila merci à vous de m'avoir mis sur la voie (même bien plus).