[AC-2007] Comment ajouter des enregistrements complets [Résolu]

[JPJOLY]

Bonjour,

Je veux sélectionner des enregistrements d'une table par une request et ajouter simplement ces enregistrements dans une table dont la structure est exactement au format de l'enregistrement à ajouter.
Comme il y a beaucoup de champs je souhaiterai trouver une solution simple.
Merci

[Philippe JOCHMANS]

Bonjour

Pour récupérer tous les champs d'une table on une utiliser *

ex :

Code sql :

SELECT * FROM MaTable

Va afficher tous les champs de la table MaTable.

Philippe

[JPJOLY]

Bonjour,

J'ai crée une requête ajout et je l'ai définie en lode SQL avec le code suivant:

Code :

1
2
3
4
INSERT INTO T_DEVSAISIE_AOL 
SELECT *
FROM T_DEVSAISIE_A
WHERE (((T_DEVSAISIE_A.NUMD)=[forms]![bilan]![numd]));

Objectif: copier dand T_DEVSAISIE_AOL tous les enregistrements de T_devsaisie_a pour lesquels NUMD = numd du fromulaire forms!bilan

Je suis débutant en SQL et visiblement ma requête doit être fausse car à l'éxécution un panneau s'affiche systématiquement me demandant de :
SELECTIONNER LA SOURCE DE DONNEES
puis après je reçois le message:
Impossible d'utiliser ODBC pour importer , exporter vers....une table de base de données externe Microsoft Office Access à votre base de données.

Effectivement T_DEVSAISIE_AOL et T_DEVSAISIE_A sont des tables LIEES à ma db.
Y a t'il une solution ?
Merci par avance.

[f-leb]

bonsoir,

Envoyé par JPJOLY

...et visiblement ma requête doit être fausse car à l'éxécution un panneau s'affiche systématiquement me demandant de :
SELECTIONNER LA SOURCE DE DONNEES

Je pense que tu as confondu "SQL Direct" et "mode SQL".

[JPJOLY]

Voici la solution apportée à mon pb et qui marche.
La table T_DEVSAISIE_A est liée à ma database.
La table T_DEVSAISIE_AOL est directement adressée sur la database ORDOBASE_OL.
Merci à tout ceux qui ont aidé à mettre sur la voie un petit débutant.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function coptoa()
Dim MonSQL As String
Dim MonSQLD As String
 
MonSQLD = " DELETE T_DEVSAISIE_AOL.* FROM T_DEVSAISIE_AOL IN 'V:\ORDOBASE_OL.accdb' "
MonSQLD = MonSQLD & "WHERE T_DEVSAISIE_AOL.NUMD=[forms]![bilan]![numd];"
 
MonSQL = "INSERT INTO T_DEVSAISIE_AOL IN 'V:\ORDOBASE_OL.accdb' SELECT * FROM T_DEVSAISIE_A"
MonSQL = MonSQL & " WHERE T_DEVSAISIE_A.NUMD = forms![bilan]![numd]"
DoCmd.SetWarnings False
DoCmd.RunSQL MonSQLD
DoCmd.RunSQL MonSQL
DoCmd.SetWarnings True
 
End Function