Discussion :

[rag83]

Bonjour,

Une question toute simple, dans un formulaire de recherche multicritères en mode continu, je voudrais mettre une zone de texte dans l'en-tête du formulaire afin d'y stocker une date globale.

J'ai une liste de clients ayant payé ou pas des factures, et je voudrais pouvoir stocker quelque part la date ou j'ai vérifié les impayés pour la dernière fois. L'en-tête du formulaire me parait bien pour ça.

A quoi rattacher cette zone de texte ? Si je crée un champ dans une table, il sera présent pour chaque enregistrement, et si je mets la zone en indépendant bien entendu je ne peux rien enregistrer dedans.

Comment faire ?

Merci

[loufab]

Bonjour,

On crée la persistance de ce genre d'info dans une table Parametres.

Voici une structure exemple :

Id, NuméroAuto
NomParam, Texte
ValeurParam, Texte
DescriptionParam, Texte

Puis on crée une fonction lecture et une creation/ecriture pour faciliter les échanges.

Cordialement,

[rag83]

Bonjour Loufab,

Tu veux dire qu'il faut coder une fonction pour faire ça ?

[loufab]

Non pas forcément mais ça t'aidera à gérer tes paramètres issus de la table, qui elle, est obligatoire.

Moi je procède comme ça, ainsi lorsque j'envoi un paramètre dans ma table je le fais en utilisation une fonction (qui crée si elle n'existe pas), de même que lorsque je la lis.

ça facilite grandement la gestion des paramètres.

[rag83]

D'accord, mais je ne comprends toujours pas très bien ce que je dois faire.

Peux-tu m'expliquer en quelques lignes les étapes de ce que je dois faire pour avoir ce champ date Loufab, si possible sans code ?

Je te remercie

[loufab]

D'abord créer la table TParam avec les colonnes indiquées précédemment.
Ensuite créer la zone de texte dans l'en-tête avec ce nom : txtDateImpaye

Avec le minimum de code :
Dans la source de la zone de texte mettre une expression pour chercher dans la table, par exemple :

Code :

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

=dlookup("ValeurParam";"TParam";"NomParam='VerifImpaye")

Enfin dans l'événement Après MAJ de la zone de texte, il faut mettre les instructions d'écriture.
Par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
if isnull(me.txtDateImpaye) then
   'n'existe pas >> crée
   currentdb.execute "INSERT INTO TParam (NomParam, ValeurParam, DescriptionParam) VALUES ('VerifImpaye','" & me.txtDateImpaye & '",'Date vérification impayé');"
else
   'existe >> remplace
   currentdb.execute "UPDATE TParam SET ValeurParam = '" & Me.txtDateImpaye & "' WHERE NomParam='VerifImpaye';"
endif

Approximativement c'est le mécanisme.

Sans code on peut tenter un sous-form contenant la date que tu places dans l'en-tête, à tester si c'est possible.

Cordialement,

[rag83]

Merci Loufab, j'essaye de regarder ça dans le week end.

J'ai essayé de placer un sous-formulaire dans l’en-tête, ce n'est pas possible en mode continu.

[rag83]

Hum alors voila j'ai essayé ta proposition Loufab, il doit y a voir un problème car dans la zone de texte créée dans l’en-tête du formulaire il y a #Erreur.

J'ai vérifié et revérifié de ne pas m’être trompé, j'ai juste inversé un ' avec un " sur la ligne 4 de ton code car il y avait je crois une inversion mais ça ne fonctionne quand même pas.

Si tu as une idée du pourquoi de la chose...

[loufab]

La 4 est correcte par contre le dlookup() n'est pas correct. Il manque un ' vers la fin.

Code :

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

=dlookup("ValeurParam";"TParam";"NomParam='VerifImpaye'")

[rag83]

Ah oui en effet, OK pour le ' dans le Dlookup.

Je n'ai plus le #Erreur dans le contrôle mais je ne peux rien y mettre, ça met : le contrôle ne peut être modifié ; il est lié à l'expression =RechDom("ValeurParam";"TParam";"NomParam='VerifImpaye'")

[loufab]

Donc il faut rajouter un bouton pour faire la mise à jour en utilisant un inputbox()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim nouvelleValeur as string
nouvelleValeur = inputbox(...
 
if isnull(me.txtDateImpaye) then
   'n'existe pas >> crée
   currentdb.execute "INSERT INTO TParam (NomParam, ValeurParam, DescriptionParam) VALUES ('VerifImpaye','" & nouvelleValeur  & '",'Date vérification impayé');"
else
   'existe >> remplace
   currentdb.execute "UPDATE TParam SET ValeurParam = '" & nouvelleValeur & "' WHERE NomParam='VerifImpaye';"
endif

Voir l'aide pour la fonction inputbox()

Cordialement,

[rag83]

J'ai rajouté l'inputbox pour remplir le champ et ça fonctionne.

Cependant, j'ai un soucis, si par erreur l'inputbox est validée vide (après avoir cliqué sur OK sans rien taper, ou sur annuler), je peux saisir ce que je veux ensuite, la zone de texte reste toujours vide.

Est-ce qu'il y aurait moyen d'arranger ça ?

Je vois que, chaque fois que je fais une saisie dans l'inputbox cela ajoute un enregistrement dans la table. Comme je n'ai pas besoin de garder l'historique, est ce qu'il serait possible de n'avoir qu'un seul et unique enregistrement dans la table TParam, qu'on écraserait a chaque nouvelle saisie dans l'inputbox ?

[loufab]

Avec cet algo ça devrait aller mieux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim nouvelleValeur as string
nouvelleValeur = inputbox(...
 
if len(nouvelleValeur)=0 then exit sub  'traitement de la non saisie.
 
if isnull(dlookup("ValeurParam","TParam","NomParam='VerifImpaye'")) then  'pas de valeur dans la table
   'n'existe pas >> crée
   currentdb.execute "INSERT INTO TParam (NomParam, ValeurParam, DescriptionParam) VALUES ('VerifImpaye','" & nouvelleValeur  & '",'Date vérification impayé');"
else
   'existe >> remplace
   currentdb.execute "UPDATE TParam SET ValeurParam = '" & nouvelleValeur & "' WHERE NomParam='VerifImpaye';"
endif

[rag83]

Voila tout fonctionne parfaitement

Je te remercie Loufab