Discussion :

[faressam]

autant pour moi
non j'ai 3 champs

un champ text : ' " & Me!Monchamp & " '

un autre Numérique : " & Me!Monchamp &"

et un champ monétique : ??

[bernardmichel]

La seule solution pour s'en sortir du problème posé est que tu me montres TA formule !

La fonction DLookup se décompose en trois parties :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DLookup ("Première partie";"Seconde partie";"Troisième partie")

PremièrePartie : Le nom du champ que tu recherches
SecondePartie : Le nom de la table dans laquelle se trouve "Première partie"
TroisièmePartie : La condition. Soit par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
"TroisièmePartie = 65"                         Exemple pour un chiffre fixe
"TroisièmePartie = " & Me!MonChamp     Exemple pour une référence à un champ de formulaire
"TroisièmePartie = " & MaVariable          Exemple pour l'emploi d'une variable

Voilà, à partir de là, le mieux est que tu m'envoyes ta formule pour que je voie s'il y a quelque chose que je n'avais pas compris...

[faressam]

oui merci j'avais bien compris tous ça, mais le probléme c'est comment passer en paramétre le Type Monétique : Currency, ou Numérique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"TroisièmePartie = " & Me!MonChamp ' Texte

[bernardmichel]

F1 de Access sur "currency" :
Currency, type de données


Les variables de type Currency sont stockées sous la forme de nombres de 64 bits (8 octets) au format entier, avec un décalage de 10 000 afin d'obtenir un nombre à virgule fixe comprenant 15 chiffres à gauche du séparateur décimal et 4 chiffres à droite. Cette représentation offre une plage comprise entre -922 337 203 685 477,5808 et 922 337 203 685 477,5807. Le caractère de déclaration de type Currency est le signe @.

Le type de données Currency est utile pour les calculs monétaires et pour les calculs à virgule fixe dans lesquels la précision revêt une importance particulière.

A partir de cette information : "Currency est un nombre", tu appliques la formule telle que je te l'ai déjà donné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dlookup("FREQFI";"T_Pilot_modifié";"N°fiche = " & Me!MonChamp)

Par contre, comme je te l'ai déjà demandé à plusieurs reprises, ce serait beaucoup plus simple si tu me donnais TA PROPRE FORMULE et LE CONTEXTE DANS LEQUEL ELLE AGIT !!

Travailler avec les yeux bandés, cela va un moment mais il vient un instant où l'on a l'impression de perdre son temps...

[alassanediakite]

Salut
Je ne comprend pas du tout ce qui se passe ici.
C'est un problème posé par mulanzia2003 ou Faressam?
Ne s'agit-il pas de recherche d'enregistrements corespondants dans deux tables différentes? du genre chercher touts les pilotes ayant fait un tour sur Mars ou Jupiter ou Saturne
@+

[bernardmichel]

Salut Alassane,

C'est effectivement une bonne question, je n'y avais pas pris garde

Mais dans le fond... peu importe je crois ???

L'essentiel n'est-il pas de faire avancer le smilblick ??

[faressam]

Tu as raison, j'espère que je n'ai pas pollué le Topic de "mulanzia2003 ", mais
c'est pour avancer le Topique, et dégager de nouvelles idées.

Pour ma formule, j'ai écris ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim varX as Variant
 
varX = DLookup("[codes]" , "Table1" , "[Nom] =" & Me!nom) "
 
codes.value = varX

Mais ça me remplie pas mon champ texte "codes".

[bernardmichel]

Tu as raison, j'espère que je n'ai pas pollué le Topic de "mulanzia2003 ", mais
c'est pour avancer le Topique, et dégager de nouvelles idées.

Pour ma formule, j'ai écris ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim varX as Variant
 
varX = DLookup("[codes]" , "Table1" , "[Nom] =" & Me!nom) "
 
codes.value = varX

Mais ça me remplie pas mon champ texte "codes".

Alors essaies la même mais sans les [], soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim varX as Variant
 
varX = DLookup("codes" , "Table1" , "Nom =" & Me!nom) "
 
codes.value = varX

Cela devrait fonctionner de cette façon !

[bernardmichel]

Par contre, je m'interroge à deux niveaux:

1. Pourquoi initialises-tu la variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim varX as Variant

alors que manifestement cela devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim strX as String

... puisqu'un nom est généralement du texte.

2. "codes.value" ne fonctionne pas à mon avis car si Access l'acceptait, ton code serait immédiatement corrigé en "codes.Value".
Pour moi, ce qui fonctionnerait serait plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim strX as string
...
Me!codes = strX

[faressam]

Pour moi ça marche maintenant avec le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim varX as Variant

.

Par contre comment passer plusieurs critères dans la même ligne, ou bien demander plusieurs Résultats dans la Même Ligne Aussi.

[Invité]

Bonjour

Pour plusieurs critéres il faut utiliser les fonction AND, etc...
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DLookup("[codes]" , "Table1" , "[Nom] =" & Me!nom) &" AND " & Prenom =...

Avec la fonction DLookup tu n'auras qu'une seule donnée, la première trouvée, il faut utiliser des Recordset pour avoir plusieurs résultats.

Starec

[faressam]

oui ta raison avec Record Set, ça fournie plusieurs résultas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim Bd as Database
Dim rs as RecordSet
Dim chaine as String
 
' Requette 
 
chaine = "Select ......
 
Set Bd = CurrentDb ()
Set rs = Bd.OpenRecordset(chaine, dbOpenDynaset)