Après avoir cherché sur le forum sans trouver de solution qui me satisfasse, j'ai abouti à un code qui répond à ce besoin sans passer par SQL.
J'ai cru comprendre à travers le forum que d'autres utilisateurs de BASE étaient intéressés. C'est pourquoi, vous trouverez ci-dessous un exemple de code pour initialiser un timestamp dans les enregistrements de tables de BASE.
.Je m'adresse à un de nos chers modérateurs afin qu'il le déplace éventuellement dans le suprême de code pour en faire profiter tout le monde.
Cordiales salutations.
Prérequis :
a) définir le champ "tampon" de la table en type de champ date/heure 'TIMESTAMP'
b) affecter un évènement qui déclenche la macro
Puis
1) depuis un formulaire
Code : Tout sélectionner
oForm = ThisComponent.Drawpage.Forms.getbyName( "Formulaire" )
oForm.updateString(oForm.findColumn( "tampon" ), SchTampon)2) depuis un rowset
Code : Tout sélectionner
With mrowset
.Columns.getByName( "tampon" ).updateString(SchTampon)
.updateRow 'transfère dans la table
End With
Function SchTampon As String
Schtampon = Mid(Now, 7, 4) & "-" & Mid(Now, 4, 2) & "-" & Left(Now, 2) & mid(Now, 11) & ".000000000" 'crée le timestamp
End Function