Discussion :

[mpascolo]

Salut a tous,

J'ai développé il y a qques temps un logiciel assez complet (enfin, je pense) sur MS Access 97.

Aujourd'hui, nous passons à Access 2000. Plusieurs choses ne fonctionnent plus du tout.
Par exemple, dans les états, beaucoup de zone de textes ne sont plus renseignés (je les renseignais directement dans le code avant ...). il y a des "#Nom?" à la place ou des "#Erreur?"

Exemple de code qui ne fonctionne plus :

Code :

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

1
2
salutations = "Restant à votre disposition pour tous compléments 
d'informations,je vous prie de croire, " & Me.NomTitre & ", à l'assurance de mes salutations les meilleures."

(Salutations est une zone de texte oû j'avais mis "Source Contrôle : [Salutations") => Ca fonctionnait sur Access 97 ...

Idem pour les extractions Excel qui ne fonctionnent plus du tout ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "LISTE_PORTEUR"

'Suppression des feuilles inutiles
xlApp.DisplayAlerts = False 'Pour annuler les messages de confirmation
xlBook.Worksheets("Feuil1").Delete
xlBook.Worksheets("Feuil2").Delete   ==== ERREUR a cet endroit : "L'indice n'appartient pas a la selection" 
xlBook.Worksheets("Feuil3").Delete
xlApp.DisplayAlerts = True

C vraiment dommage que la migration entre 2 versions d'access nécessite un re-programmation partielle d'un logiciel crée auparavant, non ?

Est ce que qq'un a déja eu le droit à ça ?

Merci d'avance les amis !!!

[Muhad'hib]

Salut,

Pour ce qui est du problème concernant Excel, c'est juste que avec Excel 2000 et +, quand tu créé un nouveau classeur, tu n'as qu'une seule feuille => il n'y a pas de "feuil2" et de "Feuil3" à supprimer ...

Si tu fais un code plus souple, tu auras moins de pb de ce genre.
Exemple de ce qui aurait évité ce pb :

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
 
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "LISTE_PORTEUR"
 
'Suppression des feuilles inutiles
xlApp.DisplayAlerts = False 'Pour annuler les messages de confirmation
For I = 1 To xlBook.Worksheets.Count
     If xlBook.Worksheets(I).Name <> "LISTE_PORTEUR" Then
          xlBook.Worksheets(I).Delete
     End If
Next
xlApp.DisplayAlerts = True

A+

[m-mas]

personellement j'ai aussi migré une application "assez complète" comme tu le dis en utilisant l'assistant de migration et cela m'a pris 30 minutes pour règler les petits problèmes ! l'appli marche bien depuis !

pour ta zone de texte par exemple, je te propose d'ajouter la propriété "text"
(Salutations.text = "...") bref de voir ce genre de chose et de voir les messages d'erreurs !
les ajustements ne devrait pas être trop dur à faire je pense !

[mpascolo]

OK ...

Je vais travailler là dessus ...

MErci a VoUs !!!