Discussion :

[Farbin]

Bonjours,

Je souhaite copié la valeur d'un champ d'une table A vers une table B avec cette instruction :

Code :

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

1
2
3
4
5
6
7
8
9
strSQL = "INSERT INTO  Table2  ( ChampTable2 ) & vbCrLf
strSQL = strSQL & "SELECT Table1.ChampTable1" & vbCrLf
strSQL = strSQL & "FROM Table1" & vbCrLf
strSQL = strSQL & "WHERE (((Table1.Champ1)=" & MaVariable & "));"
 
cnn.Execute strSQL
cnn.Close
 
DoCmd.OpenForm "Form_Basé_Sur_Table2"

Et ce dans le but d'ouvrir un formulaire basé sur la table2.
Or, l'exécution se déroule bien (les enregistrements sont bien copiés de la table1 vers la table2) mais à l'ouverture du formulaire, j'ai l'erreur :"Impossible d'atteindre l'enregistrement spécifié".
Est ce que quelqu'un peut me dire ce qui ne va pas. Merci d'avance

[fdraven]

Table1.champ1 est de quel type ?

[Farbin]

La table et le champ sont de type string, mais comme les enregistrements sont biens copiés vers la table2, je pense que le problème ne vient pas de là (enfin, merci de m'aider quand même)

[fdraven]

Il te manque les ' ' pour indiquer lors de ta requête que Mavariable est de type string essayes ça :

Code :

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

1
2
3
4
5
6
7
 
strSQL = "INSERT INTO  Table2  ( ChampTable2 ) & vbCrLf 
strSQL = strSQL & "SELECT Table1.ChampTable1" & vbCrLf 
strSQL = strSQL & "FROM Table1" & vbCrLf 
strSQL = strSQL & "WHERE (((Table1.Champ1)= ' " & MaVariable & " '));" 
 
cnn.Execute strSQL

[Farbin]

Oui, effectivement, mais ce n'est pas ca car encore une fois, lorsque je lance le code, l'instruction SQL est bien réalisée puisque les enregistrements sont biencopiés de la table A vers la table B, l'erreur se produit à l'ouverture du formulaire.

Merci de ton aide

[fdraven]

Tu as un code sur l'événement load ou open de "Form_Basé_Sur_Table2" ? Sur quoi est basé ce formulaire ?

[Farbin]

Je n'ai rien de particulier au chargement du formulaire. Celui-ci est basé sur les enregistrements de la table2, donc il ne devrait pas y avoir de problèmes d'ouverture s'il y a des données dans la table2.

[Farbin]

Je viens d'essayer la même chose avec la méthode ADO :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rst As New ADODB.Recordset
Dim Enregistrement As Variant
 
rst.Open "Table2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTable
 
For Each Enregistrement In Form1.Liste.ItemsSelected
        rst.AddNew
        rst!CHamp2= Form1.Liste.ItemData(Enregistrement)
        rst.Update
Next IDSaisonnier
 
rst.Close
 
DoCmd.OpenForm "Form2_Basé_Sur_Table2"

Ce code devrait faire la même chose que le précedent, mais lui parvient à ouvrir le formulaire sans erreur. Je ne comprend pas quel est le problème avec le code SQL

[Tofalu]

C'était déjà de l'ado ...

et si tu ouvre ton formulaire sans passer par ton code ?

[Farbin]

Il s'ouvre bien, en utilisant les enregistrements de la table2 (s'il y en a)

[Tofalu]

WHERE (((Table1.Champ1)= ' " & MaVariable & " '));"


Y a quand même des espaces en trop de chauqe coté des '


Essaye de debuguer et de vérifier le contenu de tes variables, ça évitera ce genre de problème !

[Farbin]

C'est excat, mais, ce que je ne comprend pas, c'est le code s'exécute correctement, cest à dire que les enregistrements de la table1 sont bien copiés dans la table2, mais c'est seullement à l'ouverture du form que l'erreur se produit

[random]

maform.requery ?

[Farbin]

Ca ne marche pas mieux.
J'ai ajouté

Code :

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

DoCmd.OpenTable "Table2"

juste avant d'ouvrir le form et effectivement, il n'y a aucun enregistrements (donc c'est normal que le form ne puisse pas atteindre d'enregistrement) alors que si j'ouvre la table manuellement, les enregistrements sont bien là.

[Tofalu]

Et en utilisant DAO plutot ?

Code :

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

Currentdb.Execute strSQL

[Farbin]

Effectivement, maintenant ca marche.
Si quelqu'un peut m'expliquer pourquoi ca ne marchait pas avant, et merci de vous être penché sur mon pauvre cas.