Discussion :

[capitaine]

Bonjour,

j'ai une table A que j'aimerai insérer dans ma table B.
Je le fais par du code VBA.
Le problème c'est que les champs de ma table A ne correspondent pas toujours à ceux de la table B.
Dans ce cas là, j'aimerai que l'insert ne se réalise pas.
Quand on fait l insert, Access demande la valeur des champs qu'il ne connait pas en ouvrant une txtbox.
C'est très ennuyeux.
Je pourrais effectivement regarder 1 à 1 les différentes colonnes de ma table B et voir si il y ades correspondances avec celles de ma table A, et si pas de correspondance, alors on arrête tout.
Je pense qu'il doit y avoir une solution légèrement moins complexe à mettre en oeuvre, quelqu'un a-t-il une idée?

Merci, A+

[Tofalu]

INSERT ou UPDATE ?

Si les données existent déjà dans Table B alors c'est un update...

Mais j'ai pas vraiment compris la question

[capitaine]

Il s agit bien d'un INSERT
Bon je vais essayer d'etre plus clair.

Cas numéro 1:

Table A : Champ1, Champ2, Champ3
Table B : Champ1, Champ2

Dans ce cas là, mon

Code :

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

 INSERT INTO TableB (Champ1, Champ2) select Champ1, Champ2 from TableA

marche bien



Cas numéro 2:

Table A : Champ1, Champ9, Champ10
Table B: Champ1, Champ2

Dans ce cas, c'est foireux.
Pourquoi?
Comme le Champ2 n'est pas connu dans la TableA, Access m'ouvre une textebox me demandant de saisir la valeur de l expression Champ2.

J'aimerai en fin de compte vérifier que l'INSERT est possible, c'est à dire que mon SELECT trouve tous les champs demandés dans la Table A.

A+

[Tofalu]

Tente l'insert et gère l'erreur si ce n'est pas possible

En VBA :

On error goto err
CurrentDb.Execute("INSERT INTO TableB (Champ1, Champ2) select Champ1, Champ2 from TableA ")
msgbox "Insert OK"

Fin:
Exit Sub

Err:
Msgbox "Insert pas possible"
Resume Fin

[capitaine]

Je n'y pensais plus au CurrentDb.Execute !

Effectivement, c'est cela qu'il faut faire.

Merci
A+

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function ajoute(source As String, cible As String)
Dim mabase As DAO.Database
Dim u As DAO.Field
Dim sql As String
Dim champs As String
Set mabase = CurrentDb()
 
champs = ""
For Each u In mabase.TableDefs(source).Fields
On Error GoTo fin
mabase.TableDefs(cible).Fields(u.Name).OrdinalPosition = mabase.TableDefs(cible).Fields(u.Name).OrdinalPosition
champs = champs & u.Name & ", "
fin:
On Error GoTo 0
Next u
champs = Left(champs, Len(champs) - 2)
If champs <> "" Then
sql = "insert into " & cible & " (" & champs & " )  select " & champs & " from " & source & ";"
DoCmd.RunSQL sql
 
End If
End Function