cs_Juliendu88
Messages postés39Date d'inscriptionlundi 19 avril 2004StatutMembreDernière intervention17 juin 2004
-
22 avril 2004 à 09:13
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012
-
22 avril 2004 à 11:37
Bonjour, j'ai un souci cette requete ne veut pas passer mais je ne vois pas ce qui cloche...;
SQL = "UPDATE Pointage SET matin_sortie='" & heure_courante & "' WHERE date_pointage='" & datejour & "' AND numèro_emp='" & Texte0 & "' "
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 22 avril 2004 à 10:40
Ca doit venit de ton format d'heure, il ne doit pas bien comprendre les ":". Ta variable heure_courante est de quel type ? Ton champ matin_sortie est de quel type ?
L'erreur que tu as signifie que le moteur SQL ne comprend ta requête.
Le numèro_emp est de quel type aussi ?
Quand je demùande de quel type (essayons d'être bien clair :o) ) je te demande la définition réelle de tes champs/variable.
cs_Juliendu88
Messages postés39Date d'inscriptionlundi 19 avril 2004StatutMembreDernière intervention17 juin 2004 22 avril 2004 à 11:10
La fonction format je l'utilise pour la date et ca fonctionne très bien...Je comprends pas là !!! Je te mets tout mon code si tu veux...peut etre que j'ai fais des erreurs autre part...
Dim datejour As Date
Dim heure_courante As Date
Dim Oconn As New ADODB.Connection
Dim Ocomm As New ADODB.Command
datejour = Date
heure_courante = Time
Dim adors As New ADODB.Recordset
Dim SQL As String
Oconn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=J:\COMMUN\Maria, Julien\POINTAGE - Formulaires.mdb"
Oconn.Open
Ocomm.ActiveConnection = Oconn SQL "SELECT * FROM Employés WHERE num_emp " & Texte0 & " ;"
Set adors = Oconn.Execute(SQL)
If adors.EOF Then
MsgBox "Ce numéro de pointage ne correspond à aucun employé ! Recommencez..."
Else SQL "SELECT matin_sortie FROM Pointage WHERE numéro_emp '" & Texte0 & "' AND date_pointage = #" & datejour & "# ;"
Set adors = Oconn.Execute(SQL)
If IsNull(adors.Fields(0)) Then SQL "UPDATE Pointage SET matin_sortie " & heure_courante & " WHERE date_pointage = " & datejour & " AND numéro_emp = '" & Texte0 & "' "
Set adors = Oconn.Execute(SQL)
MsgBox "Pointage effectué le " & datejour & " à " & heure_courante & vbCrLf & vbCrLf & " A Bientôt ! "
Else
MsgBox "Vous vous êtes déjà pointé !"
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 22 avril 2004 à 11:20
Oui, ça peut effectivement fonctionner avec la fonction Format. Mais c'est VB qui va faire la convertion de Strinf vers Date... à tes risques et périls. Je regarde ton code et je te fais signe.