Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC03] Re: lien hypertexte vers fichier

19/08/17 12:37
Suite
Voici l'écriture auto dans le contrôle
Function NumAuto()
Txt_NumVisite = (DMax("[NumVisite]", "T_Visites"winking smiley) + 1
NumAuto = (DMax("[NumVisite]", "T_Visites"winking smiley) + 1
End Function

Sub HyperTexte()
Dim InitNom As String
Dim LeNom As String
LeNom = Forms![F_Médecins]![Txt_NomMed] ' LeNom est du style : Dr tytotuta
InitNom = Mid(LeNom, 4, 4) ' Ce qui donne : tyto
Txt_CourrierMed = "f:\bases\médical\courrier\" & NumAuto & InitNom & ".jpg" ' ce qui donne par exple : f:\bases\médical\courrier\158tyto.jpg
' Txt_CourrierMed a comme source le champ hypertexte : CourrierMed de la table T_Visites
End Sub

merci de bien vouloir m'aider
Christian
SujetAuteurEnvoyé le

[AC03] lien hypertexte vers fichier

christian bonnart18/08/17 17:20

[AC03] Re: lien hypertexte vers fichier

DenisS19/08/17 10:22

[AC03] Re: lien hypertexte vers fichier

christian bonnart19/08/17 11:57

[AC03] Re: lien hypertexte vers fichier

christian bonnart19/08/17 12:37

[AC03] Re: lien hypertexte vers fichier

DenisS19/08/17 13:11

[AC03] Re: lien hypertexte vers fichier

christian bonnart19/08/17 15:08

[AC03] Re: lien hypertexte vers fichier

DenisS19/08/17 16:51

[AC03] Re: lien hypertexte vers fichier

christian bonnart20/08/17 20:58

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter