Discussion :

[jessy212]

j'ai tapé lecode suivant sur vba

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
Dim datext As String
Dim dat As Date
Dim sql As String
Dim code As String
Dim sticod As Long

code = Nz(DLookup("[sticodevam]", "valeurs", "[mnemo] Like '" & Me.OpenArgs & "'"), "")
sticod = CLng(code)

datext = Me.Texte1
dat = CDate(datext)

sql = "select cloture from hist_cours where code=" & sticod & _
 " and seance = " & dat & " ;"
 
MsgBox "Le cours de la valeur " & Me.OpenArgs & " au " _
& Me.Texte1 & " est : " & sql & ""

lsque j'exécute vb m'affiche pour sql l'instruction que j'ai tapé en total cad qu'il n'est pas en train de l'éxécuter
ya t-il qcq'un qui pourrait m'aider à détecter ma faute (syntaxe je croix)
merci

[philben]

Bonjour,

je pense que le format de Dat n'est pas bon.
Ecrire :

Code :

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

..." and seance = #" & Format(dat,"m-d-yy") & "#;"

Philippe

[jessy212]

j'ai essayé ta proposition Philippe mais ca marche pas

[jessy212]

j'ai essayé encore cette instruction au lieu de select mais ca marche pas
[CODE]sql = Nz(DLookup("[cloture]", "hist_cours", "

Code :

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

 Like " & sticod & " and [seance]like #" & dat & "#"), "")

[jessy212]

erreur de frappe , c'est plutot:
[CODE]

sql = Nz(DLookup("[cloture]", "hist_cours", "

Code :

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

 Like " & sticod & " and [seance]like #" & dat & "#"), "")

[philben]

re bonjour,

pouvez-vous me donner la valeur de sql avec debug.print ?

Philippe

[jessy212]

merci bien philippe j'ai résolu le problème
a+