Code vb
Résolu
deadman
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Code vb
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
7 réponses
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 ...
essayes de voir si ta reauete est corecte: tu l afiche dans la fenetre de debug, et tu la rentres dans ta console SQL ...
bonjour,
ça doit le faire avec ça :
:o)
polux
ç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
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! ;-)
La valeur retournée, de quel type est-elle? Numérique, texte, autre...
Répond à ces questions et la solution arrivera! ;-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
alors la syntaxe de la requête est celle là :
strSQL = " Select * from PDA where N_PDA = ' " & Me!Liste8.Text & " ' "
;o)
strSQL = " Select * from PDA where N_PDA = ' " & Me!Liste8.Text & " ' "
;o)
re,
Merci de m'aider, mais j'ai encore un problème J'ai repris ton code mais il me met encore un message d'erreur : "Impossible de faire réference à une propriété ou de la définir pour un controle si ce dernier n'est pas activé" et quand je met débogage, il m'indique que le problème vient de la commande strSQL = " Select * from PDA where N_PDA = ' " & Me!Liste8.Text & " ' "
As tu une idée de la solution?Merci
Merci de m'aider, mais j'ai encore un problème J'ai repris ton code mais il me met encore un message d'erreur : "Impossible de faire réference à une propriété ou de la définir pour un controle si ce dernier n'est pas activé" et quand je met débogage, il m'indique que le problème vient de la commande strSQL = " Select * from PDA where N_PDA = ' " & Me!Liste8.Text & " ' "
As tu une idée de la solution?Merci
