Discussion :

[nicolovitch]

bonjour a tous,

Voici un gros problème que je n'arrive pas à résoudre :

Je possède un bouton auquel j'ai assigné le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Private Sub Mise_à_jour_BD_Ineo_Click()
 
    TouchesEnvoi(0) = 3
    TouchesEnvoi(1) = "%o"
    TouchesEnvoi(2) = "n"
    TouchesEnvoi(3) = "s"
 
For i = 1 To TouchesEnvoi(0)
    SendKeys TouchesEnvoi(i), True  ' on simule l'appuie des touches
Next i
 
End Sub

Vous aurez compris que je simule l'appuie des touches sur le clavier, l'assistant se lance bien, mais le message d'erreur apparait :
"Access ne peut pas synchroniser car plusieurs objets sont ouverts", il me demande de fermer tous les objets, mais comment faire ??

Comment tout fermer, peut etre avec "Close" mais comment faire?????

Merci d'avance

[LedZeppII]

Bonjour,

un exemple pour fermer les tables, requêtes, formulaires, et états :

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
24
25
26
 
Dim obj As AccessObject
 
For Each obj In CurrentData.AllTables
   If obj.IsLoaded Then
      DoCmd.Close obj.Type, obj.Name, acSaveYes
   End If
Next
 
For Each obj In CurrentData.AllQueries
   If obj.IsLoaded Then
      DoCmd.Close obj.Type, obj.Name, acSaveYes
   End If
Next
 
For Each obj In CurrentProject.AllForms
   If obj.IsLoaded Then
      DoCmd.Close obj.Type, obj.Name, acSaveYes
   End If
Next
 
For Each obj In CurrentProject.AllReports
   If obj.IsLoaded Then
      DoCmd.Close obj.Type, obj.Name, acSaveYes
   End If
Next

A+