Problème run time error '3001' sur un Update

Version imprimable

Bonjour, je galère depuis un petit bout de temps sur quelques lignes de code sans trouver de réponse. Sur un UPDATE de ma base de données, je me retrouve avec "run time error '3001': Les arguments sont de type incorrect, en dehors de limites autorisées ou en conflit les uns avec les autres."

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 If modif = True Then 'création de la requète pour mise à jour de la base de données machine Set rst = New ADODB.Recordset stSQL = "UPDATE BaseDMO SET [NoteInter]=" & "'" & Text1.Text & "'" & "" _ & " WHERE [NumClient]= " & "'" & NumClient & "'" & "AND [DateInter]= " & "'" & Replace(Combo1.Text, "'", "''") & "'" Debug.Print stSQL 'exécution de la requète rst.Open stSQL, Cnx modif = False CommandButton3.BackColor = &HFFFFFF CommandButton3.Caption = "Modifier" Label3.Caption = Text1.Text Text1.Visible = False End If
J'ai donc une table BaseDMO avec les champs NoteInter, NumClient et DateInter et l'exécution s'arrête toujours sur la ligne rst.Open stSQL, Cnx
et lorsque je regarde en mode Debug, les variables sont bien lu, les champs sont bon...

Merci d'avance pour votre aide.
Guillaume

18/02/2015, 14h25
pc75

Bonjour,

Les champs de ta table sont d quel type ?
18/02/2015, 15h28
petit rabot

Citation:

Envoyé par pc75

Les champs de ta table sont d quel type ?

NoteInter est de type Mémo, et tous les autres sont de type Texte.
18/02/2015, 15h33
pc75
Et que donne le résultat de :
Code:

1 2 Debug.Print stSQL
18/02/2015, 15h58
petit rabot
Code:

1 2 Debug.Print stSQL
Résultat: "UPDATE BaseDMO SET [NoteInter]='Je viens de faire une intervention chez ce client.' WHERE [NumClient]= 'fef153'AND [DateInter]= '17/02/2015'"
18/02/2015, 16h19
pc75

Dans le where, il te manque un espace avant le "AND [DateInter]= '17/02/2015'"
Le champ "DateInter" est de quel type ?
C'est une base Acess ?
18/02/2015, 16h23
petit rabot

Citation:

Envoyé par pc75

Dans le where, il te manque un espace avant le "AND [DateInter]= '17/02/2015'"
Le champ "DateInter" est de quel type ?
C'est une base Acess ?

Je viens de réessayer avec un espace avant le "AND [DateInter]= '17/02/2015'" , j'ai vérifier en debug, et il y a bien un espace dans le résultat, mais j'ai toujours la même erreur.
C'est effectivement une base Access et le champ "DateInter" est de type Texte.
18/02/2015, 16h28
pc75

A quoi ressemble l'enregistrement dans ta base de données qui correspond à [NumClient]= 'fef153' AND [DateInter]= '17/02/2015' ?
18/02/2015, 16h37
petit rabot

1 pièce(s) jointe(s)

Pièce jointe 169376

Voici une partie de ma table, je ne sais pas si c'est ce que tu voulais exactement.
En fait, j'arrive bien à enregistrer ce que je veux dans chaque champs de ma table, mais lorsque je veux faire une modification avec un Update, c'est à ce moment que j'ai le message d'erreur. J'ai même essayé de ne rien mettre, de mettre juste quelques lettres, mais toujours pareil.

Alors là !!!

Si tu fais ça, ça passe ?

Code:

1
2
 
select BaseDMO.* from BaseDMO where [NumClient]= 'fef153' AND [DateInter]= '17/02/2015'

18/02/2015, 16h53
petit rabot
Code:

1 2 select BaseDMO.* from BaseDMO where [NumClient]= 'fef153' AND [DateInter]= '17/02/2015'
Si j'écris cette ligne, j'ai une erreur "Compil error: expected: case", de plus, tu n'as pas mis le champs NoteInter
18/02/2015, 16h59
pc75

J'ai une réunion dans 2mn. On pourra reprendre demain si tu n'as pas résolu le problème.

ps : Tu exécutes le "select" sous access ou depuis VB ?
18/02/2015, 17h03
petit rabot

Citation:

Envoyé par pc75

J'ai une réunion dans 2mn. On pourra reprendre demain si tu n'as pas résolu le problème.

ps : Tu exécutes le "select" sous access ou depuis VB ?

Ok, pas de problème, je dois partir moi aussi. Tout le code s'exécute depuis VB6, access ne me sert que de base de données.
Bonne soirée et à demain.
Merci encore pour ton aide.
18/02/2015, 17h08
ProgElecT
Salut

De tête il me semble que
Code:

1 2 Set rst = Cnx.Execute(stSQL , , adCmdText) rst.Close

Suite à la réponse de ProgElect, voici un bout de code qui fonctionne :mouarf1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    'création de la connexion
        Set Cnx = New ADODB.Connection
    'définition de la chaine de connextion
        Cnx.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\DMObd.mdb;" & "Jet OLEDB:Database Password=" & MDP & ";"
    'ouvre la base de données
        Cnx.Open
 
    If modif = True Then
        'création de la requète pour mise à jour de la base de données machine
        Set rst = New ADODB.Recordset
            stSQL = "UPDATE BaseDMO SET [NoteInter]=" & "'" & Text1.Text & "'" & "" _
                & " WHERE [NumClient]= " & "'" & NumClient & "'" & " AND [DateInter]= " & "'" & Replace(Combo1.Text, "'", "''") & "'"
        Debug.Print stSQL
        'exécution de la requète
        Set rst = Cnx.Execute(stSQL, , adCmdText)
        modif = False
        CommandButton3.BackColor = &HFFFFFF
        CommandButton3.Caption = "Modifier"
        Label3.Caption = Text1.Text
        Text1.Visible = False
    End If

Merci à pc75 et ProgElect