Impossible d'exécuter un code dans acces

Le
jc
Bonjour,

j'ai le code suivant me permettant d'ouvrir un fichier dans access :


Option Compare Database

Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Function GetDirectory(Optional Msg) As String

Dim bInfo As BROWSEINFO
Dim path As String
Dim R As Long, X As Long, Pos As Integer

bInfo.pidlRoot = 0

If IsMissing(Msg) Then
bInfo.lpszTitle = "Choisir le fichier."
Else
bInfo.lpszTitle = Msg
End If

bInfo.ulFlags = &H1

X = SHBrowseForFolder(bInfo)

path = Space$(512)
R = SHGetPathFromIDList(ByVal X, ByVal path)

If R Then
Pos = InStr(path, Chr$(0))
GetDirectory = Left(path, Pos - 1)
Else
GetDirectory = ""
End If

End Function


J'arrive à faire fonctionner ce module mais pas à l'incorporer dans un
formulaire

Comment faire ???

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #20019111
Salut,


Tu dis :
J'arrive à faire fonctionner ce module mais pas à l'incorporer dans un
formulaire




Bizarre... comment tu le fais fonctionner, dans ce cas ;-)

Colle le dans un module et tu pourras l'appeler de n'importe où...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)





jc wrote:
Bonjour,

j'ai le code suivant me permettant d'ouvrir un fichier dans access :


Option Compare Database

Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Function GetDirectory(Optional Msg) As String

Dim bInfo As BROWSEINFO
Dim path As String
Dim R As Long, X As Long, Pos As Integer

bInfo.pidlRoot = 0

If IsMissing(Msg) Then
bInfo.lpszTitle = "Choisir le fichier."
Else
bInfo.lpszTitle = Msg
End If

bInfo.ulFlags = &H1

X = SHBrowseForFolder(bInfo)

path = Space$(512)
R = SHGetPathFromIDList(ByVal X, ByVal path)

If R Then
Pos = InStr(path, Chr$(0))
GetDirectory = Left(path, Pos - 1)
Else
GetDirectory = ""
End If

End Function


J'arrive à faire fonctionner ce module mais pas à l'incorporer dans un
formulaire

Comment faire ???

merci


MINOT gilles
Le #20019901
On 30 août, 17:31, "3stone"
Salut,

Tu dis :

> J'arrive à faire fonctionner ce module mais pas à l'incorporer dans un
> formulaire

Bizarre... comment tu le fais fonctionner, dans ce cas ;-)

Colle le dans un module et tu pourras l'appeler de n'importe où...

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)



jc wrote:
> Bonjour,

> j'ai le code suivant me permettant d'ouvrir un fichier dans access :

> Option Compare Database

> Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
>     Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
>     ByVal pszPath As String) As Long

> Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
>     Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

> Public Type BROWSEINFO
>     hOwner As Long
>     pidlRoot As Long
>     pszDisplayName As String
>     lpszTitle As String
>     ulFlags As Long
>     lpfn As Long
>     lParam As Long
>     iImage As Long
> End Type

> Function GetDirectory(Optional Msg) As String

> Dim bInfo As BROWSEINFO
> Dim path As String
> Dim R As Long, X As Long, Pos As Integer

> bInfo.pidlRoot = 0

> If IsMissing(Msg) Then
>      bInfo.lpszTitle = "Choisir le fichier."
> Else
>      bInfo.lpszTitle = Msg
> End If

> bInfo.ulFlags = &H1

> X = SHBrowseForFolder(bInfo)

> path = Space$(512)
> R = SHGetPathFromIDList(ByVal X, ByVal path)

> If R Then
>     Pos = InStr(path, Chr$(0))
>      GetDirectory = Left(path, Pos - 1)
> Else
>      GetDirectory = ""
> End If

> End Function

> J'arrive à faire fonctionner ce module mais pas à l'incorporer dans un
> formulaire

> Comment faire ???

> merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



une fois que tu as colle dans un module .dans ton formulaire tu cree
un bouton et sur l'evenement clik unee procedure evenementiel tu
colles :

GetDirectory


A plus
Gilbert
Le #20020441
Bonjour,

Pour appeler cette fonction d'un formulaire, il te faut la déclarer
publique:

Public Function GetDirectory(Optional Msg) As String
...
...
...
End Function

--
Cordialement,

Gilbert


"MINOT gilles" news:
On 30 août, 17:31, "3stone"
Salut,

Tu dis :

> J'arrive à faire fonctionner ce module mais pas à l'incorporer dans un
> formulaire

Bizarre... comment tu le fais fonctionner, dans ce cas ;-)

Colle le dans un module et tu pourras l'appeler de n'importe où...

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)



jc wrote:
> Bonjour,

> j'ai le code suivant me permettant d'ouvrir un fichier dans access :

> Option Compare Database

> Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
> Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
> ByVal pszPath As String) As Long

> Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
> Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

> Public Type BROWSEINFO
> hOwner As Long
> pidlRoot As Long
> pszDisplayName As String
> lpszTitle As String
> ulFlags As Long
> lpfn As Long
> lParam As Long
> iImage As Long
> End Type

> Function GetDirectory(Optional Msg) As String

> Dim bInfo As BROWSEINFO
> Dim path As String
> Dim R As Long, X As Long, Pos As Integer

> bInfo.pidlRoot = 0

> If IsMissing(Msg) Then
> bInfo.lpszTitle = "Choisir le fichier."
> Else
> bInfo.lpszTitle = Msg
> End If

> bInfo.ulFlags = &H1

> X = SHBrowseForFolder(bInfo)

> path = Space$(512)
> R = SHGetPathFromIDList(ByVal X, ByVal path)

> If R Then
> Pos = InStr(path, Chr$(0))
> GetDirectory = Left(path, Pos - 1)
> Else
> GetDirectory = ""
> End If

> End Function

> J'arrive à faire fonctionner ce module mais pas à l'incorporer dans un
> formulaire

> Comment faire ???

> merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



une fois que tu as colle dans un module .dans ton formulaire tu cree
un bouton et sur l'evenement clik unee procedure evenementiel tu
colles :

GetDirectory


A plus
MINOT gilles
Le #20020681
On 30 août, 20:27, "Gilbert"
Bonjour,

Pour appeler cette fonction d'un formulaire, il te faut la déclarer
publique:

Public Function GetDirectory(Optional Msg) As String
...
...
...
End Function

--
Cordialement,

Gilbert

"MINOT gilles" On 30 août, 17:31, "3stone"




> Salut,

> Tu dis :

> > J'arrive à faire fonctionner ce module mais pas à l'incorporer da ns un
> > formulaire

> Bizarre... comment tu le fais fonctionner, dans ce cas ;-)

> Colle le dans un module et tu pourras l'appeler de n'importe où...

> --
> A+
> Pierre (3stone) Access MVP
> Perso:http://www.3stone.be/
> MPFA:http://www.mpfa.info/(infos générales)

> jc wrote:
> > Bonjour,

> > j'ai le code suivant me permettant d'ouvrir un fichier dans access :

> > Option Compare Database

> > Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
> > Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
> > ByVal pszPath As String) As Long

> > Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
> > Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

> > Public Type BROWSEINFO
> > hOwner As Long
> > pidlRoot As Long
> > pszDisplayName As String
> > lpszTitle As String
> > ulFlags As Long
> > lpfn As Long
> > lParam As Long
> > iImage As Long
> > End Type

> > Function GetDirectory(Optional Msg) As String

> > Dim bInfo As BROWSEINFO
> > Dim path As String
> > Dim R As Long, X As Long, Pos As Integer

> > bInfo.pidlRoot = 0

> > If IsMissing(Msg) Then
> > bInfo.lpszTitle = "Choisir le fichier."
> > Else
> > bInfo.lpszTitle = Msg
> > End If

> > bInfo.ulFlags = &H1

> > X = SHBrowseForFolder(bInfo)

> > path = Space$(512)
> > R = SHGetPathFromIDList(ByVal X, ByVal path)

> > If R Then
> > Pos = InStr(path, Chr$(0))
> > GetDirectory = Left(path, Pos - 1)
> > Else
> > GetDirectory = ""
> > End If

> > End Function

> > J'arrive à faire fonctionner ce module mais pas à l'incorporer da ns un
> > formulaire

> > Comment faire ???

> > merci- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -

une fois que tu as colle dans un module .dans ton formulaire tu cree
un bouton et sur l'evenement clik unee procedure evenementiel tu
colles :

GetDirectory

A plus- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



pour appeler une fonction d'un module , elle n'a pas besoin d'etre
public contrairement a une variable

plus
Publicité
Poster une réponse
Anonyme