[VB] Bouton "parcourir" dans un formulaire access

Bouton "parcourir" dans un formulaire access [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 29-09-2004 à 12:03:16    

Bonjour,
 
dans un formulaire access, je voudrais créer un bouton permettant d'ouvrir l'explorateur, afin de récuperer dans un champs texte le chemin du dossier selectionné.
 
Comme un bouton parcourir quoi ...
 
Merci de votre aide

Reply

Marsh Posté le 29-09-2004 à 12:03:16   

Reply

Marsh Posté le 29-09-2004 à 15:25:07    

si ton bouton s'appelle cmd_import et ton champs texte Txt_import :
 

Code :
  1. Private Type OPENFILENAME
  2.     lStructSize As Long
  3.     hwndOwner As Long
  4.     hInstance As Long
  5.     lpstrFilter As String
  6.     lpstrCustomFilter As String
  7.     nMaxCustFilter As Long
  8.     nFilterIndex As Long
  9.     lpstrFile As String
  10.     nMaxFile As Long
  11.     lpstrFileTitle As String
  12.     nMaxFileTitle As Long
  13.     lpstrInitialDir As String
  14.     lpstrTitle As String
  15.     flags As Long
  16.     nFileOffset As Integer
  17.     nFileExtension As Integer
  18.     lpstrDefExt As String
  19.     lCustData As Long
  20.     lpfnHook As Long
  21.     lpTemplateName As String
  22. End Type
  25. Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  26. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
  28. Private Function ShowOpen() As String
  29.     Dim OFName As OPENFILENAME
  30.     OFName.lStructSize = Len(OFName)
  31.     OFName.hwndOwner = Me.Hwnd
  32.     OFName.hInstance = Application.hWndAccessApp
  33.     OFName.lpstrFilter = "Tous les fichiers (*.*)" + Chr$(0) + "*.*" + Chr$(0)
  34.     OFName.lpstrFile = space$(254)
  35.     OFName.nMaxFile = 255
  36.     OFName.lpstrFileTitle = space$(254)
  37.     OFName.nMaxFileTitle = 255
  38.     OFName.lpstrInitialDir = "D:\"
  39.     OFName.lpstrTitle = "Ouvrir..."
  40.     OFName.flags = 0
  42.     If GetOpenFileName(OFName) Then
  43.         ShowOpen = Trim$(OFName.lpstrFile)
  44.     Else
  45.         ShowOpen = ""
  46.     End If
  47. End Function
  49. Private Sub cmd_import_Click()
  50.     Me.Txt_import = ShowOpen
  51. End Sub

Reply

Marsh Posté le 30-09-2004 à 11:16:13    

pumpkin0312 a écrit :

si ton bouton s'appelle cmd_import et ton champs texte Txt_import :
 

Code :
  1. Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  2. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long




 
J'ai un probleme avec ce passage

Reply

Marsh Posté le 30-09-2004 à 11:59:32    

vinz13 a écrit :

J'ai un probleme avec ce passage


Ah c'est con.


---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite
Reply

Marsh Posté le 30-09-2004 à 12:31:04    

HelloWorld a écrit :

Ah c'est con.


 
Mais encore ?

Reply

Marsh Posté le 30-09-2004 à 12:49:34    

vinz13 a écrit :

J'ai un probleme avec ce passage


Mais encore ?


---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite
Reply

Marsh Posté le 30-09-2004 à 14:51:02    

HelloWorld a écrit :

Mais encore ?


 
Dans le code il passe pas deja, puisqu'il est en rouge
 
Ensuite j'ai une erreur, mais rien n'est indiqué

Reply

Marsh Posté le 01-10-2004 à 10:55:38    

help please

Reply

Marsh Posté le 01-10-2004 à 15:24:30    

question bête : tu as bien supprimé les nombres (et les points) devant chaque ligne ?

Reply

Marsh Posté le 09-11-2004 à 15:44:44    

pumpkin0312 a écrit :

question bête : tu as bien supprimé les nombres (et les points) devant chaque ligne ?


 
En effet elle est bete !  :)  
Oui je l'ai fais !

Reply

Marsh Posté le 09-11-2004 à 15:44:44   

Reply

Marsh Posté le 11-11-2004 à 11:45:47    

Private Declare............ Alias_  
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Reply

Marsh Posté le 27-04-2005 à 10:57:54    

Bonjour,
 
ce code est utilisé dans une appli access 97 que je dois migrer en access 2002. Ca fonctionne correctement dans la version 97, mais dans la version 2002 impossible d'afficher la fenêtre. la fonction GetOpenFileName ne retourne rien du tout.
est ce que cela vient de la dll?
 
merci de votre aide.
 
 

pumpkin0312 a écrit :

si ton bouton s'appelle cmd_import et ton champs texte Txt_import :
 

Code :
  1. Private Type OPENFILENAME
  2.     lStructSize As Long
  3.     hwndOwner As Long
  4.     hInstance As Long
  5.     lpstrFilter As String
  6.     lpstrCustomFilter As String
  7.     nMaxCustFilter As Long
  8.     nFilterIndex As Long
  9.     lpstrFile As String
  10.     nMaxFile As Long
  11.     lpstrFileTitle As String
  12.     nMaxFileTitle As Long
  13.     lpstrInitialDir As String
  14.     lpstrTitle As String
  15.     flags As Long
  16.     nFileOffset As Integer
  17.     nFileExtension As Integer
  18.     lpstrDefExt As String
  19.     lCustData As Long
  20.     lpfnHook As Long
  21.     lpTemplateName As String
  22. End Type
  25. Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  26. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
  28. Private Function ShowOpen() As String
  29.     Dim OFName As OPENFILENAME
  30.     OFName.lStructSize = Len(OFName)
  31.     OFName.hwndOwner = Me.Hwnd
  32.     OFName.hInstance = Application.hWndAccessApp
  33.     OFName.lpstrFilter = "Tous les fichiers (*.*)" + Chr$(0) + "*.*" + Chr$(0)
  34.     OFName.lpstrFile = space$(254)
  35.     OFName.nMaxFile = 255
  36.     OFName.lpstrFileTitle = space$(254)
  37.     OFName.nMaxFileTitle = 255
  38.     OFName.lpstrInitialDir = "D:\"
  39.     OFName.lpstrTitle = "Ouvrir..."
  40.     OFName.flags = 0
  42.     If GetOpenFileName(OFName) Then
  43.         ShowOpen = Trim$(OFName.lpstrFile)
  44.     Else
  45.         ShowOpen = ""
  46.     End If
  47. End Function
  49. Private Sub cmd_import_Click()
  50.     Me.Txt_import = ShowOpen
  51. End Sub



Reply

Marsh Posté le 27-04-2005 à 14:37:51    

Salut,
 
Il me semble qu'il y a plus simple... Tu peux utiliser le "Microsoft Common Dialog Control" dans lequel tu devrais trouver un composant OpenDialog.
 
Je dis ça de mémoire donc je ne suis pas sûr que ça fonctionne...

Reply

Marsh Posté le 30-04-2005 à 15:36:19    

+1


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed