Discussion :

[marcmarc150]

Bonjour,

j'ai le code suivant pour placer la date dans le prochain_etalon suivant la colonne du champ périodicité

Code :

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

1
2
 
Me.prochaine_etalon_machine = Me.date_etalon_machine + Me.périodicité_etalon_machine.Column (1)

Mais , je ne connais pas la syntaxe exacte pour faire mon calcul en vba
le .column (1) me pose des soucis et malgré mes recherche , je cale ...

Pouvez-vous me dire quelle est la bonne syntaxe...
En vous remerciant

Marcmarc150

[Domi2]

Bonjour,

La syntaxe serait plutôt de ce type :

Code :

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

Me.prochaine_etalon_machine = DateAdd("m", Me.périodicité_etalon_machine.Column (1), Me.date_etalon_machine)

Dans cet exemple, on rajoute autant de mois que le nombre de périodicité.

Regarde dans l'aide les arguments de la fonction.

Sinon, pour vérifier si tu récupères bien la valeur du champ périodicité, tu peux simplement inclure dans ton code :

Code :

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

MsgBox Me.périodicité_etalon_machine.Column (1)

Domi2

[marcmarc150]

merci une partie fonctionne , le calcul c'est ok,
Dans le formulaire, il y a plusieurs enregistrements
mais il me donne la mm réponse pour tous les enregistrements alors que les autres enregistrements sont des dates différentes et des périodicités différentes et dès lors la réponse du calcul doit être également différente....
voila ,j'ai changé m mois par d date

Code :

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

1
2
3
 
Me.prochaine_etalon_machine = DateAdd("d", Me.périodicité_etalon_machine.Column(1), Me.date_etalon_machine)
MsgBox Me.périodicité_etalon_machine.Column(1)

comment faire ? pour que les autres enregistrements soient calculés

Merci

Marcmarc150

[Domi2]

Comment se présente ton formulaire ? Les données sont-elles en mode continu ?

Et où se trouve la liste déroulante périodicité_etalon_machine ?

Dans l'entête du formulaire, ou bien sur chaque enregistrement ? Quelle en est la source ?

Enfin, dans quel évènement as-tu placé ton code ?

Domi2

[marcmarc150]

Le sous formulaire provient d'une requête juste pour une visualisation globale, donc il reprend tous les enregistrements de ma table étalonnage.
ou se trouve
"date_etalon",
"periodicité_étalon" qui est une liste déroulante d'une autre table suivant le type de périodicité qui va de 1 jour a 5 ans,
et "prochain_étalon"
le but dans ce sous formulaire de visualisation était de faire le calcul sur les dates que j'avais réussi par le champ en mettant le code suivant dans le champ "prochain_étalon"
=[date_etalon_machine]+périodicité_etalon_machine.column(1)
ce qui fonctionnait bien,
mais je n'arrive pas a afficher seulement les date qui sont inférieur a la date du jour d’où mes essais détournés qui sont un peu a la mac gyver , car je ne connais pas tout en access.
je met un petite photo pour explication
j'avais placer le code dans

Code :

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

1
2
3
4
5
 
Private Sub Form_Load()
Me.prochaine_etalon_machine = DateAdd("d", Me.périodicité_etalon_machine.Column(1), Me.date_etalon_machine)
MsgBox Me.périodicité_etalon_machine.Column(1)
End Sub

Qui je suppose n'est surement pas a la bonne place....

Marcmarc150

[marcmarc150]

Le sous formulaire provient d'une requête juste pour une visualisation globale, donc il reprend tous les enregistrements de ma table étalonnage.
ou se trouve
"date_etalon",
"periodicité_étalon" qui est une liste déroulante d'une autre table suivant le type de périodicité qui va de 1 jour a 5 ans,
et "prochain_étalon"
le but dans ce sous formulaire de visualisation était de faire le calcul sur les dates que j'avais réussi par le champ en mettant le code suivant dans le champ "prochain_étalon"
=[date_etalon_machine]+périodicité_etalon_machine.column(1)
ce qui fonctionnait bien,
mais je n'arrive pas a afficher seulement les date qui sont inférieur a la date du jour d’où mes essais détournés qui sont un peu a la mac gyver , car je ne connais pas tout en access.
je met un petite photo pour explication
j'avais placer le code dans

Code :

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

1
2
3
4
5
 
Private Sub Form_Load()
Me.prochaine_etalon_machine = DateAdd("d", Me.périodicité_etalon_machine.Column(1), Me.date_etalon_machine)
MsgBox Me.périodicité_etalon_machine.Column(1)
End Sub

Qui je suppose n'est surement pas a la bonne place....

Marcmarc150

[Domi2]

Pour autant que j'aie bien compris, je pense que passer par du code n'est pas nécessaire.

Il serait plus simple de créer un champ calculé directement dans la requête.

Et dans le formulaire, tu utilises la liste déroulante uniquement pour modifier le nombre de jour.

Domi2

[marcmarc150]

ok, mais alors comment fait on un champ calculé dans la requête
quelle est la bonne manière pour faire cela

je n'en n'ai jamais fait et je dois dire que je cale bien fort la dessus
et je dirai mm plus je ne m'en sors pas..!!!
en copie, la requête

Merci

Marcmarc150

[Domi2]

Bonjour,

En mode création de ta requête, dans la première colonne libre, tu mets ton champ calculé :

Code :

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

LeNomDuChamp: DateAdd("d"; [périodicité_etalon_machine]; [date_etalon_machine])

Domi2

[marcmarc150]

Merci pour l'info,
mais quand je place le code dans la requête
il me la change automatiquement en

Code :

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

cal_date: AjDate("d";[périodicité_etalon_machine];[date_etalon_machine])

en lieu et place de l'info reçue qui est

Code :

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

cal_date: DateAdd("d"; [périodicité_etalon_machine]; [date_etalon_machine])

et le calcul n'est pas juste alors

merci a toi sur le temps que tu consacre à m'aider
en te remerciant


Marcmarc150

[Domi2]

Arf !

AjDate() est l'équivalent français de DateAdd(). La conversion se fait automatiquement dans le QBE, mais pas pour l'argument Interval.

Remplace "d" par "j".

Domi2

[marcmarc150]

merci
mais j'ai quand mm une erreur sur le résultat
en copie l'image du résultat de la requête

merci

Marcmarc150

[Domi2]

Pourrais-tu poster ta table avec quelques données et tes deux requêtes dans une application au format 2000 zippée ?

Domi2

[marcmarc150]

ok,
je fais cela pour début d’après midi

en te remerciant

Marcmarc150

[Domi2]

J'ai essayé de faire un test vite fait.

Avec "j", j'ai effectivement une erreur.

Par contre, avec "d", mon résultat semble correct.

Tu peux revérifier ?

Domi2

[marcmarc150]

slt,
voila, j'ai sorti en une partie
la voici
j'ai remarquer lors du calcul , il ne prend pas la bonne référence de la colonne périodicité, on dirait qu'il prend l'identifiant de la clé primaire et pas le nombre prévu par la périodicité

Marcmarc150

[Domi2]

Re,

Effectivement. Modifications à apporter dans la table, dans le champ périodicité_etalon_machine, onglet Liste de choix :

Contenu : SELECT tbl_periodicite.nombre_jours_periodicite, tbl_periodicite.libelle_periodicite FROM tbl_periodicite ORDER BY [nombre_jours_periodicite];.
Colonne liée : 1
Nbre colonnes : 2
Largeurs colonnes : 2.54cm;2.54cm

Et le code dans la requête :

Code :

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

cal_date: AjDate("j";[périodicité_etalon_machine];[date_etalon_machine])

Domi2

[marcmarc150]

sorry,
malgré toute bonne volonté, je n'y arrive pas a affecter la valeur
m^eme avec ton aide et meme en recommencant le champ périodicité...

j'ai encore beaucoup a apprendre....

j'ai remis en annexe test2
Marcmarc

[Domi2]

Il faut faire les choses au bon endroit.

D'abord, à quoi te sert le champ calculé périodicité dans ta requête (tout à droite) ? A rien, puisqu'il ne fait que reprendre la valeur du champ périodicité_etalon_machine Déjà dans la table. A supprimer !

Ensuite, dans la table tbl_etalon_machine, dans le champ Description, tu supprimes les SELECT... Rien à faire ici.

Puis tu positionnes le curseur dans le champ périodicité_etalon_machine. Au bas de l'écran tu as la zone Propriété du champ, avec deux onglets, "Général" et "Liste de choix". tu cliques sur "Liste de choix" et là, tu fais les modifications indiquée plus haut.

Contenu : SELECT tbl_periodicite.nombre_jours_periodicite, tbl_periodicite.libelle_periodicite FROM tbl_periodicite ORDER BY [nombre_jours_periodicite];.
Colonne liée : 1
Nbre colonnes : 2
Largeurs colonnes : 2.54cm;2.54cm

Si tu veux voir le libellé de la périodicité plutôt que le nombre de jour, tu mets simplement la largeur de la première colonne à 0.

Une dernière chose que tu dois faire, c'est saisir à nouveau dans ta table les périodicités, parce qu'actuellement, comme tu l'avais deviné, les valeurs affichées sont celles de l'Id des enregistrements, et non le nombre de jour des périodicités.

Le champ calculé est correct, tu n'as rien à modifier là.

Domi2

[marcmarc150]

Domi2,
Merci de toute l'aide et surtout de ta patience,

Tout fonctionne nickel...

*champ périodicité_etalon_machine Déjà dans la table. est supprimer !
je l'avais placer pour test de valeur, je sais qu'il était en doublon
les lignes select dans la table était juste pour faire la comparaison entre les deux lignes elles sont supprimées également
dans la table j'ai modifier les valeur périodicité, c'est ok aussi
je croyais que dans la requête il fallait également le nombre de jours et non pas le libellé, mais cela fonctionne super bien...
je vais réadapter le tout

En te remerciant du temps passé pour m'aider dans cette nouvelle acquisition de savoir..

mille fois merci

Marcmarc150