Il y a quelques temps je vous avais demand=E9 un coup de main pour un
code, afin de r=E9cup=E9rer le chemin de fichier et de le reporter dans le
contr=F4le txt lien.
Le voici donc :
Private Sub cmdLien_Click()
Me.txtlien =3D OpenFile(CurrentProject.Path, Mono_S=E9lection, True,
allfiles, 254, True, "mabase.mdb")
End Sub
Mon soucis est lorsque je clique sur le bouton cmdLien alors que j'ai
d=E9j=E0 un lien dans txtlien, et que je clique sur Annuler, mon lien
s'efface.
Que faut-il rajouter pour que mon lien ne s'efface pas lorsque je
clique sur Annuler au lieu de choisir un fichier ?
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
Gilbert
Bonjour,
Peut-être avec Private Sub cmdLien_Click() dim strtmp as string
strtmp= OpenFile(CurrentProject.Path, Mono_Sélection, True,allfiles, 254, True, "mabase.mdb") if strtmp<>"" then Me.txtlien =strtmp End Sub
-- Cordialement,
Gilbert
"s.jean" a écrit dans le message de news: Bonjour,
Il y a quelques temps je vous avais demandé un coup de main pour un code, afin de récupérer le chemin de fichier et de le reporter dans le contrôle txt lien.
Le voici donc : Private Sub cmdLien_Click() Me.txtlien = OpenFile(CurrentProject.Path, Mono_Sélection, True, allfiles, 254, True, "mabase.mdb") End Sub
Mon soucis est lorsque je clique sur le bouton cmdLien alors que j'ai déjà un lien dans txtlien, et que je clique sur Annuler, mon lien s'efface. Que faut-il rajouter pour que mon lien ne s'efface pas lorsque je clique sur Annuler au lieu de choisir un fichier ?
Merci encore ! Sandrine
Bonjour,
Peut-être avec
Private Sub cmdLien_Click()
dim strtmp as string
strtmp= OpenFile(CurrentProject.Path, Mono_Sélection, True,allfiles, 254,
True, "mabase.mdb")
if strtmp<>"" then
Me.txtlien =strtmp
End Sub
--
Cordialement,
Gilbert
"s.jean" <s_jean26@hotmail.com> a écrit dans le message de
news:64d46047-8047-4869-a9ba-7287a0061c8c@d1g2000hsg.googlegroups.com...
Bonjour,
Il y a quelques temps je vous avais demandé un coup de main pour un
code, afin de récupérer le chemin de fichier et de le reporter dans le
contrôle txt lien.
Le voici donc :
Private Sub cmdLien_Click()
Me.txtlien = OpenFile(CurrentProject.Path, Mono_Sélection, True,
allfiles, 254, True, "mabase.mdb")
End Sub
Mon soucis est lorsque je clique sur le bouton cmdLien alors que j'ai
déjà un lien dans txtlien, et que je clique sur Annuler, mon lien
s'efface.
Que faut-il rajouter pour que mon lien ne s'efface pas lorsque je
clique sur Annuler au lieu de choisir un fichier ?
Peut-être avec Private Sub cmdLien_Click() dim strtmp as string
strtmp= OpenFile(CurrentProject.Path, Mono_Sélection, True,allfiles, 254, True, "mabase.mdb") if strtmp<>"" then Me.txtlien =strtmp End Sub
-- Cordialement,
Gilbert
"s.jean" a écrit dans le message de news: Bonjour,
Il y a quelques temps je vous avais demandé un coup de main pour un code, afin de récupérer le chemin de fichier et de le reporter dans le contrôle txt lien.
Le voici donc : Private Sub cmdLien_Click() Me.txtlien = OpenFile(CurrentProject.Path, Mono_Sélection, True, allfiles, 254, True, "mabase.mdb") End Sub
Mon soucis est lorsque je clique sur le bouton cmdLien alors que j'ai déjà un lien dans txtlien, et que je clique sur Annuler, mon lien s'efface. Que faut-il rajouter pour que mon lien ne s'efface pas lorsque je clique sur Annuler au lieu de choisir un fichier ?
Merci encore ! Sandrine
s.jean
C'est parfait, merci (en dehors du fait qu'il manquait le end If ...)
Merci ! Sandrine
On 19 juin, 15:22, "Gilbert" wrote:
Bonjour,
Peut-être avec Private Sub cmdLien_Click() dim strtmp as string
strtmp= OpenFile(CurrentProject.Path, Mono_Sélection, True,allfiles, 254, True, "mabase.mdb") if strtmp<>"" then Me.txtlien =strtmp End Sub
-- Cordialement,
Gilbert
"s.jean" a écrit dans le message denews:64d46047 Bonjour,
Il y a quelques temps je vous avais demandé un coup de main pour un code, afin de récupérer le chemin de fichier et de le reporter dans l e contrôle txt lien.
Le voici donc : Private Sub cmdLien_Click() Me.txtlien = OpenFile(CurrentProject.Path, Mono_Sélection, True, allfiles, 254, True, "mabase.mdb") End Sub
Mon soucis est lorsque je clique sur le bouton cmdLien alors que j'ai déjà un lien dans txtlien, et que je clique sur Annuler, mon lien s'efface. Que faut-il rajouter pour que mon lien ne s'efface pas lorsque je clique sur Annuler au lieu de choisir un fichier ?
Merci encore ! Sandrine
C'est parfait, merci (en dehors du fait qu'il manquait le end If ...)
Merci !
Sandrine
On 19 juin, 15:22, "Gilbert" <ZZZZgilbert...@tiscali.fr> wrote:
Bonjour,
Peut-être avec
Private Sub cmdLien_Click()
dim strtmp as string
strtmp= OpenFile(CurrentProject.Path, Mono_Sélection, True,allfiles, 254,
True, "mabase.mdb")
if strtmp<>"" then
Me.txtlien =strtmp
End Sub
--
Cordialement,
Gilbert
"s.jean" <s_jea...@hotmail.com> a écrit dans le message denews:64d46047 -8047-4869-a9ba-7287a0061c8c@d1g2000hsg.googlegroups.com...
Bonjour,
Il y a quelques temps je vous avais demandé un coup de main pour un
code, afin de récupérer le chemin de fichier et de le reporter dans l e
contrôle txt lien.
Le voici donc :
Private Sub cmdLien_Click()
Me.txtlien = OpenFile(CurrentProject.Path, Mono_Sélection, True,
allfiles, 254, True, "mabase.mdb")
End Sub
Mon soucis est lorsque je clique sur le bouton cmdLien alors que j'ai
déjà un lien dans txtlien, et que je clique sur Annuler, mon lien
s'efface.
Que faut-il rajouter pour que mon lien ne s'efface pas lorsque je
clique sur Annuler au lieu de choisir un fichier ?
C'est parfait, merci (en dehors du fait qu'il manquait le end If ...)
Merci ! Sandrine
On 19 juin, 15:22, "Gilbert" wrote:
Bonjour,
Peut-être avec Private Sub cmdLien_Click() dim strtmp as string
strtmp= OpenFile(CurrentProject.Path, Mono_Sélection, True,allfiles, 254, True, "mabase.mdb") if strtmp<>"" then Me.txtlien =strtmp End Sub
-- Cordialement,
Gilbert
"s.jean" a écrit dans le message denews:64d46047 Bonjour,
Il y a quelques temps je vous avais demandé un coup de main pour un code, afin de récupérer le chemin de fichier et de le reporter dans l e contrôle txt lien.
Le voici donc : Private Sub cmdLien_Click() Me.txtlien = OpenFile(CurrentProject.Path, Mono_Sélection, True, allfiles, 254, True, "mabase.mdb") End Sub
Mon soucis est lorsque je clique sur le bouton cmdLien alors que j'ai déjà un lien dans txtlien, et que je clique sur Annuler, mon lien s'efface. Que faut-il rajouter pour que mon lien ne s'efface pas lorsque je clique sur Annuler au lieu de choisir un fichier ?