message d'erreur d'execution

Version imprimable

bonjour,

ci dessous ma fonction et

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function chargement_cours_j_moins1correlationindice(codeprodui) As Double
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
 
 
    cours = 0
 
 Set ptr = CreateObject("ADODB.Recordset")
 
 
    ptr.Open "SELECT _COURSCLOSE FROM omega.com.prixhist WHERE _ = '" & codeprodui & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
 
        cours = ptr("_COURSCLOSE")
        Exit Do
    Loop
    chargement_cours_j_moins1correlationindice = cours

je joints en pièce jointe le message d'erreur associé. je ne comprends pas ce message!!!:?

merci de votre aide

Oliver

22/06/2007, 11h13
Invité

Bonjour

Je pense qu'il n'aime pas le underscore devant le coursclose. Tout nom doit commencer par une lettre de l'alphabet.

Starec
22/06/2007, 11h26
oliver75

"_coursclose" est pourtant bien le nom de la colonne dans la table ou je veux recupérer mon information:roll:
22/06/2007, 11h30
illight

Non c'est incorrect, comme STarec, l'a dit le Underscore n'est pas une bonne idée pour un nom de colonne.
Si mes souvenirs sont bons (à confirmer) mais quand tu met un _ devant le nom d'une colonne, ça a une signification spécifique (je crois, et j'ai bien je crois, que c'est pour prendre des valeurs temporaires, un truc dans ce genre la, mais à confirmer), du coup si tu nomme une colonne comme ça, ça peut mettre le bazar :)
22/06/2007, 11h32
Invité

Re

Essaye de mettre les noms avec des Underscore entre crochets pour voir.

Code:

[_COURSCLOSE]

Starec
22/06/2007, 11h37
oliver75

Toujours KO:?
22/06/2007, 11h45
Invité

C'est quoi le _ avant le Where ?

Starec
22/06/2007, 14h11
oliver75

Je viens de virer le _ et la macro est toujours ko..........