Champs date - access - open office

Question

Bonjour, 

Je travaille actuellement sous access de Open Office et j ai un petit probleme. J'ai un champs date dans une de mes tables et je voudrais que lors d une saisie dans un formulaire ce champs date prenne la valeur de la date systeme. Idem pour l heure.
Pourriez vous m aider.
Merci d avance

Le Pingou · Accepted Answer

Bonsoir Raf,
Afin de résoudre votre problème, insérer la date du jour par défaut, il faut ouvrir le formulaire en mode "Modifier"  et ensuite vous ouvrez les propriétées du champs "Date" puis sur l'onglet Evénement" et vous renseigner La propriétée "Réception de focus" en lui assignant la macro InsertDate.
Au cas ou elle n'est pas présente en voici une copie que vous devez enregistrer sous "OpenOffice.org Basic" qui se trouve sous : Outils - Macros - Gérer les macros -et clic sur  OpenOffice.org Basic. Et là sous le nom de votre formulaire (qui doit être présent) clic sur le + puis + Standart et clic module1  ....le module s'ouvre et vous enregistez la macro ci dessous.
Sub InsertDate
    oDesktop = createUnoService("com.sun.star.frame.Desktop")
    oController = oDesktop.CurrentFrame.Controller
    oSelection = oController.Selection

    ' fixer la valeur de la date
    oDocument = oController.Model
    oFunction = CreateUnoService("com.sun.star.sheet.FunctionAccess")
    oFunction.NullDate = oDocument.NullDate
    dim aEmpty()
    oSelection.Value = oFunction.callFunction("TODAY", aEmpty())

    ' fixer le format de la date
    oFormats = oDocument.NumberFormats
    dim aLocale as new com.sun.star.lang.Locale
    oSelection.NumberFormat = oFormats.getStandardFormat(_
                    com.sun.star.util.NumberFormat.DATE, aLocale)
End Sub

Bon travail.

Le Pingou · Answer

Bonsoir,
Votre formulaire en mode création et ouvrir les propriétés de la zone de texte. 
Chercher la propriété Valeur par défaut et la renseigner avec =Date() .

chaum2 · Answer

J'ai exactement le même soucis,
je souhaite que le champ prenne la date du jour automatiquement mais qu'elle soit enregistrée comme date fixe,
si j'ouvre un registre créé hier, cest la date d'hier qui doit apparaître et non celle du système qui sera celle d'aujourd'hui,
A L'AIIIIDE!!!!! lol:
merci

chaum2 · Answer

j'ai oublié ceci:
windows vista
openoffice 2.2.1
merci

Le Pingou · Answer

Bonjour chaum2,
Faire comme décrit au poste 1. 
En effet la valeur par défaut sera utilisé uniquement s'il n'y a pas de date pour le champ concerné. Donc une date enregistrée ne sera pas modifier par la valeur par défaut.
Vous êtes bien sur Access..... à vous entendre parlet de : j'ouvre un registre créé hier 
c'est étrange.

kelex · Answer

bonjour,
j'ai presque la même question, sauf que je voudrais que mon champ (DateEntree) prenne la valeur de date et heure du systeme (fonction Now () si j'ai tout compris) lorsqu'on appuie sur un bouton du formulaire, et non pas quand on l'ouvre.

Le Pingou · Answer

Bonjour kelex,
Que voulez-vous dire par (lorsqu'on appuie sur un bouton du formulaire) ?
Merci.

kelex · Answer

Je veux dire que je souhaite créer un bouton sur mon formulaire, qui permette à un opérateur d'enregistrer la date et heure du système au moment où il clique dessus, dans un champ défini.

Merci

Le Pingou · Answer

Bonjour kelex,
Je vous propose ceci : 
Sur votre formulaire vous créez un bouton de commande (expl : cmdDateHeureENG).
Créer une [Procédure événementielle] dans ses propriétés sous Evénement « sur Clic » et vous complétez la fonction de code.
Elle doit être comme suit :

Private Sub cmdDateHeureENG_Click()
Texte9 = Now()
End Sub

Texte9 = le nom du champ défini.

Bonne fin de journée.

kelex · Answer

Merci ça marche ! J'ai un autre problème. Voilà le code que j'écris : Private Sub Vérif_tps_Click() Dim result As Date If [DateEntree] = Null Or [DateSortie] = Null Then MsgBox ("Veuillez entrer une date valide SVP") End If If [DateEntree] <> Null And [DateSortie] <> Null Then result = DateDiff ("h", [DateEntree], [DateSortie]) If result < 24 Then MsgBox ("il n'y a eu que" & result & " heures d'écoulées") Else MsgBox ("Tout est ok") End If End If End Sub Avec ce code quand je clique sur le bouton, rien ne se passe !! mon probleme est que si je veux faire un DateDiff entre DateEntree et DateSortie sans faire le If pour savoir s'ils différents de Null,au moment de cliquer sur le bouton j'ai un message d'erreur "utilisation incorrecte de Null" et ca m'envoie sur le débogueur en me mettant la ligne : result = DateDiff ("h", [DateEntree], [DateSortie]) en jaune. donc je voulais faire ce If pour que le calcul DateDiff ne puisse se faire que si DateEntree et DateSortie ne soient pas vides. et dans le cas où ils seraient vide, afficher le message d'erreur : "Veuillez entrer une date valide SVP" mais il ne s'affiche pas, même lorsque les deux champs sont vides (donc égaux à Null). je ne comprends pas pourquoi... et enfin dernier probleme, en supposant que je ne fasse pas mes If pour vérifier si les DateEntree et Sortie sont Null (car apparemment ce sont ces If qui posent probleme). le message "il n'y a eu que X heures d'écoulées". si je met "result" dans ma formule, dans mon message ca m'affiche une date du genre 08/01/1900 (mais ce n'est jamais la meme en fonction que DateEntree et Sortie changent), alors que si je met directement la formule DateDiff (donc sans passer par le tampon "result"), ca me l'affiche bien avec la valeur numérique en heures, comme je le souhaite. Auriez vous une solution SVP car là je ne comprends pas d'où vient le probleme. Merci bcp Alexandre

Le Pingou · Answer

Bonjour kelex,
Vous est-il possible de mettre une copie de votre base de données sur www.cjoint.com ?
Dans ce cas je serai sur la même base que vous et se sera plus simple de vous comprendre et vous aider.
A vous de voir.
J'attends votre réponse pour poursuivre.

Le Pingou · Answer

Bonsoir kelex, Voici votre code à bien plaire, selon se que j'ai compris de vos explications ! Private Sub Verif_tps_Click() Dim result '---> pas de précision nécessaire If IsNull(DateEntree) Or IsNull(DateSortie) Then '---->modifier Null en isNull MsgBox ("Veuillez entrer une date valide SVP") End ' interrompre immédiatement la procédure, il manque une date..... End If ' Le If / End If --- n'est pas nécessaire les dates sont présentent selon teste précédent '----->If [DateEntree] <> Null And [DateSortie] <> Null Then result = DateDiff("h", DateSortie, DateEntree) If result < 24 Then MsgBox ("il n'y a eu que" & result & " heures d'écoulées") Else MsgBox ("Tout est ok") End If '------> End If End Sub Bonne soirée.

kelex · Answer

merci beaucoup pour le mal que vous vous donnez c'est très gentil !
effectivement c'était juste quelques erreurs de syntaxe.
j'ai fait du C donc j'ai codé ca de la meme facon.
mais en fait plutot que de mettre :
If nomvariable = Null
il fallait mettre
If IsNull (nomvariable) !
ca marche mieux comme ca :-)

merci encore

a bientot
Alexandre

Le Pingou · Answer

Merci kelex, de rien.

Raf · Answer

Bonjour,

Je m'immisce dans la conversation car j'ai le même besoin que Valérie (premier post) mais la solution proposée ne convient pas.

Mon formulaire en mode création, j'ouvre les propriétés de la zone de texte (en fait une zone de date et je crois que le problème est là ?) Il n'y a pas la propriété "Valeur par défaut" pour y renseigner =Date() ou =Now() mais un champ "date par défaut" qui n'accepte que le format date (autrement dit qqchose du genre JJ/MM/AA qui est bien différent de =Date())

Donc ma valeur par défaut n'est pas acceptée. Pareil si je vais directement dans la table pour y mettre cette valeur par défaut, elle n'est pas acceptée.

Quelqu'un a une idée ? 

Pour information supplémentaire, ce champ date doit enregistrer de manière automatique, la date de création ou de mise à jour de l'enregistrement.

Je suis sous OOo Base 2.3 sous windows xp

Laurent-47 · Answer

Bonsoir, dans la table ouverte en mose création, tu fait proprieté sur le champs "DATE"
et dans la case "valeur par défaut" tu écrit :
=Format(Date();"Date, abrégé")

Ensuite pour l'heure :tu fait proprieté sur le champs "HEURE"
et dans la case "valeur par défaut" tu écrit :
=Format(Temps();"Heure, abrégé")

Ainsi l'heure inscrite dans la table sera celle du moment de l'enregistrement du champ et ne sera pas actualisée.

Voilà si ça peut t'aider...
Bye

Raf · Answer

Bonjour,

Merci beaucoup à tous les 2 pour votre réponse... Oui le Pingou c'est bien en dessous (mais ce n'est pas onglet général mais "propriétés du champs") et hélas ça ne fonctionne pas. Je lui indique =Format(Date();"Date, abrégé") je ferme, j'enregistre et ce n'est pas pris en compte, quand je retourne dans ma table en mode création, la valeur par défaut est de nouveau vide... Idem dans le formulaire. Il refuse de prendre une formule... en tout cas dès que je mets un = ou qqchose qui n'est pas au format date il ne le prend pas en compte...

:( Pas d'autres idées ?

Merci en tout cas :)

Raf · Answer

Splendide formidable ça MARCHE (il n'y avait pas la macro en question !!!!!!)

Un ENORME merci 

:) :) :)

wiiking73 · Answer

Bonjour,

Je suis en train d'essayer de faire une base de maintenance préventive. il y a un moment ou l'opérateur doit, dans un formulaire, cliquer sur un bouton "FAIT" pour valider une tâche de maintenance. Je souhaiterai que lorsque l'opérateur clique sur ce bouton,la date du jour s'enregistre automatiquement dans une table ( T_Taches)qui a un champ prédéfini "Date dernière intervention". J'ai essayé la réponse deLe pingou donnée le 12 Fevrier 2008 mais rien ne se passe.

Je suis débutant en access je voudrais bien un ptit coup de main.

Merci

Le Pingou · Answer

Bonjour,
Juste au passage, c'est vieux tout cela, qu'avez-vous fait exactement et la version d'access?

Le Pingou · Answer

Bonjour wiiking73,
Merci pour les informations.
Quel liens avez-vous entre la table [T_Taches] et [T_historique] ?
Quel code est déclenché avec le bouton de commande [Fait] ?

Le Pingou · Answer

Bonjour wiiking73,
Merci pour l'information.
A se stade, essayer avec se code (ajout de "Me.")
Private Sub Réalisé_tache_Click() 
      Me. [ Date derniere intervention ] = Now() 
End Sub


Salutations.
Jean-Pierre

Le Pingou · Answer

Bonjour wiiking73,
Merci pour l'information.
A se stade, essayer avec se code (ajout de "Me.")
Private Sub Réalisé_tache_Click() 
      Me. [ Date derniere intervention ] = Now() 
End Sub


Salutations.
Jean-Pierre

Champs date - access - open office - Page 2

Discussions similaires

Newsletters