Discussion :

[stressy]

Voici ma situation: lorsque l'on double clic sur un champs de type date cette fonction est réalisée :

Code :

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

1
2
3
4
5
6
Function Fct_FS_Date()
Dim Z_Date As Date
Z_Date = Screen.ActiveForm.ActiveControl
DoCmd.OpenForm "FS_Date"
Screen.ActiveForm!FC_Date = Z_Date
End Function

Elle a pour but de récuperer la date du champs et d'ouvrir un form qui contient une sorte de calendrier ou l'on peut changer la date de façon plus intéractif.
Pour l'instant tout va bien...
le problème est que si on double sur un champs date et qu'il n'y a pas de valeur il y a erreur..
Quelqu'un pourrait m'aider à résoudre se probleme..
merci
stressy

[Orakle]

Tout dépend de ce que tu souhaites faire lorsque la valeur est nulle, sinon mets une condition et fais lui retourner une msgbox.

Que souhaites tu faire lorsqu'il n'y a pas de date ?

[Dolphy35]

Salut

Pour contrôler ton champs utilise ce code

Code :

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

1
2
3
4
5
 if IsNull(Z_Date ) then
'commande si null
else
'commande si non null
end if

@+

[stressy]

Si la date est nulle, je voudrais que le form s'ouvre avec une date par défaut...
Merci pour votre aide...
stressy

[Dolphy35]

Reprend le code ci dessus et charge la date du jour ou autre si valeur nulle puis exécute ton code d'origine.

@+

[stressy]

La solution ne marche pas car j'ai pas le temps d'arriver a la condition..
J'ai une erreur des que je recupere la variable date du champs.
Voici la ligne donné par le debogeur:

Code :

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

Z_Date = Screen.ActiveForm.ActiveControl

Il est dit que la valeur nulle n'est pas gérer

si kelkun a une idée???

merci[/code]

[Celia1303]

tu peux essayer de changer la valeur par defaut de ton champs.

tu ouvres la table en mode création,
tu te positionne sur ton champ date
et tu modifie la propriété valeur par défault (tu mets 01/01/2005 par exemple)

[Lou Pitchoun]

Salut
Et si tu faisais un truc du genre

Code :

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

Z_Date = Forms!NomFormulaire!NomChampDate