Discussion :

[moilou2]

Bonjour à tous, j'ai un soucis avec un formulaire qui me sert à faire des réclamations.

Ce fofumaire contient plusieurs champs, et au moment de l'insertion dans la table réclamation, je lui demande aussi de mettre la date du jour dans un champs de la table.

Jusqu'ici pour d'autres formulaire, cela avait fonctionné, mais la le fomat ne met pas la date d'aujourd'hui, il me met quelque chose du genre

00:02:23

Pourtant mon champ "DateReclamation" dans ma table est bien définit comme "Date/heure", et voici le code de mon bouton valider de mon formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CmdValider_click()
 
Dim Reclamation As String
Dim Identité As Integer, Ligne As Integer, Machine As Integer, ID_Réclamation As Integer
Dim DateReclamation As Date
Dim oRst As DAO.Recordset
Dim odb As DAO.Database
 
If IsNull(Me.ListeIdentité) Or IsNull(Me.cmbLigne) Or IsNull(Me.cmbMachine) Or IsNull(Me.txtRéclamation) Then
    MsgBox ("Merci de remplir tous les champs")
    Exit Sub
End If
 
Identité = Me.ListeIdentité
Ligne = Me.cmbLigne
Machine = cmbMachine
Reclamation = txtRéclamation
DateReclamation = Date
 
Reclamation = Replace(Reclamation, "'", "''")
 
Set odb = CurrentDb
 
sql = "SELECT ID_Réclamation FROM tbl_Réclamation where ID_Réclamation =(SELECT MAX(ID_Réclamation) FROM tbl_Réclamation)"
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
ID_Réclamation = oRst.Fields("ID_Réclamation").Value + 1
 
sql = "INSERT into tbl_Réclamation values (" & ID_Réclamation & "," & DateReclamation & "," & Identité & "," & Ligne & "," & Machine & ",'" & Reclamation & "')"
odb.Execute (sql)
oRst.Close
odb.Close
Set oRst = Nothing
Set odb = Nothing
 
 
message = MsgBox("Votre réclamation : " & Reclamation & " a été correctement enregistrée", vbInformation, "Ajout")
DoCmd.Close
 
End Sub

J'ai bien définit ma date également en temps que Date.

je ne comprend pas se qui peut se passer. Si quelqu'un peut m'aider?

Merci

[anouar_chaieb]

Faire le masque de saisie

[Gabout]

Bonjour,

Essaie de déclarer

Code :

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

Dim DateReclamation As Variant

A+

[Invité]

Bonjour

Lorsque tu mets

00:02:23

est-ce que c'est l'affichage dans ta table ou ton formulaire ?

Plusieurs pistes à suivre.

• Dans la table : contrôler le format en plus du type de données.
• Dans Windows : contrôler dans les options régionales du panneau de configuration windwos quel est le paramétrage pour les formats de date (contrôle que ce n'est pas : au lieu de /).

Starec

[moilou2]

Re, c'est dans la table que l'affichage est comme sa, paske si tu veux dans le formulaire la date n'apparâit pas, parce que c'est au momment de la requete INSERT, que je dit que ce champ de la table sera égale à la date système.

Code :

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

Dim DateReclamation As Date

Code :

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

sql = "INSERT into tbl_Réclamation values (" & ID_Réclamation & "," & DateReclamation & "" & DateReclamation & "," & Identité & "," & Ligne & "," & Machine & ",'" & Reclamation & "')"

[moilou2]

Et au fait sa ne change rien de le déclarer en variant!