Bonjour,
j'ai développé une application Access sous Access 2003 enregistrée au format compatible 2000.
Lorsque l'appli est lancée sur un PC équipé de Access 2000, plusieurs fonctions VBA sont inconnues. J'ai pu corrigé facilement certaines erreurs mais par contre toute une partie basée sur owc10 avec utilisation des Pivotcharts ne fonctionne pas.
J'ai bien ajouté une référence sur owc10.
D'après mes recherches sur le web, les modes Tableau croisé dynamique et Graphique croisé dynamique pour les formulaires ne sont apparus qu'à partir de Access XP.
OWC10 est-il utilisable sous Access 2000 et si oui, comment? si non, n'y a-t-il pas un moyen de générer en VB des tableaux croisés sous access 2k.
Bref, quelle solution utilisée pour générer automatiquement des tableaux croisés dynamique sous Access 2000?
Voici une partie de mon code:
Dim frm As Access.Form
Dim pTable As OWC10.PivotTable
Dim pFieldset As OWC10.PivotFieldSet
Dim pField As OWC10.PivotField
Dim pTotal As OWC10.PivotTotal
Dim strExpression As String
Dim sSQL As String
Dim sTemp As String
sSQL = ""
Dim rs_tables As New ADODB.Recordset
' modif: acFormPivotTable non déclaré. Ajout de :
Const acFormPivotTable As Integer = 3
'Ouvre le formulaire dans la vue PivotTable
'inconnu avec Access 2000 (mode feuille de données)
DoCmd.OpenForm "f_stats", acFormPivotTable
Set frm = Forms("f_stats")
Set pTable = frm.PivotTable
Dim sDesc As String
Dim sFunction As Integer
Set pFieldset = pTable.ActiveView.FieldSets("Zone")
pTable.ActiveView.ColumnAxis.InsertFieldSet pFieldset
Set pFieldset = pTable.ActiveView.FieldSets("CategorieNom")
pTable.ActiveView.RowAxis.InsertFieldSet pFieldset
pTable.ActiveView.RowAxis.FieldSets("CategorieNom").Caption = "Catégorie"
sChamp = "ID"
sFunction = plFunctionCount
sDesc = "Nombre"
Set pFieldset = pTable.ActiveView.FieldSets(sChamp)
Set pField = pFieldset.Fields(0)
Set pTotal = pTable.ActiveView.AddTotal(sDesc, pField, sFunction)
pTable.ActiveView.DataAxis.InsertTotal pTotal
Merci.
Partager