hello! helas pour vs je n'ai pas fini ds une avalanche!
j'ai utilis=E9 openfile et open file extend, =E7a fonctionne, j'ouvre les
dossiers en fonction du nom du patient et en choisissant le nom d'un
sous dossier, mais si pour un patient je n'ai pas cr=E9e de dossier =E7a
me trouve le dossier choisi precedement pour un autre patient, il doit
falloir remettre =E0 "zero" apres la recherche et l'ouverture mais
comment?
mon brouillon de code ressemble =E0 =E7a, j'ai mis des Msgbox pour
verifier que la recherche s'effectue bien avec le bon nom et prenom
Private Sub Commande_chercher_courrier_Click()
Dim name As String
Dim prename As String
Dim dossier As String
dossier =3D InputBox("Entrez nom dossier")
prename =3D Me.Parent.prenom.Value
name =3D Me.Parent.nom.Value
MsgBox name
MsgBox prename
Me.texte =3D OpenFile("E:\paraclinique\Cardio\" & name _
& Left(prename, 1) & "\" & dossier, Multi_S=E9lection, allfiles)
MsgBox "il y a " & nOpenFile & " fichiers s=E9lectionn=E9s"
End Sub
Private Sub Commande_ouvrir_courrier_Click()
Dim R=E9ponse As Variant
R=E9ponse =3D OpenFileExtend(Me.texte, Maximized, OpExecute)
If Not R=E9ponse =3D True Then
MsgBox R=E9ponse
End If
Me.texte.Value =3D "" rem j'avais essay=E9 =E7a pour remettre =E0 zero
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour koalavert,
Essaies Me.texte=Null
PS: j'ai pas regardé du côté des APIs
hello! helas pour vs je n'ai pas fini ds une avalanche! j'ai utilisé openfile et open file extend, ça fonctionne, j'ouvre les dossiers en fonction du nom du patient et en choisissant le nom d'un sous dossier, mais si pour un patient je n'ai pas crée de dossier ça me trouve le dossier choisi precedement pour un autre patient, il doit falloir remettre à "zero" apres la recherche et l'ouverture mais comment? mon brouillon de code ressemble à ça, j'ai mis des Msgbox pour verifier que la recherche s'effectue bien avec le bon nom et prenom
Private Sub Commande_chercher_courrier_Click() Dim name As String Dim prename As String Dim dossier As String dossier = InputBox("Entrez nom dossier") prename = Me.Parent.prenom.Value name = Me.Parent.nom.Value MsgBox name MsgBox prename
Me.texte = OpenFile("E:paracliniqueCardio" & name _ & Left(prename, 1) & "" & dossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés" End Sub
Private Sub Commande_ouvrir_courrier_Click() Dim Réponse As Variant Réponse = OpenFileExtend(Me.texte, Maximized, OpExecute) If Not Réponse = True Then MsgBox Réponse End If
Me.texte.Value = "" rem j'avais essayé ça pour remettre à zero
End Sub
merci une photo d'avoriaz?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour koalavert,
Essaies
Me.texte=Null
PS: j'ai pas regardé du côté des APIs
hello! helas pour vs je n'ai pas fini ds une avalanche!
j'ai utilisé openfile et open file extend, ça fonctionne, j'ouvre les
dossiers en fonction du nom du patient et en choisissant le nom d'un
sous dossier, mais si pour un patient je n'ai pas crée de dossier ça
me trouve le dossier choisi precedement pour un autre patient, il doit
falloir remettre à "zero" apres la recherche et l'ouverture mais
comment?
mon brouillon de code ressemble à ça, j'ai mis des Msgbox pour
verifier que la recherche s'effectue bien avec le bon nom et prenom
Private Sub Commande_chercher_courrier_Click()
Dim name As String
Dim prename As String
Dim dossier As String
dossier = InputBox("Entrez nom dossier")
prename = Me.Parent.prenom.Value
name = Me.Parent.nom.Value
MsgBox name
MsgBox prename
Me.texte = OpenFile("E:paracliniqueCardio" & name _
& Left(prename, 1) & "" & dossier, Multi_Sélection, allfiles)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
End Sub
Private Sub Commande_ouvrir_courrier_Click()
Dim Réponse As Variant
Réponse = OpenFileExtend(Me.texte, Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
Me.texte.Value = "" rem j'avais essayé ça pour remettre à zero
End Sub
merci
une photo d'avoriaz?
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
hello! helas pour vs je n'ai pas fini ds une avalanche! j'ai utilisé openfile et open file extend, ça fonctionne, j'ouvre les dossiers en fonction du nom du patient et en choisissant le nom d'un sous dossier, mais si pour un patient je n'ai pas crée de dossier ça me trouve le dossier choisi precedement pour un autre patient, il doit falloir remettre à "zero" apres la recherche et l'ouverture mais comment? mon brouillon de code ressemble à ça, j'ai mis des Msgbox pour verifier que la recherche s'effectue bien avec le bon nom et prenom
Private Sub Commande_chercher_courrier_Click() Dim name As String Dim prename As String Dim dossier As String dossier = InputBox("Entrez nom dossier") prename = Me.Parent.prenom.Value name = Me.Parent.nom.Value MsgBox name MsgBox prename
Me.texte = OpenFile("E:paracliniqueCardio" & name _ & Left(prename, 1) & "" & dossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés" End Sub
Private Sub Commande_ouvrir_courrier_Click() Dim Réponse As Variant Réponse = OpenFileExtend(Me.texte, Maximized, OpExecute) If Not Réponse = True Then MsgBox Réponse End If
Me.texte.Value = "" rem j'avais essayé ça pour remettre à zero
End Sub
merci une photo d'avoriaz?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
koalavert
Me.texte=null ne change pas le pb, ça ouvre le dossier precedent, rq tu me diras: " fainéant t'as qu'a créer des dossiers pour ts les patients et ça marchera" oui c'est vrai, mais bon.... :-))
Me.texte=null ne change pas le pb, ça ouvre le dossier precedent, rq
tu me diras: " fainéant t'as qu'a créer des dossiers pour ts les
patients et ça marchera" oui c'est vrai, mais bon....
:-))
Me.texte=null ne change pas le pb, ça ouvre le dossier precedent, rq tu me diras: " fainéant t'as qu'a créer des dossiers pour ts les patients et ça marchera" oui c'est vrai, mais bon.... :-))
Eric
re,
Tu peux faire quelque chose comme :
Dim CheminDossier as string CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & "" & dossier if dir(CheminDossier, vbDirectory)="" then CheminDossier ="E:paracliniqueCardio" ' à adapter end if Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
Me.texte=null ne change pas le pb, ça ouvre le dossier precedent, rq tu me diras: " fainéant t'as qu'a créer des dossiers pour ts les patients et ça marchera" oui c'est vrai, mais bon.... :-))
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Tu peux faire quelque chose comme :
Dim CheminDossier as string
CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & ""
& dossier
if dir(CheminDossier, vbDirectory)="" then
CheminDossier ="E:paracliniqueCardio" ' à adapter
end if
Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
Me.texte=null ne change pas le pb, ça ouvre le dossier precedent, rq
tu me diras: " fainéant t'as qu'a créer des dossiers pour ts les
patients et ça marchera" oui c'est vrai, mais bon....
:-))
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Dim CheminDossier as string CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & "" & dossier if dir(CheminDossier, vbDirectory)="" then CheminDossier ="E:paracliniqueCardio" ' à adapter end if Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
Me.texte=null ne change pas le pb, ça ouvre le dossier precedent, rq tu me diras: " fainéant t'as qu'a créer des dossiers pour ts les patients et ça marchera" oui c'est vrai, mais bon.... :-))
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
koalavert
Dim CheminDossier as string CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & "" & dossier if dir(CheminDossier, vbDirectory)="" then CheminDossier ="E:paracliniqueCardio" ' à adapter end if Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
merci, si j'ai bien compris on teste si chemin dossier existe et en fait si dir chemindossier est "" il faudrait plutot que je mette une msgbox disant "ce patient n' a pas de dossier" et faire cesser la procedure, non?
Dim CheminDossier as string
CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & ""
& dossier
if dir(CheminDossier, vbDirectory)="" then
CheminDossier ="E:paracliniqueCardio" ' à adapter
end if
Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
merci,
si j'ai bien compris on teste si chemin dossier existe et en fait si
dir chemindossier est "" il faudrait plutot que je mette une msgbox
disant "ce patient n' a pas de dossier" et faire cesser la procedure,
non?
Dim CheminDossier as string CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & "" & dossier if dir(CheminDossier, vbDirectory)="" then CheminDossier ="E:paracliniqueCardio" ' à adapter end if Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
merci, si j'ai bien compris on teste si chemin dossier existe et en fait si dir chemindossier est "" il faudrait plutot que je mette une msgbox disant "ce patient n' a pas de dossier" et faire cesser la procedure, non?
Eric
re,
Ne sachant pas ce que tu veux faire si le dossier du dit-patient n'existe pas, je t'ai repositionner sur le chemin générique d'où le 'à adapter'. Il y a pas de prob pour mettre une msgbox mais dans ce cas-là tu modifies le code ainsi: if dir(CheminDossier, vbDirectory)="" then msgbox "pas de dossier pour ce patient" Else Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés" ... End if
Dim CheminDossier as string CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & "" & dossier if dir(CheminDossier, vbDirectory)="" then CheminDossier ="E:paracliniqueCardio" ' à adapter end if Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
merci, si j'ai bien compris on teste si chemin dossier existe et en fait si dir chemindossier est "" il faudrait plutot que je mette une msgbox disant "ce patient n' a pas de dossier" et faire cesser la procedure, non?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Ne sachant pas ce que tu veux faire si le dossier du dit-patient
n'existe pas, je t'ai repositionner sur le chemin générique d'où le 'à
adapter'.
Il y a pas de prob pour mettre une msgbox mais dans ce cas-là tu
modifies le code ainsi:
if dir(CheminDossier, vbDirectory)="" then
msgbox "pas de dossier pour ce patient"
Else
Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
...
End if
Dim CheminDossier as string
CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & ""
& dossier
if dir(CheminDossier, vbDirectory)="" then
CheminDossier ="E:paracliniqueCardio" ' à adapter
end if
Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles)
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
merci,
si j'ai bien compris on teste si chemin dossier existe et en fait si
dir chemindossier est "" il faudrait plutot que je mette une msgbox
disant "ce patient n' a pas de dossier" et faire cesser la procedure,
non?
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Ne sachant pas ce que tu veux faire si le dossier du dit-patient n'existe pas, je t'ai repositionner sur le chemin générique d'où le 'à adapter'. Il y a pas de prob pour mettre une msgbox mais dans ce cas-là tu modifies le code ainsi: if dir(CheminDossier, vbDirectory)="" then msgbox "pas de dossier pour ce patient" Else Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés" ... End if
Dim CheminDossier as string CheminDossier ="E:paracliniqueCardio" & name & Left(prename, 1) & "" & dossier if dir(CheminDossier, vbDirectory)="" then CheminDossier ="E:paracliniqueCardio" ' à adapter end if Me.texte = OpenFile(CheminDossier, Multi_Sélection, allfiles) MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
merci, si j'ai bien compris on teste si chemin dossier existe et en fait si dir chemindossier est "" il faudrait plutot que je mette une msgbox disant "ce patient n' a pas de dossier" et faire cesser la procedure, non?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
koalavert
merci, merci,
je pourrai meme peut etre en cas d'absence de dossier embrayer sur l'api creatfolder et les créer ds la foulée ce qui reglerait le pb pour la suite! pas con ça à creuser! je verrai tt ça demain, d'autres choses à faire pour ce soir!! bye et bon film du dimanche soir!!!!!
merci, merci,
je pourrai meme peut etre en cas d'absence de dossier embrayer sur
l'api creatfolder et les créer ds la foulée ce qui reglerait le pb
pour la suite! pas con ça à creuser!
je verrai tt ça demain, d'autres choses à faire pour ce soir!!
bye et bon film du dimanche soir!!!!!
je pourrai meme peut etre en cas d'absence de dossier embrayer sur l'api creatfolder et les créer ds la foulée ce qui reglerait le pb pour la suite! pas con ça à creuser! je verrai tt ça demain, d'autres choses à faire pour ce soir!! bye et bon film du dimanche soir!!!!!
Eric
re,
C'est à toi de voir mais pourquoi créer un dossier tant que cela n'est pas nécessaire ? Mystère !!!
merci, merci,
je pourrai meme peut etre en cas d'absence de dossier embrayer sur l'api creatfolder et les créer ds la foulée ce qui reglerait le pb pour la suite! pas con ça à creuser! --
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
C'est à toi de voir mais pourquoi créer un dossier tant que cela n'est
pas nécessaire ? Mystère !!!
merci, merci,
je pourrai meme peut etre en cas d'absence de dossier embrayer sur
l'api creatfolder et les créer ds la foulée ce qui reglerait le pb
pour la suite! pas con ça à creuser!
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
C'est à toi de voir mais pourquoi créer un dossier tant que cela n'est pas nécessaire ? Mystère !!!
merci, merci,
je pourrai meme peut etre en cas d'absence de dossier embrayer sur l'api creatfolder et les créer ds la foulée ce qui reglerait le pb pour la suite! pas con ça à creuser! --
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
koalavert
merde! tu vas m'empecher de dormir avec tes interrogations metaphysique!! lol
merde! tu vas m'empecher de dormir avec tes interrogations
metaphysique!! lol
