Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Champ "paramétré" d'une table

Champ "paramétré" d'une table

3 réponses
Avatar
Didier
Bonsoir,
j'ai une fonction de ce type (merci GUY):

DLookup("[Type]", "AbsenceDp", "[NumetAbs] =3D " &=20
OFrm.Controls(sLST).ItemData(PosI) & " AND [DATE]=3D #" &=20
Format$(Now(), "mm/dd/yyyy") & "#"))

1) Dans quelle mesure le champ [Type] peut il =EAtre=20
variable?
CAd =3D je souhaite pouvoir changer le champ qui me renvoie=20
la valeur dans un formulaire (plutot que d'=E9crire x fois=20
la m=EAme fonction avec des champs diff=E9rents)

2) m=EAme question mais dans une requete SQL :

cnn.Execute "SELECT R=E9gimePassage.NUDP, IIf
[AbsentParJour]![NUMET]>0,""A"",[R=E9gimePassage]![LU]) AS=20
LU1 INTO Base FROM AbsentParJour RIGHT JOIN R=E9gimePassage=20
ON AbsentParJour.NUMET=3DR=E9gimePassage.ELENOET WHERE=20
(((R=E9gimePassage.NUDP) > 0))ORDER BY R=E9gimePassage.NUDP;"


(les champ [LU] et [LU1] Correspondants =E0 lundi)

Pour l'instant une routine d=E9termine le num=E9ro du jour=20
system et suivant le cas =E9x=E9cute la requete ci-dessus

Jour =3D Weekday(Now(), vbMonday)

Select Case Jour
Case 1
routine ci-dessus avec [LU] [LU1]
case 2
routine ci-dessus avec [MA] et [MA1]
Etc..


A tous les courageux qui auront pris la peine de me=20
lire...Un Grand Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Guy DETIENNE
Salut ;O)

Première question :

Anciennement :
DLookup("[Type]", "AbsenceDp", "[NumetAbs] = " &
OFrm.Controls(sLST).ItemData(PosI) & " AND [DATE]= #" &
Format$(Now(), "mm/dd/yyyy") & "#"))

Nouvellement:

Dim MonChamp as String
MonChamp ="[Type]"

DLookup(MonChamp, "AbsenceDp", "[NumetAbs] = " &
OFrm.Controls(sLST).ItemData(PosI) & " AND [DATE]= #" &
Format$(Now(), "mm/dd/yyyy") & "#"))

2e question... Heu... un peu plus clair ? Il est tard là ;O)

Guy

--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD

"Didier" a écrit dans le message de
news:05c901c3b07c$b9a1ae40$
Bonsoir,
j'ai une fonction de ce type (merci GUY):

DLookup("[Type]", "AbsenceDp", "[NumetAbs] = " &
OFrm.Controls(sLST).ItemData(PosI) & " AND [DATE]= #" &
Format$(Now(), "mm/dd/yyyy") & "#"))

1) Dans quelle mesure le champ [Type] peut il être
variable?
CAd = je souhaite pouvoir changer le champ qui me renvoie
la valeur dans un formulaire (plutot que d'écrire x fois
la même fonction avec des champs différents)

2) même question mais dans une requete SQL :

cnn.Execute "SELECT RégimePassage.NUDP, IIf
[AbsentParJour]![NUMET]>0,""A"",[RégimePassage]![LU]) AS
LU1 INTO Base FROM AbsentParJour RIGHT JOIN RégimePassage
ON AbsentParJour.NUMET=RégimePassage.ELENOET WHERE
(((RégimePassage.NUDP) > 0))ORDER BY RégimePassage.NUDP;"


(les champ [LU] et [LU1] Correspondants à lundi)

Pour l'instant une routine détermine le numéro du jour
system et suivant le cas éxécute la requete ci-dessus

Jour = Weekday(Now(), vbMonday)

Select Case Jour
Case 1
routine ci-dessus avec [LU] [LU1]
case 2
routine ci-dessus avec [MA] et [MA1]
Etc..


A tous les courageux qui auront pris la peine de me
lire...Un Grand Merci
Avatar
Daniel Carollo
Bonjour Didier!

Juste une remarque d'ordre general: si vous avez un champ par jour, c'est
que votre structure est plutot bancale. Ce qui vous force a faire des
controsions abominables pour recuperer et traiter vos donnees. Le besoin de
repeter du code ou de re-ecrire des fonctions en changeant le nom du champ
est une sure indication que la structure de la base n'a pas ete optimisee.

J'irai meme jusqu'a dire qu'Excel est probablement l'outil de conception du
depart...

Une lecture de la litterature disponible sur la methode Merise devrait vous
aider grandement.

Bonne continuation.

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...


"Didier" wrote in message
news:05c901c3b07c$b9a1ae40$
Bonsoir,
j'ai une fonction de ce type (merci GUY):

DLookup("[Type]", "AbsenceDp", "[NumetAbs] = " &
OFrm.Controls(sLST).ItemData(PosI) & " AND [DATE]= #" &
Format$(Now(), "mm/dd/yyyy") & "#"))

1) Dans quelle mesure le champ [Type] peut il être
variable?
CAd = je souhaite pouvoir changer le champ qui me renvoie
la valeur dans un formulaire (plutot que d'écrire x fois
la même fonction avec des champs différents)

2) même question mais dans une requete SQL :

cnn.Execute "SELECT RégimePassage.NUDP, IIf
[AbsentParJour]![NUMET]>0,""A"",[RégimePassage]![LU]) AS
LU1 INTO Base FROM AbsentParJour RIGHT JOIN RégimePassage
ON AbsentParJour.NUMET=RégimePassage.ELENOET WHERE
(((RégimePassage.NUDP) > 0))ORDER BY RégimePassage.NUDP;"


(les champ [LU] et [LU1] Correspondants à lundi)

Pour l'instant une routine détermine le numéro du jour
system et suivant le cas éxécute la requete ci-dessus

Jour = Weekday(Now(), vbMonday)

Select Case Jour
Case 1
routine ci-dessus avec [LU] [LU1]
case 2
routine ci-dessus avec [MA] et [MA1]
Etc..


A tous les courageux qui auront pris la peine de me
lire...Un Grand Merci
Avatar
Didier
...snif...il est pas gentil Monsieur Guy...