Discussion :

[franckimmo]

Bonjour à tous,

Je cherche la solution qui me permettra après l'ajout des données de "TABLE3" dans une nouvelle table "TransfertdeCegecom", que j'ai supprimer avant cette procédure, de rafraîchir ma base de donnée afin de pouvoir ouvrir ma nouvelle table "TransfertdeCegecom" pour la visualiser sans devoir fermer la base de donnée et de devoir l'ouvrir.

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
Private Sub Bascule0_Click()
Dim MaBD As Database
Dim MonSQL As String
DoCmd.Requery
' detruit la table TransfertCegecom
DoCmd.DeleteObject acTable, "TransfertdeCegecom"
Set MaBD = CurrentDb()
'MonSQL = " SELECT ,champ4 as Num_Appel, [Duration HH:MM:SS] as Durée,[Amount   EUR] as MontantCegecom INTO "Transfert" FROM TABLE3;"
'MonSQL = MonSQL &
MaBD.Execute "SELECT TABLE3.* INTO " _
        & "[TransfertdeCegecom] FROM TABLE3;"
DoCmd.Requery
 
 
'MaBD.Execute MonSQL
MsgBox "La création de la nouvelle table s'est déroulée avec succès. " & MaBD.RecordsAffected & " enregistrements", vbInformation, "Opération réussie"

Actuellement la seule solution que j'ai trouvé est de fermer ma base de donnée pour pouvoir mettre à jour la céation de la nouvelle table. Bien sûr cette base de donnée je dois pour 'instant la réouvrir manuellement. ci-joint mon code pour fermer ma base qui se trouve dans le code ci-dessus après "DoCmd.Requery":

Code :

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

1
2
MaBD.Close
DoCmd.CloseDatabase

Une bonne journée à tous et à +
Franck

[loufab]

Bonjour,

C'est le problème des desctructions création.

Code :

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

currentdb.TableDefs.Refresh

Si cela ne suffit pas met un

Code :

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

Doevents

avant la commande précédente.


Cordialement,

[franckimmo]

Bonjour loufab,

Ta réponse fonctionne, merci à toi, je n'aurai pas trouvé tout seul.
Ci-joint le code pour tout ceux qui on le même problème que moi.
A vos ordis et bon travail.

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
Private Sub Bascule0_Click()
Dim MaBD As Database
Dim MonSQL As String
DoCmd.Requery
' detruit la table TransfertCegecom
DoCmd.DeleteObject acTable, "TransfertdeCegecom"
Set MaBD = CurrentDb()
'MonSQL = " SELECT ,champ4 as Num_Appel, [Duration HH:MM:SS] as Durée,[Amount   EUR] as MontantCegecom INTO "Transfert" FROM TABLE3;"
'MonSQL = MonSQL &
MaBD.Execute "SELECT TABLE3.* INTO " _
        & "[TransfertdeCegecom] FROM TABLE3;"
DoCmd.Requery
 
 
 
MsgBox "La création de la nouvelle table s'est déroulée avec succès. " & MaBD.RecordsAffected & " enregistrements", vbInformation, "Opération réussie"
 
' la syntaxe suivante rafrîchit la base de donnée
CurrentDb.TableDefs.Refresh
 
 
End Sub

Franck