Discussion :

[infr1700]

Bonjour à toutes et tous et... Bonne ANNEE,

Voilà mon soucis et merci par avance de votre aide:

J'ai un formulaire qui est basé sur une requête. Lors de la fermeture du formulaire et s'il y a eu un nouvel enregistrement ou s'il y a eu modification des champs, le code vérifie si le dossier existe. Si oui, alors il ferme le formulaire sinon il crée le dossier. Le répertoire est créé via 3 champ. Le premier avec le Nom du membre, le 2ème avec le Prenom du membre et le dernier est un concatenation du ID dossier et date d'inscription dossier.
Ex.: crée le dossier: c:\Documents\Toto Fenouille 345_22.03.2014. Toto=Nom du membre, Fenouille = Prenom du membre et le chiffre est la concatenation du ID dossier et date. Jusque là pas de problème.

Mon souci est que si l'utilisateur modifie le nom du membre (si c'est une femme et qu'elle se marie ou que le nom ou prenom de famille a été inséré faux) d'un formulaire existant, access va me créer un nouveau dossier. Ce que je ne veux pas. Les champs qui ne peuvent-être modifiés sont l'ID et la date (le champ concatené qui termine le nom du dossier). J'aurais pu effectivement créer le nom du dossier seulement avec l'ID et la date, mais mes utilisateurs du programme ne veulent pas se retrouver avec des dossiers nommés seulement avec des chiffres...

Ma question:
comment demander en VBA de comparer la partie du nom du dossier, partant de la droite jusqu'à un "_", si elle correspond déjà au champ concaténé.

Merci encore pour votre aide précieuse. (j'ai essayé de chercher dans le forum quelques choses du genre, sans vraiment trouver mon bonheur).

[infr1700]

Dsl,

l'exemple, dans ma demande, du dossier créé est erroné, c'est plutôt ToTo Fenouille_345 22.03.2014. Voilà pourquoi chercher depuis la droite le caractère "_" :

Voilà ce que j'ai déjà essayé comme code :

Code :

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

1
2
3
If Dir(Right([strDossier], InStr(1, [strDossier], "_") - 1), vbDirectory) = Me.NCompletDossier Then
    DoCmd.Close acForm, "Frm_Dossier"   'ferme le formulaire dossier
    DoCmd.OpenForm "Frm_autoexec"       'ouvre le formulaire autoexec

MERCI !

[tee_grandbois]

Bonsoir,
il faut d'abord récupérer le nom de dossier et ensuite comparer. Essaie comme çà :

Code :

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

1
2
3
4
5
6
7
Dim strTrouveDossier As String
strTrouveDossier = Dir([strDossier], vbDirectory)
 
If Mid([strTrouveDossier], InStr(1, [strTrouveDossier], "_") + 1) = NCompletDossier Then
DoCmd.Close acForm, "Frm_Dossier" 'ferme le formulaire dossier
DoCmd.OpenForm "Frm_autoexec" 'ouvre le formulaire autoexec
End If

[infr1700]

Merci pour ta réponse aussi rapide, j'essaie tout de suite.

[infr1700]

Ta réponse fonctionne à merveille, j'avais effectivement cru que le "Strdossier" = le chemin complet suffisait. Merci pour ton aide et souhaite à toi ainsi qu'à toute l'équipe une Année remplie de code.

J'inscris ce poste comme clos.

[tee_grandbois]

Ok, merci.
Encore une précision : il faut tester si strTrouveDossier est <> "" avant de faire le Mid()
Bonne soirée.