dante25
Messages postés12Date d'inscriptionjeudi 31 mai 2007StatutMembreDernière intervention26 juin 2007
-
21 juin 2007 à 15:46
dante25
Messages postés12Date d'inscriptionjeudi 31 mai 2007StatutMembreDernière intervention26 juin 2007
-
22 juin 2007 à 08:43
Bonjour a tous et a toutes
Je voudrais exporter des données d'une table dans une autre avec les memes champs.
Mon probleme est au niveau du recodset qui contient le resultat de la requete. Il me marque erreur 3061(trop peu de parametre: 1 attendu)
voici mon code
Private Sub PS()
Dim db As DAO.Database
Dim myrst As DAO.Recordset
Dim StrSql As String
'definis la BD étudiée, c'est celle qui est courante..
Set db = Application.CurrentDb
'nom des tables
maTable = "Fichier_Soignants"
monAutreTable = "Professionnel_Sante"
StrSql = "Select nom,prrenom from " & maTable & " ORDER BY nom " & ";"
'definis le recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(StrSql, dbOpenDynaset) // erreur ici
'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF
'recuperation des valeurs
SNom = myrst.Fields("nom").Value
sPrenom = myrst.Fields("Sprenom").Value
dante25
Messages postés12Date d'inscriptionjeudi 31 mai 2007StatutMembreDernière intervention26 juin 2007 22 juin 2007 à 08:43
C'est bon cela fonctionne
En plus de l'erreur d'orthographe j'avais des errreurs au niveau du nom de mes variable
voila le code qui fonctionne
Private Sub PS()
Dim db As DAO.Database
Dim myrst As DAO.Recordset
Dim StrSql As String
'definis la BD étudiée, c'est celle qui est courante..
Set db = Application.CurrentDb
'nom des tables
maTable = "Fichier_Soignants"
monAutreTable = "Professionnel_Sante"
StrSql = "Select nom,prenom from " & maTable & " ORDER BY nom " & ";"
'definis le recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(StrSql, dbOpenDynaset) 'erreur ici
'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF
'recuperation des valeurs
SNom = myrst.Fields("nom").Value
sPrenom = myrst.Fields("prenom").Value
Si ca continue a bugger, je pense que cela est du a la structure de la base. Il faut trouver la connection adaptée.
Aussi, pour info, je te mets en bleu un erreur possible et en violet ce qui est inutile.
StrSql = "Select nom,prrenom from " & maTable & " ORDER BY nom" & ";"
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 20072 22 juin 2007 à 00:17
Bonsoir,
l' erreur concerne StrSql
le champ prenom est mel orthogphié
StrSql = "Select nom, Sprenom from " & maTable & " ORDER BY nom "
au lieu de
StrSql = "Select nom, prrenom from " & maTable & " ORDER BY nom "
<hr />® l l i n g , l' agité du bocal :
...quote, double quote, crochets ou parenthèses ?
Ah si je pouvais rester dans mes charentaises !