Comme évoquer ci-dessus, j'ai une base access important des données d'excel,
dans cette base j'ai une table médecin comportant 3 médecins à la date
d'aujourd'hui mais comme mes données datent de 2000 il y a des médecins tel
des anciens ou remplaçant qui a ce jour n'existe plus.
Donc en espérant être claire car j'en vien à m'embrouiller la tête ;-)
Quand l'exportation se fait :
CODE MED : 23 (contenu du champ importer d'excel)
NOM MED : DUPONT (contenu du champ renvoyé de ma table d'après CODE MED)
PRENOM : PATRICK (contenu du champ renvoyé de ma table d'après CODE MED)
Je souhaite lorsque il m'intègre un code dans mon champs Code médecin qui
n'existe pas dans ma table, un label " Code Médecin non répertorié à ce jour"
Rs.Movefirst If rs.Field("CODE MED") = 0 Then VerifMedecin = "Médecin inconnu" end if End function
"CLARA" a écrit dans le message de news:
Bonjour à tous,
Comme évoquer ci-dessus, j'ai une base access important des données d'excel, dans cette base j'ai une table médecin comportant 3 médecins à la date d'aujourd'hui mais comme mes données datent de 2000 il y a des médecins tel des anciens ou remplaçant qui a ce jour n'existe plus.
Donc en espérant être claire car j'en vien à m'embrouiller la tête ;-)
Quand l'exportation se fait : CODE MED : 23 (contenu du champ importer d'excel) NOM MED : DUPONT (contenu du champ renvoyé de ma table d'après CODE MED) PRENOM : PATRICK (contenu du champ renvoyé de ma table d'après CODE MED)
Je souhaite lorsque il m'intègre un code dans mon champs Code médecin qui n'existe pas dans ma table, un label " Code Médecin non répertorié à ce jour"
Merci d'avance
Bonjour,
Appelles la fonction ci-dessous à partir l'évennement approprié dans ton
formulaire
Bye,
Thom
public function VerifMedecin(codeMed as long) as string
Dim rs As RecordSet
Dim strReq as string
Rs.Movefirst
If rs.Field("CODE MED") = 0 Then
VerifMedecin = "Médecin inconnu"
end if
End function
"CLARA" <CLARA@discussions.microsoft.com> a écrit dans le message de news:
0B94B42F-81C3-4109-A13A-F36F0177068E@microsoft.com...
Bonjour à tous,
Comme évoquer ci-dessus, j'ai une base access important des données
d'excel,
dans cette base j'ai une table médecin comportant 3 médecins à la date
d'aujourd'hui mais comme mes données datent de 2000 il y a des médecins
tel
des anciens ou remplaçant qui a ce jour n'existe plus.
Donc en espérant être claire car j'en vien à m'embrouiller la tête ;-)
Quand l'exportation se fait :
CODE MED : 23 (contenu du champ importer d'excel)
NOM MED : DUPONT (contenu du champ renvoyé de ma table d'après CODE MED)
PRENOM : PATRICK (contenu du champ renvoyé de ma table d'après CODE MED)
Je souhaite lorsque il m'intègre un code dans mon champs Code médecin qui
n'existe pas dans ma table, un label " Code Médecin non répertorié à ce
jour"
Rs.Movefirst If rs.Field("CODE MED") = 0 Then VerifMedecin = "Médecin inconnu" end if End function
"CLARA" a écrit dans le message de news:
Bonjour à tous,
Comme évoquer ci-dessus, j'ai une base access important des données d'excel, dans cette base j'ai une table médecin comportant 3 médecins à la date d'aujourd'hui mais comme mes données datent de 2000 il y a des médecins tel des anciens ou remplaçant qui a ce jour n'existe plus.
Donc en espérant être claire car j'en vien à m'embrouiller la tête ;-)
Quand l'exportation se fait : CODE MED : 23 (contenu du champ importer d'excel) NOM MED : DUPONT (contenu du champ renvoyé de ma table d'après CODE MED) PRENOM : PATRICK (contenu du champ renvoyé de ma table d'après CODE MED)
Je souhaite lorsque il m'intègre un code dans mon champs Code médecin qui n'existe pas dans ma table, un label " Code Médecin non répertorié à ce jour"
