Bonjour à tous,
Ca fait plusieurs heures que je suis coincée sur un bout de code et ça commence à me rendre chèvre.
J'ai une base de donnée qui exploite des extractions d'une autre base envoyées régulièrement par un partenaire. Celui-ci s'est un peu planter dans la structure d'une de ses tables et je dois convertir un champ identifiant du format numérique à textuel.
Tout a l'air de bien s'exécuter. Je n'ai aucun message d'erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim DistantDB As DAO.Database Dim StrSceExtractionMNHN As String 'l'adresse de l'extraction reçue Dim strSQL As String MsgBox StrSceExtractionMNHN '==> ok, l'adresse est bonne Set DistantDB = DBEngine.OpenDatabase(StrSceExtractionMNHN) DistantDB.Execute "Alter Table [Ref_ESPECE_SYNTHESE] Alter Column [CD_NOM] TEXT(25)" ' On libère les objets DistantDB.Close Set DistantDB = Nothing MsgBox "structure modifiée"
Mais quand je réouvre ma base StrSceExtractionMNHN et la table Ref_Espece_synthese, aucune modification de type n'a été réalisée sur le champ CD_NOM.
J'ai essayé avec et sans les crochets, avec et sans le ";" en fin d'instruction...
J'ai beau chercher depuis plusieurs heures, je ne trouve pas. Encore, j'aurai un message d'erreur ou d'alerte, je ne dis pas mais là, je n'ai aucun indice sur ce qui ne fonctionne pas...
Et forcément, c'est pile au niveau du rendu que le client m'annonce qu'il n'a pas access et qu'il faut que j'automatise la reconnection!
Partager