OVH Cloud OVH Cloud

Probleme d'attachement de table dans access

1 réponse
Avatar
Seb
Bonjour,
Je suis en pleine conversion d'access2 vers access97, et=20
j'ai un probleme avec le type apparement non d=E9fini "=20
wlib_GetFileNameInfo " dans la function GetMDBName2=20
suivante :

Private Function GetMDBName2(gfni As=20
wlib_GetFileNameInfo, ByVal fOpen As Integer) As Long
' Cette fonction chapeaute MSAU_GetFileName dans=20
MSAU200.DLL.
' wlib_GetFileName compl=E8te chaque cha=EEnes de la=20
structure gfni avec des nulls et ensuite appelle la=20
version DLL de la fonction. Au retour de MSAU200.DLL.
' les caract=E8res null sont retir=E9s des cha=EEnes de gfni.

Dim lRet As Long

gfni.szFilter =3D RTrim$(gfni.szFilter) & Chr$(0)
gfni.szCustomFilter =3D RTrim$(gfni.szCustomFilter) &=20
Chr$(0)
gfni.szFile =3D RTrim$(gfni.szFile) & Chr$(0)
gfni.szFileTitle =3D RTrim$(gfni.szFileTitle) & Chr$(0)
gfni.szInitialDir =3D RTrim$(gfni.szInitialDir) & Chr$(0)
gfni.szTITLE =3D RTrim$(gfni.szTITLE) & Chr$(0)
gfni.szDefExt =3D RTrim$(gfni.szDefExt) & Chr$(0)

lRet =3D wlib_MSAU_GetFileName(gfni, fOpen)

gfni.szFilter =3D StringFromSz(gfni.szFilter)
gfni.szCustomFilter =3D StringFromSz(gfni.szCustomFilter)
gfni.szFile =3D StringFromSz(gfni.szFile)
gfni.szFileTitle =3D StringFromSz(gfni.szFileTitle)
gfni.szInitialDir =3D StringFromSz(gfni.szInitialDir)
gfni.szTITLE =3D StringFromSz(gfni.szTITLE)
gfni.szDefExt =3D StringFromSz(gfni.szDefExt)

GetMDBName2 =3D lRet


End Function

Est ce que quelqu'un peut m'aider? Parce que la je bloque=20
depuis un ptit moment deja...
Merci d'avance.

1 réponse

Avatar
Pierre CFI [mvp]
bonjour
mon avis tu vas au devant d'ennui si tu utilises des dll ou réfs anciennes
refait ton code, tu as plein d'exemples dans les liens du site
Site pour bien commencer
http://users.skynet.be/mpfa/

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Seb" a écrit dans le message de news: 555101c40057$bc14c8d0$
Bonjour,
Je suis en pleine conversion d'access2 vers access97, et
j'ai un probleme avec le type apparement non défini "
wlib_GetFileNameInfo " dans la function GetMDBName2
suivante :

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

Est ce que quelqu'un peut m'aider? Parce que la je bloque
depuis un ptit moment deja...
Merci d'avance.