Discussion :

[JeremieT]

Bonjour à tous...

Je me tourne vers vous pour une difficulté que je rencontre.
Via un code agrémenté de DAO (merci Tofalu ;-)), je souhaite mettre à jour des champs de tables de ma db. Pour ce faire j'ai donc crée une table avec [Table]-> Table qui va petre modifiée; [NCde]->Champ à modifier; [NLigCde]->Champ servant à la modif.
Le code est le suivant :

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
 '=====> FONCTION DE FUSION DU N° COMMANDE AVEC N° DE LIGNE (boucle sur tblFusionNCde pour définition des tables et champs) <=====
Private Function FusionCdeLigne()
Dim strTable As String
Dim strChampFirst As String
Dim strChampSecond As String
 
Set oRst = oDB.OpenRecordset("tblFusionNCde", dbOpenTable)
    With oRst
        While Not .EOF
        strTable = (oRst.Fields("Table").Value)
        strChampFirst = (oRst.Fields("NCde").Value)
        strChampSecond = (oRst.Fields("NLigCde").Value)
            oDB.Execute "UPDATE strTable SET strChampFirst = strChampFirst * 10000 + strChampSecond"
            .MoveNext
        Wend
    End With
    'Libération des objets
    oRst.Close
    Set oRst = Nothing
End Function

Les 3 variables sont bien reconnues (quand je passe dessus j'ai bien la valeur attendu entre "") mais le code plante sur la ligne avec la syntaxe SQL (Le moteur de base de données Microsoft Jet ne peut pas trouver la table ou la requête source strTable. Assurez-vous qu'elle existe et qu'elle est correctement orthographiée. (Erreur 3078).

Je sais pas si cela ne viendrait pas des "" car mes tables n'en ont pas ! Mais comment les enlever lors de l'affectation des variables...?

Merci à tous pour votre aide.
@+

[marot_r]

Non ton pb vient du fait que tes noms de variables sont DANS la chaine SQL et Access les considère comme du texte simple.

Je te suggère ceci

Code :

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

1
2
 
"UPDATE " & strTable  & " SET " & strChampFirst & " = " & strChampFirst & " * 10000 + " & strChampSecond

Accessoirement tu peux remplacer :

Code :

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

1
2
 
strTable = (oRst.Fields("Table").Value)

Code :

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

1
2
 
strTable = oRst![Table]

C'est seulement un peu plus compacte comme notation.

A+

A+

[JeremieT]

Merci Marot, je n'avais pas bien cerné la notion du & ;-)
Bien joué également pour le compactage :-p

@+

[JeremieT]

Bonjour à tous...

J'ai "cogiter" depuis et pouvez-vous m'expliquer la différence fondamentale entre ces 2 notations, laquelle préférer,...?
Je n'ai pas réussi à percevoir ce qu'il fallait que je perçoive

Merci
@+

[marot_r]

Personnellement je préfére la notation ! et c'est avce celle la que j'ai appris Access, mais si tu es un puriste de l'objet tu préférera la notation Fields("Table").Value qui montre clairement même si tu ne connais pas Access que tu va chercher la valeur de l'élément "Table" dans la collection des champs. Elle est aussi plus 'portable', par exemple c'est là même en ASP.

Evidement la seconde est la seule utilisable pour ittérer sur tous les champs par programme.

A+

[JeremieT]

merci marot ;-)

[Tofalu]

Euh, il n'y a pas vraiment besoin de recorset ici. De plus un UPDATE sans WHERE ça me parait un peu bizarre. Tu es sur qu'une requete UPDATE sans DAO n'aurait pas fait l'affaire ?