Discussion :

[kekesilo]

Bonjour,

Je suis débutant dans le développement sous ACCESS 2000.
J'ai besoin de sauvegarder 2 valeurs (1 date et 1 valeur) dans l'application que je suis en train de développer sous ACCESS. Ces 2 valeurs, l'utilisateur peut les modifier s'il le souhaite par l'intermédiaire d'un formulaire.

Pour l'instant, j'ai créé une table Ressource comportant 2 champs (Date de fin, Prime ) afin de sauvegarder ces 2 valeurs. Ces 2 valeurs n'ont aucune relation entre elles.

Voilà ma question, est-ce qu'il n'y a pas un autre moyen de sauvegarder ce type de valeur que de créer une table avec seulement 2 valeurs qui n'ont pas de relations ???? j'ai déjà pensé un fichier texte mais étant débutant je me demande si ACCESS m'a pas un sytème particulier pour ce genre de cas....

j'espère être clair !!!!
toute idées, commentaires, reflexions sont les bien venus....

[Lou Pitchoun]

Salut,
Il me semble que c'est la seule solution facile à utiliser pas de lecture/écriture à faire dans un fichier.

[random]

on peut utiliser les propriétes personnalisées de la base pour conserver
des valeurs qu'on ne peut pas mettre en table
on crée une propriété par les menus fichiers propriétés de la base personnalisation ou par du code

Code :

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

1
2
3
4
5
6
 
Function creprop(x As Variant) As Integer
Dim u As Database
Set u = CurrentDb()
u.Containers!Databases.Documents("userdefined").Properties.Append (x)
End Function

on met jour une propriété en l'écrivant par les menus fichiers propriétés de la base personnalisation ou par du code

Code :

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

1
2
3
4
5
6
 
Function ecritprop(x As String, y As Variant) As Boolean
Dim u As Database
Set u = CurrentDb()
u.Containers!Databases.Documents("userdefined").Properties(x).Value = y
End Function

on lit une propriété par les menus fichiers propriétés de la base personnalisation ou par du code

Code :

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

1
2
3
4
5
6
 
Function litprop(x As String) As Date
Dim u As Database
Set u = CurrentDb
litprop = u.Containers!Databases.Documents("userdefined").Properties(x).Value
End Function

[Lou Pitchoun]

Pourra-t-il accéder à la dernière valeur sauvegardée même après avoir fermé et réouvert son appli ??

[Arkham46]

'lut,

Un peu d'eau au moulin :

- Oui les propriétés restent stockées quand on quitte la base.
- Mais : si la base plante et qu'il faut réimporter les objets dans une nouvelle base (ça arrive...), quid des propriétés?

La table me semble plus sûre et je ne vois pas ce qui dérange de créer une table...
En plus pour la maintenance c'est plus simple : un champs valeur, un champ description ; il suffit d'un coup d'oeil sur la table, sinon il faut rechercher la propriété c'est plus compliqué.
Et quand on sait comment est gérer la documentation des applis en règle générale il vaut mieux à mon goût quelque chose qu'on retrouve facilement dans une table...

[kekesilo]

Merci bcp pour les réponses......

Je vois bien que ma première idée est la bonne : utilisation de la table et surtout c'est la plus simple.....

si quelqu'un a une idée encore plus simple je suis preneur......
merci d'avance