Discussion :

[Dilse]

Bonjour à Vous,

Au démarrage de ma base de données, je souhaiterais entrer une valeur par défaut au champ "Date" de ma table "NOTES" de manière à ne pas avoir à la saisir à chaque fois dans mes formulaires et cela pendant le temps d'ouverture de ma base.

Auriez-vous une idée du code que je pourrais utiliser car je bidouille depuis des heures sans trouver :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Function ValeurDate()
 
Dim Valdate As Date
Dim fldDate As DAO.Field
 
Valdate = InputBox("Saisir une date de notation par défaut", "DEFINITION DE DATE")
Set fldDate = CurrentDb.TableDefs("NOTATIONS")("DateNotation").Properties("DefaultValue").Value = Valdate
 
End Function

Merci de votre aide

[Jean-Philippe André]

Salut,
Ah quand tu nous tiens
http://access.developpez.com/faq/?pa...ValDefautChamp

[Dilse]

Merci beaucoup de cette réponse rapide, j'ai vu ce code, ai fait des essais mais cela ne fonctionnait pas peut-être pourriez-vous m'aider ? quelque chose cloche mais ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Public Function ValeurDate()
 
Dim fldDate As DAO.Field
Set fldDate = CurrentDb.TableDefs!NOTATIONS.Fields("DateNote")
fldDate.DefaultValue = InputBox("Saisir une date par défaut pour les notations", "IMPORTANT !")
Set fldDate = Nothing
 
 
End Function

[azertix]

Bonjour.
Quelle erreur as-tu ?

[Dilse]

Bonjour et merci beaucoup,

L'erreur affichée est la suivante : "Erreur d'exécution '3420' : L'objet est incorrect ou n'est plus défini" et renvoie ensuite à cette ligne de code :

Code :

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

1
2
 
fldDate.DefaultValue = InputBox("Saisir une date de notation par défaut", "IMPORTANT !")

[Jean-Philippe André]

salut,
fais attention, dans le cas des dates, il y a toujours ces erreurs liées au format que tu passes.
-#MM/dd/yyyy# ?

[Dilse]

oui c'est tout à fait ce genre de format, type : 20/06/2008. Mais à quel endroit du code dois-je insérer ce formatage de données ?

[Jean-Philippe André]

il me semble que tu dois pouvoir faire une concaténation de ce style :

Code :

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

fldDate.DefaultValue = "#" & Format(InputBox("Saisir une date de notation par défaut", "IMPORTANT !"),"MM/dd/yyyy") & "#"

edit : autre astuce à étudier dans le cas plus global : passer par Cdbl()
http://access.developpez.com/faq/?page=dates#datedouble

[Dilse]

Cela ne fonctionne toujours pas...

[Jean-Philippe André]

Allez, je m'obstine en utilisant en plus un Cdate

Code :

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

1
2
3
4
5
dim tempo as Variant
tempo = InputBox("Saisir une date de notation par défaut", "IMPORTANT !")
If IsDate(tempo) then
fldDate.DefaultValue = "#" & Format(tempo,"MM/dd/yyyy") & "#"
End If

[Dilse]

Arghhhh ! Ne fonctionne pas ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Public Function ValeurDate()
 
Dim tempo As Variant
Dim fldDate As DAO.Field
 
tempo = InputBox("Saisir une date de notation par défaut", "IMPORTANT !")
Set fldDate = CurrentDb.TableDefs!EVALUATIONS.Fields("DateEval")
If IsDate(tempo) Then
fldDate.DefaultValue = "#" & Format(tempo, "MM/dd/yyyy") & "#"
End If
 
End Function

[Jean-Philippe André]

et en giclant les # ?

[Dilse]

J'essaie encore...toujours rien... même sans les "#"

[Jean-Philippe André]

et avec :

Code :

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

fldDate.DefaultValue = Format(Cdate(tempo), "MM/dd/yyyy")

[Invité]

Bonjour

Si tu veux que la date du jour soit la valeur par défaut, pourquoi ne saisis-tu pas tout simplement

Code :

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

=Date()

dans la propriété Valeur par défaut de ton champ.

Starec

[Dilse]

JPCHEK

Fonctionne toujours pas ! Je m'acharne, je continue de chercher... (A la Willie Dixon : N-N-N-N-Nervous... )

STAREC

Salut à Toi Ami Sauveteur ! Ce n'est pas la date du jour dont j'ai besoin mais vraiment d'une date précisée par l'utilisateur.

Peut-être existe-t-il une autre astuce...

[alaingui]

voila un bout de code qui doit fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Dim tempo As Date
Dim db As Database
 
    tempo = InputBox("Saisir une date de notation par défaut", "IMPORTANT !")
    Set db = CurrentDb
    db.TableDefs("EVALUATIONS").Fields("DateEval").Properties("DefaultValue") = Format(tempo, "dd/mm/yyyy")
    Set db = Nothing

[Dilse]

Merci beaucoup de votre réponse ALAINGUI, j'ai tenté et toujours rien...

"Erreur d'exécution '3422' : "Un autre utilisateur a ouvert la table. Impossible d'en changer la structure "

[alaingui]

étrange car mon bout de code marche en local
voir fichier joint

il y a peut etre des déactivation de droits au démarrage de la base et donc la base passe en mode admin ?

[Dilse]

C'est sempiternellement la même erreur qui apparaît, Alaingui, que dois-je faire pour le mode ?

D'avance merci de votre aide