Discussion :

[sendme]

Bonjour à tous,

J'ai crée un graphique croisé dynamique, il m'est impossible de l'imprimer car systématiquement apparait le message suivant :

"La table [nom de la table] est déjà ouverte en mode exclusif par un autre utilisateur, ou elle est deja ouverte par l'interface utilisateur et ne peut pas être manipulée par programmation"

Je désespère et pour l'instant pas de solution....

Help et merci d'avance.

[helas]

Bonjour,
Les requêtes croisées dynamiques posent problèmes pour l'affichage dans un formulaire, dans un état ou pour l'impression.
Dans ce cas créer une table qui sera acceptée dans tous les cas

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
 
Sub CreationTable(NomRequete As String, NomTable As String)
 Dim db As DAO.Database, ta As TableDef, q As QueryDef, f As Field
 Dim nb As Long, i As Long
 
 Set db = CurrentDb
 If ExisteTable(NomTable) Then DoCmd.DeleteObject acTable, NomTable
 Set q = db.QueryDefs(NomRequete)
 nb  = q.Fields.Count - 1
 Set ta = db.CreateTableDef(NomTable)
 
 For i = 0 To nb 
  ta.Fields.Append ta.CreateField(q.Fields(i).Name, dbText, 80)
 Next i
 db.TableDefs.Append ta
 DoCmd.RunSQL "INSERT INTO " & NomTable & " SELECT [" & NomRequete & "].* FROM [" & NomRequete & "];"
End Sub
 
Function ExisteTable(s As String) As Boolean
    On Error GoTo erreur
    ExisteTable = (CurrentDb.TableDefs(s).Name = s)
    Exit Function
erreur:
End Function

Dans cet exemple simple, tous les champs sont de type Texte
Dans la boucle For, il est possible de définir le type du champ si besoin

[sendme]

Merci je vais tester.

Cependant pour ma culture, quel est exactement le PB avec Access à ce niveau et en quoi consiste cette solution ?

Merci encore et je ne manquerai pas de faire part du résultat.

[sendme]

Etant assez novice, j'avoue avoir qq difficultés avec ce code.

1 - Comment le lancer > exemple concret si possible
2 - tu indiques :

Dans cet exemple simple, tous les champs sont de type Texte
Dans la boucle For, il est possible de définir le type du champ si besoin

Comment procéder quand la table sur laquelle se base le graph contient des champs numériques ET textes ?

Désolé pour ces questions qui coulent surement de source pour toi, mais j'ai besoin qu'on me guide un peu + ici

Merci d'avance