VBA Access format date
Giant
-
Roots69 -
Roots69 -
Bonjour
je crée un formulaire access où je mets comme format "short date". Je voudrais compter le nombre de date dans une table inférieur à celle entrée dans le formulaire. Le champ date de ma table est lui aussi en "short date".
Je passe donc par un code VBA :
Private Sub cmdOK_Click()
Dim sql As String
Dim db As DAO.Database
Dim req As DAO.Recordset
Set db = CurrentDb()
sql = "select count(etude.code_projet) as total"
sql = sql + " FROM etude"
sql = sql + " WHERE etude.end_date < " + Me.Text0 + ";"
Set req = db.OpenRecordset(sql)
Me.Text6 = req.Fields("total").Value
End Sub
Mon problème est que la comparaison ne se fait pas car apparement il y a un probleme de format entre mes deux dates.
Quelqu'un saurait-il comment je peux faire pour résoudre ce problème ?
Merci
je crée un formulaire access où je mets comme format "short date". Je voudrais compter le nombre de date dans une table inférieur à celle entrée dans le formulaire. Le champ date de ma table est lui aussi en "short date".
Je passe donc par un code VBA :
Private Sub cmdOK_Click()
Dim sql As String
Dim db As DAO.Database
Dim req As DAO.Recordset
Set db = CurrentDb()
sql = "select count(etude.code_projet) as total"
sql = sql + " FROM etude"
sql = sql + " WHERE etude.end_date < " + Me.Text0 + ";"
Set req = db.OpenRecordset(sql)
Me.Text6 = req.Fields("total").Value
End Sub
Mon problème est que la comparaison ne se fait pas car apparement il y a un probleme de format entre mes deux dates.
Quelqu'un saurait-il comment je peux faire pour résoudre ce problème ?
Merci
A voir également:
- VBA Access format date
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Format doc - Guide