Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1927 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB] Bouton "parcourir" dans un formulaire access

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB] Bouton "parcourir" dans un formulaire access

n°859872
VinZ13
Posté le 29-09-2004 à 12:03:16  profilanswer
 

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

mood
Publicité
Posté le 29-09-2004 à 12:03:16  profilanswer
 

n°860084
pumpkin031​2
Posté le 29-09-2004 à 15:25:07  profilanswer
 

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

n°860801
VinZ13
Posté le 30-09-2004 à 11:16:13  profilanswer
 

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

n°860855
HelloWorld
Salut tout le monde!
Posté le 30-09-2004 à 11:59:32  profilanswer
 

vinz13 a écrit :

J'ai un probleme avec ce passage


Ah c'est con.


---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite
n°860894
VinZ13
Posté le 30-09-2004 à 12:31:04  profilanswer
 

HelloWorld a écrit :

Ah c'est con.


 
Mais encore ?

n°860921
HelloWorld
Salut tout le monde!
Posté le 30-09-2004 à 12:49:34  profilanswer
 

vinz13 a écrit :

J'ai un probleme avec ce passage


Mais encore ?


---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite
n°861018
VinZ13
Posté le 30-09-2004 à 14:51:02  profilanswer
 

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é

n°861870
VinZ13
Posté le 01-10-2004 à 10:55:38  profilanswer
 

help please

n°862211
pumpkin031​2
Posté le 01-10-2004 à 15:24:30  profilanswer
 

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

n°894392
VinZ13
Posté le 09-11-2004 à 15:44:44  profilanswer
 

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 !

mood
Publicité
Posté le 09-11-2004 à 15:44:44  profilanswer
 

n°895842
e2prom
Posté le 11-11-2004 à 11:45:47  profilanswer
 

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

n°1062401
redpopp
Posté le 27-04-2005 à 10:57:54  profilanswer
 

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



n°1062790
gfa
Posté le 27-04-2005 à 14:37:51  profilanswer
 

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...

n°1066880
AlainTech
Pas trouvé? Cherche encore!
Posté le 30-04-2005 à 15:36:19  profilanswer
 

+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!

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB] Bouton "parcourir" dans un formulaire access

 

Sujets relatifs
Envoyer la valeur du submit lors de la validation d'un formulaireMettre une base ACCESS sur internet?
[access] macro ou module d'exportation de fichiers vers excelPeut on copié une unité et formulaire sous un autre nom
Comment passer un tableau à travers un formulaire?Sécurisation formulaire
formulaire affichant les données d'une basePassage de VBA Excel à VBA Access
j'ai un souci de réception du formulaire[Struts] Nombre de champs non défini pour un formulaire
Plus de sujets relatifs à : [VB] Bouton "parcourir" dans un formulaire access

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.094 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR