code vb Résolu/Fermé

Question

Bonjour,

J'ai écris ce code sous access pour modifier un formulaire, mais quand j'execute le formulaire il me dis Top peui de paramétre. 1 attendu, ceci concerne la ligne souligné: je ne comprend pas ce qui est faux alors SVP aidez moi en m'expliquant Merci

Dim db As Database
Dim rs As Recordset
Dim strSQL As String

Set db = CurrentDb
strSQL = " Select * from PDA where N_PDA = " & Me!Liste8 & " "
Set rs = db.OpenRecordset(strSQL)
If rs.EOF = False Then rs.MoveFirst
Do While rs.EOF = False
rs.Edit
rs!Matricule = Me!Matricule
rs.Update
rs.MoveNext
Loop
rs.Close
End Sub

nabla · Answer

heu.. ca fait longteæps que j ai pas fais de vb, mais t es sur que ca existe le !   ???

essayes de voir si ta reauete est corecte: tu l afiche dans la fenetre de debug, et tu la rentres dans ta console SQL ...

deadman · Answer

re,

le requete est bonne le probléme ne vient pad de la

Polux31 · Answer

bonjour,

ça doit le faire avec ça :
Dim db As Database 
Dim rs As Recordset 
Dim strSQL As String 

Set db = CurrentDb 
strSQL = " Select * from PDA where N_PDA = " & Me!Liste8 'si Me!Liste8 est numérique sinon mettre N_PDA = ' " & Me!Liste8 & " ' "
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst 
While Not rs.EOF 
rs.Edit 
rs!Matricule = Me!Matricule 
rs.Update 
rs.MoveNext 
Wend
rs.Close 
db.Close

:o)
polux

bnb · Answer

Liste8 ??? C'quoi comme control? une listebox? une textbox?
La valeur retournée, de quel type est-elle? Numérique, texte, autre...

Répond à ces questions et la solution arrivera! ;-)

Polux31 · Answer

alors la syntaxe de la requête est celle là :

strSQL = " Select * from PDA where N_PDA = ' " & Me!Liste8.Text & " ' "

;o)

Polux31 · Answer

va voir ici, tu dois avoir la réponse:
https://support.microsoft.com/fr-fr/help/466677 

;o)

Polux31 · Answer

de rien,

n'oublie pas de mettre le post en résolu si tu as réglé ton blème.

;o)

polux

Code vb

7 réponses

Discussions similaires