Discussion :

[Gatsu_67]

Bonjour a tous je suis nouveau sur le forum, et j'ai une question a vous poser car je ne sais pas comment résoudre mon probleme.

Je vous explique mon cas, je viens d'arriver dans une entreprise et mon patron m'a demander de migrer des bases de données faites sur access 2.0 vers access 2000 pour commencer.

Il m'a donc fait une copie d'une base de donnée dans ma partie du disque sur le réseau, pour faire des test et que je puisse m'habituer a access car je ne l'ai jamais manipuler ^^. Je suis donc actuellement sur access 2000 avec visual basic 6.3 et voila mon vrai probleme, j'ai réussi a convertir la base de donnée avec access 2000 mais des que j'ouvre ma base de donnée j'ai un premier message d'erreure qui s'affiche:

Une erreure est survenue lors de la compilation de cette fonction.

Le module Visual Basic comporte une erreure de syntaxe.

Vérifiez le code puis recompilez-le.


Puis une petite fenetre s'ouvre dans laquelle est ecrit ce qui suit:

l'action a échoué

Nom de la macro: AutoExec

Condition: Vrai

Nom de l'action: ExécuterCode

Arguments: tablesattachées()

Donc voila mon premier problème. Le second se passe quand j'ouvre un module en mode création et que je demande a Visual Basic 6.3 de compiler ma base de donnée, voila ce qui s'affiche:

Erreur de compilation :

Type défini par l’utilisateur non défini


Private Function GetMDBName2(gfni As wlib_GetFileNameInfo, ByVal fOpen As Integer) As Long
' Cette fonction chapeaute MSAU_GetFileName dans MSAU200.DLL.
' wlib_GetFileName complète chaque chaînes de la structure gfni avec des nulls
' et ensuite appelle la version DLL de la fonction. Au retour de MSAU200.DLL.
' les caractères null sont retirés des chaînes de gfni.

Dim lRet As Long

gfni.szFilter = RTrim$(gfni.szFilter) & Chr$(0)
gfni.szCustomFilter = RTrim$(gfni.szCustomFilter) & Chr$(0)
gfni.szFile = RTrim$(gfni.szFile) & Chr$(0)
gfni.szFileTitle = RTrim$(gfni.szFileTitle) & Chr$(0)
gfni.szInitialDir = RTrim$(gfni.szInitialDir) & Chr$(0)
gfni.szTitle = RTrim$(gfni.szTitle) & Chr$(0)
gfni.szDefExt = RTrim$(gfni.szDefExt) & Chr$(0)

lRet = wlib_MSAU_GetFileName(gfni, fOpen)

gfni.szFilter = StringFromSz(gfni.szFilter)
gfni.szCustomFilter = StringFromSz(gfni.szCustomFilter)
gfni.szFile = StringFromSz(gfni.szFile)
gfni.szFileTitle = StringFromSz(gfni.szFileTitle)
gfni.szInitialDir = StringFromSz(gfni.szInitialDir)
gfni.szTitle = StringFromSz(gfni.szTitle)
gfni.szDefExt = StringFromSz(gfni.szDefExt)

GetMDBName2 = lRet


End Function

Et il me met en surbrillance la première ligne de ma fonction, donc si vous pouviez m'aider ça serais vraiment génial (je tiens juste a préciser que dans la version 2.0 la version non convertie de la base de donnée fonctionne tres bien) merci d'avance parce que la je ne sais vraiment plus quoi faire.

[CarSoftAja]

Salut,

Le problème provient du fait que cette fonction, dont le but est d'afficher la boîte de dialogue pour parcourir les fichiers afin de retrouver la base où se trouve les tables attachées de ton application principale, fait appel à des fichiers spécifiques à Access 2.0 ("wzlib.mda" et "msau200.dll"). Il faudrait donc ré-écrire cette fonction, en s'inspirant par exemple de:
Rétablir les liaisons des tables liées après déplacement d'une base fractionnée

[Gatsu_67]

Merci beaucoup pour ton aide je vais essayer de resoudre ça de cette façon et vous tinendrez au courant, étant débutant j'éspère que je ne vais pas me planté ^^.

[Gatsu_67]

Je suis ,désolé mais je suis vraiment un newbie sur access donc meme avec ton lien je ne vois pas vraiment comment modifier ma fonction, donc si quelqu'un peut prendre un peut de son temps pour me montrer comment modifier la fonction ça serais génial.