recupérer valeur de champs

**Echizen1** · 13/09/2006, 17h05

Salut,
Voilà, je débute en Access (vraiment tout début) et donc plein de problèmes.
Le premier est le suivant.

J’ai crée un formulaire et y ai mis 2 zone de texte et un bouton.
Mon objectif est de créer un répertoire via access. Voici mon bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub create_folder()
 
If Len(Dir("D:\Toto\AAA", vbDirectory)) = 0 Then
MkDir "D:\Toto\AAA"
Else
MsgBox "Le répertoire existe déjà"
End If
 
End Sub

Le truc, c’est que je souhaite que le chemin et le nom du répertoire soit dynamique (c'est-à-dire récupérés dans les zones de textes.

Comment faire ?

Merci bien

**VBBBA** · 13/09/2006, 17h21

il faut que tu récupére le chemin dans une variable string et ce que tu fais toi ne le permet pas...

ya une fonction trés connu pour ca dans le site

OuvrirUnFichier()

BrowseForFolderShell()

fais une petite recherche

**Echizen1** · 13/09/2006, 17h40

J'ai beau chercher, je ne trouve pas...

En fait, mes chemins sont connus par avance.
donc, comme tu le dis, il faut que je crée dans mon code, deux variables String qui récupérent le contenu des deux zones de texte.

Je ne vois pas comment écrire ce code

**Dolphy35** · 13/09/2006, 17h43

Salut,

Comment est renseigné le chemin du dossier que tu veux créer ?

Dolphy

**Echizen1** · 13/09/2006, 17h49

Lorsque je crée mon formulaire (donc en mode création), je souhaite mettre le chemin : D:\Toto\ par défaut dans la zone de texte 1 et le nom de répertoire : AAA, par défaut dans la zone de texte 2.

ça donnerait ça en fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub create_folder()
Dim chemin, dossier As String

chemin = Texte1.Value
dossier = Texte2.Value

If Len(Dir("chemin\dossier", vbDirectory)) = 0 Then
MkDir "chemin\dossier"
Else
MsgBox "Le répertoire existe déjà"
End If

End Sub

Merci

**Dolphy35** · 13/09/2006, 17h58

Envoyé par Echizen1

Lorsque je crée mon formulaire (donc en mode création), je souhaite mettre le chemin : D:\Toto\ par défaut dans la zone de texte 1 et le nom de répertoire : AAA, par défaut dans la zone de texte 2.

Je ne comprend pas tu veux mettre le chemin dans ta zone texte ou récupérer ce qu'il y a dans la zone texte ?

Dolphy

**Echizen1** · 13/09/2006, 18h05

Salut,
C'est à dire qu'en mode création je mets un (chemin,dossier) par defaut, et dans le code je récupère ces informations dans 2 variables.
comme ça, si le couple (chemin,dossier) change, il n'y a rien à faire dans le code pour l'utilisateur.

C'est vrai que c'était pas forcément logique...

**Dolphy35** · 13/09/2006, 18h12

Désolé mais je ne comprends pas tout à fait ton problème, peux-tu ré-éxpliquer ce que tu veux vraiment.

Ce que j' ai compris c'est que pour tes essais tu mets un chemin/dossier en dur (dans le code). Ce que tu veux c'est que l'utilistaeur renseigne deux champs ou c'est garder en mémoire les dossier/chemin pour une utilistaion ultèrieur ?

Dolphy

**Echizen1** · 13/09/2006, 18h18

Je souhaite que :
la zone de texte 1 contienne le chemin par défaut : "D:\toto\"
la zone de texte 2 contienne le nom de dossier par défaut : AAA
Cela peuvent bien sûr être changé par l'utilisateur.

Quant-au code,
Il doit récupérer le contenu de chacune de ces deux zones de textes dans deux variables String.

Cela dans le but de lancer le code plus haut permettant de vérifier si le répértoire à créer existe déjà. Si ce n'est pas le cas il créera le dossier AAA dans le chemin : D:\toto\

voilà, voilà.

**Dolphy35** · 13/09/2006, 18h32

Ok, c'est plus clair.

Ton code plus comporte des erreurs il ne faut pas entourer tes variables de guillemets si tu veux récupérer leurs valeurs.

Par contre le \ il faut l'entourer de guillemets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim chemin, dossier As String
 
chemin = Texte1.Value
dossier = Texte2.Value
 
If Len(Dir(chemin & "\" & dossier, vbDirectory)) = 0 Then
MkDir chemin & "\" & dossier
Else
MsgBox "Le répertoire existe déjà"
End If

Dolphy

**Echizen1** · 13/09/2006, 19h58

Re bonsoir,
malheureusement ça n'a pas l'air de marcher

Il a coince à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
chemin = Texte1.Value
dossier = Texte2.Value

J'ai joint en pj la base. Il n'y a que le formulaire et un petit module.

**Dolphy35** · 13/09/2006, 20h08

C'est normal que ça plante.

tu as deux solutions :

1-soit tu mets ton code dans l'évenement Sur Click de ton bouton Create :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande1_Click()
 
Dim chemin, dossier As String
 
chemin = Texte2.Value
dossier = Texte4.Value
 
If Len(Dir(chemin & "\" & dossier, vbDirectory)) = 0 Then
MkDir chemin & "\" & dossier
Else
MsgBox "Le répertoire existe déjà"
End If
 
End Sub

2-Si tu veux créer absolument un module il faut que tu passe tes deux variables en paramètres.
Formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Commande1_Click()
 
    Call create_folder(Texte2.Value, Texte4.Value)
 
End Sub

Module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub create_folder(chemin, dossier As String)
 
If Len(Dir(chemin & "\" & dossier, vbDirectory)) = 0 Then
MkDir chemin & "\" & dossier
Else
MsgBox "Le répertoire existe déjà"
End If
 
End Sub

Dolphy

**Echizen1** · 13/09/2006, 20h19

Impéccable !
Trop fort ! Un grand merci pour ton aide vraiment appréciable !

J'ai testé les deux méthodes et ça marche parfaitement !

Un seul petit détail.
Où est-ce qu'on peut marquer un chemin par défaut de manière à ce qu'à "l'exécution" du formulaire, celui-ci apparaisse (par défaut) dans la zone de texte ?
(Surement dans les propriétés de la zone de texte mais je trouve pas, j'ai pourtant tout essayé)

En un seul mot :