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

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.

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() .

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

Réponse 21 / 23
Le Pingou Messages postés 12276 Date d'inscription Statut Contributeur Dernière intervention 1 478

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
0
Réponse 22 / 23
Le Pingou Messages postés 12276 Date d'inscription Statut Contributeur Dernière intervention 1 478

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
0
Réponse 23 / 23
Le Pingou Messages postés 12276 Date d'inscription Statut Contributeur Dernière intervention 1 478

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() .
-1

Champs date - access - open office - Page 2

Discussions similaires

Newsletters