Erreur 3144 UPDATE VBA

Résolu

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 12 oct. 2018 à 07:51

Bonjour à tous,

J'ai une erreur de syntaxe sur le code suivant:

Dim date_tmp As Date
date_tmp = DateSerial(ANNEE_SELECT, MOIS_SELECT.Column(0), JOUR)
Dim n As Integer
Dim HSUP As Single
Dim HDEP As Single

HSUP = TOTAL_HSUP
HDEP = TOTAL_HDEP

For i = 1 To 15
    date_tmp = date_tmp + 1
    If Not IsNull(DLookup("[N°]", "REPARTITION_TPS_REELLE", "[ID_SALARIE]= ID_SALARIE.value and [DATE_JOUR] = #" & Format(date_tmp, "mm/dd/yyyy") & "#")) Then
        n = DLookup("[N°]", "REPARTITION_TPS_REELLE", "[ID_SALARIE]= ID_SALARIE.value and [DATE_JOUR] =#" & Format(date_tmp, "mm/dd/yyyy") & "#")
        
        Dim db As Database
        Set db = CurrentDb()
        Dim sql As String
        
        If Not IsNull(DLookup("[HSUP]", "RECUPERATIONS", "[N°JOUR] =" & n)) Then
            HSUP = HSUP + DLookup("[HSUP]", "RECUPERATIONS", "[N°JOUR] =" & n)
            sql = "UPDATE RECUPERATIONS SET TOTAL_HSUP = " & HSUP & " WHERE N°JOUR = " & n
            db.Execute (sql)
        End If
End if
Next

Je ne suis pas une experte en sql. J'ai cherché sur plusieurs forums, j'ai affiché mon sql et je n'ai pas l'impression que c'est faux :/
Je vous remercie d'avance pour votre aide.

A voir également:

Erreur 3144 UPDATE VBA
Windows update bloqué - Guide
Winget update - Guide
Asus live update - Télécharger - Utilitaires
Wsus offline update - Télécharger - Systèmes d'exploitation
Nettoyage windows update - Guide

5 réponses

Réponse 1 / 5

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Manque un point virgule après le n ";"

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61

Bonjour,

En effet j'ai déjà essayé avec et sans mais toujours la même erreur:

sql = "UPDATE RECUPERATIONS SET TOTAL_HSUP = " & HSUP & " WHERE N°JOUR = " & n & " ;"
            db.Execute (sql)

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Sauf erreur de ma part, les variables doivent etre entre apostrophe
sql = "UPDATE RECUPERATIONS SET TOTAL_HSUP = "" & HSUP & "' WHERE N°JOUR = '" & n & "';"

Réponse 2 / 5

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61

re,
je passe à une erreur 3464 type de données incompatible dans l'expression du critère. Mes variables sont des décimales.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Le champ que vous voulez mettre a jour est de quel format: entier, decimal ???

Réponse 3 / 5

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61

format décimal

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Pour HSUP oui, mais pas n!!
Le separateur de decimale est-il ok??

Apres verif, il ne faut pas d'apostrophes pour les variables numeriques!!!!!!!!!!!!!!!!!

Réponse 4 / 5

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61

Qu'entendez vous par séparateur de décimal?

--

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

le separarteur de decimale peut-etre soit une virgule soit un point. Pour votre Access quel est le separateur de decimale ??

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61

Bonjour, il s'agit d'une virgule.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Ok, il me faudrait quand meme votre fichier car pas possible de voir ce qui cloche!!

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61

Bonjour,
Il faut que je supprime une partie de mes données qui sont confidentielles avant de vous la transmettre (d'ailleurs comment fait-on?).
Je viens de trouver le problème mais je n'ai pas encore la solution... Quand HSUP n'a pas de chiffre après la virgule je n'ai pas de message d'erreur par contre dès qu'il y a un chiffre ça plante... Pourtant je viens à nouveau de vérifier et TOTAL_HSUP est bien un décimal!

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61 > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

J'ai résolu mon problème c'est bien une histoire de virgule dans mon sql il faut que ce soit un point et non une virgule. Voici mon code:


        If Not IsNull(DLookup("[HSUP]", "RECUPERATIONS", "[N°JOUR] =" & n)) Then
            hs = hs + DLookup("[HSUP]", "RECUPERATIONS", "[N°JOUR] =" & n)
            DoCmd.RunSQL ("update RECUPERATIONS set TOTAL_HSUP =" & Str(hs) & " Where N°JOUR=" & n & ";")
        End If

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

lulu16100 Messages postés 95 Date d'inscription Statut Membre Dernière intervention 61

une virgule

--

Discussions similaires

Erreur 3005 sur France TV

hp bios update bloqué

Code erreur 3000

Erreur d'exécution 13 Incompatibilité de type

Problème streaming France 2

Votre réponse

Discussions similaires