OVH Cloud OVH Cloud

Fonction de access97?

4 réponses
Avatar
Seb
Salut,
Je d=E9sire changer une fonction "wlib_getfilename" de=20
access 2.0 qui n'as peut'=EAtre pas le m=EAme nom et en tout=20
cas qui ne marche pas sous access97.Pouvait vous m'aider=20
en me disant a koi elle pourrait correspondre?
Merci

4 réponses

Avatar
Jeff
Bonjour

Pourrais-tu donner un exemple d'utilisation de cette fonction ?
(ce devrait être une fonction contenue dans un complément...)

Cordialement

Jeff

Seb avait soumis l'idée :
Salut,
Je désire changer une fonction "wlib_getfilename" de
access 2.0 qui n'as peut'être pas le même nom et en tout
cas qui ne marche pas sous access97.Pouvait vous m'aider
en me disant a koi elle pourrait correspondre?
Merci


--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Avatar
Gaël Schmitt [MS]
Maintenant il faut que tu utilise Fileopen depuis Comdlg32

Gael.
"Seb" a écrit dans le message de
news:8ab401c3ea2d$f6bdaf00$
Salut,
Je désire changer une fonction "wlib_getfilename" de
access 2.0 qui n'as peut'être pas le même nom et en tout
cas qui ne marche pas sous access97.Pouvait vous m'aider
en me disant a koi elle pourrait correspondre?
Merci
Avatar
Seb
Salut,
Merci de m'avoir répondu, désolé c'est du code et c'est
un peu long ,sachant que les erreurs de compilation
viennent de l'appel de wlib_GetFileNameInfo et elle se
présente sous la forme:

Private Function GetMDBName() As String
' Renvoie le chemin MAE.MDB choisi par l'utilisateur
dans la boîte
' de dialogue Ouvrir fichier. (Cette fonction
travaille en combinaison avec
' GetMDBName2 et StringFromsz pour afficher une
boîte de dialogue
' Ouvrir fichier qui demande à l'utilisateur
l'emplacement de MAE.MDB.
' Il utilise du code de WZLIB.MDA.)

Const OFN_SHAREAWARE = &H4000
Const OFN_PATHMUSTEXIST = &H800
Const OFN_HIDEREADONLY = &H4

Dim ofn As WLIB_GETFILENAMEINFO

' Remplit la structure ofn passée à wlib_GetFileName
ofn.hwndOwner = 0
ofn.szFilter = "Base de données (*.mdb)|*.mdb|Tous
les fichiers(*.*)|*.*||"
ofn.nFilterIndex = 1
ofn.szTITLE = "Indiquez le chemin où se trouve
MAE.MDB"
ofn.Flags = OFN_SHAREAWARE Or OFN_PATHMUSTEXIST Or
OFN_HIDEREADONLY
ofn.szDefExt = "mdb"

' Appelle la fonction wlib_GetFileName et interprète
les résultats.
If (GetMDBName2(ofn, True) = False) Then
GetMDBName = StringFromSz(ofn.szFile)
Else
GetMDBName = ""
End If

End Function

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


-----Message d'origine-----
Bonjour

Pourrais-tu donner un exemple d'utilisation de cette
fonction ?

(ce devrait être une fonction contenue dans un
complément...)


Cordialement

Jeff

Seb avait soumis l'idée :
Salut,
Je désire changer une fonction "wlib_getfilename" de
access 2.0 qui n'as peut'être pas le même nom et en
tout


cas qui ne marche pas sous access97.Pouvait vous
m'aider


en me disant a koi elle pourrait correspondre?
Merci


--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

.




Avatar
Jeff
Bonjour

A tout hasard, jette un coup d'oeil sur
http://www.mentalis.org/apilist/GetOpenFileName.shtml

Cordialement

Jeff

Seb a couché sur son écran :
Salut,
Merci de m'avoir répondu, désolé c'est du code et c'est
un peu long ,sachant que les erreurs de compilation
viennent de l'appel de wlib_GetFileNameInfo et elle se
présente sous la forme:

Private Function GetMDBName() As String
' Renvoie le chemin MAE.MDB choisi par l'utilisateur
dans la boîte
' de dialogue Ouvrir fichier. (Cette fonction
travaille en combinaison avec
' GetMDBName2 et StringFromsz pour afficher une
boîte de dialogue
' Ouvrir fichier qui demande à l'utilisateur
l'emplacement de MAE.MDB.
' Il utilise du code de WZLIB.MDA.)

Const OFN_SHAREAWARE = &H4000
Const OFN_PATHMUSTEXIST = &H800
Const OFN_HIDEREADONLY = &H4

Dim ofn As WLIB_GETFILENAMEINFO

' Remplit la structure ofn passée à wlib_GetFileName
ofn.hwndOwner = 0
ofn.szFilter = "Base de données (*.mdb)|*.mdb|Tous
les fichiers(*.*)|*.*||"
ofn.nFilterIndex = 1
ofn.szTITLE = "Indiquez le chemin où se trouve
MAE.MDB"
ofn.Flags = OFN_SHAREAWARE Or OFN_PATHMUSTEXIST Or
OFN_HIDEREADONLY
ofn.szDefExt = "mdb"

' Appelle la fonction wlib_GetFileName et interprète
les résultats.
If (GetMDBName2(ofn, True) = False) Then
GetMDBName = StringFromSz(ofn.szFile)
Else
GetMDBName = ""
End If

End Function

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


-----Message d'origine-----
Bonjour

Pourrais-tu donner un exemple d'utilisation de cette fonction ?
(ce devrait être une fonction contenue dans un complément...)

Cordialement

Jeff

Seb avait soumis l'idée :
Salut,
Je désire changer une fonction "wlib_getfilename" de
access 2.0 qui n'as peut'être pas le même nom et en tout
cas qui ne marche pas sous access97.Pouvait vous m'aider
en me disant a koi elle pourrait correspondre?
Merci


--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

.



--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com