L'insertion actuelle DateTime en table d'Audit

Je suis dans le processus de mise en œuvre d'un journal d'audit pour enregistrer un bref description des changements apportés à la base de données. Mon audits de la table se compose d'un numéroauto PK, empID(nombre), la Description(memo), et auditDate(date/heure). Mon empID et la description sont insérées correctement, sans jeter des erreurs, mais ma date/heure n'est pas inséré. Je pense que ce peut ne pas être aussi simple que de mal placées entre guillemets. Mon code VBA est comme suit:

dans le afterInsert événement:

Dim strQuery As String
'Dim js As Integer
Dim currDateTime As Date
currDateTime = Now()


strQuery = "INSERT INTO Audits ([emp Number], Description, dateofAudit) VALUES (" & Me.empID & ", '" & "insertion" & "'," & currDateTime & " )"


CurrentDb.Execute (strQuery)

Comme je l'ai dit, je peux obtenir les trois premières valeurs in fine, mais quand je tente d'insérer la date en temps, je rencontre des problèmes. Toute entrée est appréciée. J'espère que ce n'est pas aussi simple que de mal placées entre guillemets, comme j'ai essayé sur 4 variations de guillemet placement avant de soumettre cette question:)

OriginalL'auteur Scotch | 2012-06-18

access-vba ms-access

6

Essayer de cette façon.
```
strQuery = "INSERT INTO Audits ([emp Number], [Description], dateofAudit)" & _
    vbCrLf & "VALUES (" & Me.empID & ", 'insertion', Now())"
```
Également vous donner la possibilité d'examiner le texte de la chaîne.
```
Debug.Print strQuery 
```
Avec cette approche, vous n'avez pas besoin de votre currDateTime variable. La valeur de Date/Heure sera établi lorsque le moteur db évalue la Now() fonction ... l'heure à laquelle le INSERT instruction est exécutée.

Si vous voulez le temps que par votre approche originale, format currDateTime et ajouter # délimiteurs.
```
strQuery = "INSERT INTO Audits ([emp Number], [Description], dateofAudit)" & _
    vbCrLf & "VALUES (" & Me.empID & ", 'insertion', " & _
    Format(currDateTime, "\#yyyy-mm-dd hh:nn:ss\#") & ")"
```
Fonctionne comme un charme, merci-- je vais accepter votre réponse. Sur une note de côté, j'ai remarqué que cette insertion n'est pas nocive jusqu'à ce que je fais autre chose sur le formulaire où ce code réside. Est-il une simple commande, je peux mettre une fois que la requête est exécutée pour aller de l'avant et de valider les données?
Qui, après insertion d'un événement? Je suppose que vous vouliez dire la forme après l'insertion d'un événement. Dans ce cas, la ligne doit avoir déjà été enregistré. Si vous êtes plutôt à l'aide après l'insertion d'une certaine forme de contrôle(s), passez à la forme après l'insertion d'un événement. Si ça sonne comme j'ai mal compris votre commentaire, s'il vous plaît essayer de nouveau. 🙂
Il semble être au travail maintenant, mais avant, j'ai eu quelques problèmes. Après une insertion sur mon formulaire, dans le afterInsert (), je voudrais exécuter ce SQL pour insérer dans les audits. Cependant, si j'ai tiré mon tableau sur les vérifications après l'insertion d'un employé à partir de mon formulaire, il n'y aurait pas encore un enregistrement de cette insertion. Je me demandais si il y aurait des problèmes avec l'utilisation simultanée, parce qu'il me semblait qu'il y avait une période de temps entre la FORME de l'insertion et de la AuditLog insertion dans le code VBA. \n de toute façon, il semble fonctionner correctement maintenant. Merci pour votre aide!
Merci, Now() permis de sauver ma journée. 🙂

OriginalL'auteur HansUp

essayer de format datetime comme ceci:

protected DateTime GetDateWithoutMilliseconds(DateTime d)
    {
        return new DateTime(d.Year, d.Month, d.Day, d.Hour, d.Minute, d.Second);
    }

OriginalL'auteur nazim hatipoglu

Vous devez vous connecter pour publier un commentaire.