Discussion :

[pape bogus]

slt svp j'ai une requete nomme reqboum qui comporte 3 champ :nom prenom,physique,et je souhaiterais
a l'aide d'un recordset ajouter un nouveau champ nomme boum et le remplir
sous condition c a d si le champ physique contient la valeur dur alors
le champ boum prend la valeur bien sinon c'est la valeur mal:
Voici mon code que je n'arrive plus a termine

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function boum()
Dim rst1 As Recordset
Dim dtb As Database
Set dtb = CurrentDb
Set rst1 = dtb.OpenRecordset("reqboum")
Do While Not rst1.EOF
rst1.Edit
If rst1![physique] = "dur" Then
rst1![boum] = "bien"
Else
rst1![physique] = "mal"
End If
rst1.Update
rst1.MoveNext
Loop
End Function

[f-leb]

bonjour,

et pourquoi ne pas faire ça en lançant une requête "Mise à jour" :

Code sql :

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

1
2
UPDATE reqboum
SET [Boum] = iif([physique]="dur", "bien", "mal");

[marot_r]

On ne peu procéder ainsi.

La solution qui me parait la plus simple dans ton cas est de mettre dans ta requête un champ calculé Boom qui vaut iif([physique]="dur";"bien";"mal")Une variante consiste à utiliser une fonction publique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
public function CaclulerBienMal(prmPhysisque as string) as string
   dim result as string
 
   if prmPhysisque="dur" then
       result="bien"
     else
       result="mal"
   end if
 
   CaclulerBienMal=result
 
end function

avec le champ calculé Boom qui vaut CaclulerBienMal([physique])cela peut être intéressant si tu as une logique de décision compliqué. Le code VBA est plus facile à lire que le SQL.

A+

[pape bogus]

merci f-leb ton code sql je l'est mi dans une balise function
mais ca genère une erreur.
et j'ai plusieurs critere ce n'est pas seulemnt
car je vx aussi poser cette condition si physique egale a dur ou bing ou tring ou slim .la keske je doit faire

[pape bogus]

merci marot r ms le iif marche seulement avec 2 critère ms
il se trouve que j'ai plusieurs critères cmt faire
car je vx aussi poser cette condition si physique egale a dur ou bing ou tring ou slim .la keske je doit faire
et puis la fonction publique sert a quoi stp

[f-leb]

Même mon traducteur SMS-Français est à genoux et implore ta clémence... Merci de reposer la question en respectant les règles du forum cette fois.

[marot_r]

Si mon décodeur de SMS a fonctionné correctement je pense la réponse pourrait être :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public function CaclulerBienMal(prmPhysisque as string) as string
   dim result as string
 
   select case prmPhysisque
        case "dur" : result="bien"
        case "slim" : result = "Appreciation pour Slim"
        case "bing" : result = "Appreciation pour bing"
        case "tring" : result = "Appreciation pour tring"
        case else : result="bien"
   end select
 
   CaclulerBienMal=result
 
end function

La fonction est à mettre dans un module et peut être ensuite appelée d'une requête.

Une autre solution serait d'utiliser une table de correspondance et une jointure. Ce serait probablement plus performant, et permettrai d'ajoutrer des décodage SANS modifier le code.

Table AssessementPhysique
CodePhysique (ex : "dur" ou "bing" ou "tring" ou "slim")
AppreciationPhysique (ex : "bien" pour "dur")

A+

[pape bogus]

fleb et maro r je recapitule ma preoccupation:
j'ai une table nommé table1 et j'ai creer une requete req1 qui me donne un bon resultat et c'est a partir de cette requette que je souhaiterai ajouter un champ nommé categorie qui prendra des valeur en fonction de certain critère a savoir:
est ce que c'est possible a partir dun recordset ou proposer moi une solution.merci

Code :

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

1
2
3
4
si niveau =4eme ou niveau=5eme ou niveau =4eme
categorie=ado
sinon
categorie=blaa

voici un apercus de mon code et mon fichier
[CODE]Function boum()

[Tofalu]

Utilisez la fonction IIF dans la source de votre requête. Cette donnée n'a pas besoin d'être stockée dans une table puisqu'elle est calculée.

[pape bogus]

tofalu mercii ms comment doit je l'utiliser si j'ai plusieurs critères comme je l'ai dit dans ma preoccupation

[f-leb]

Code :

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

 iif([Physique] in ("dur","bing","trim","slim"), "bien", "mal")

[Tofalu]

Sinon, il y a aussi la fonction Switch ou PremVrai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT
 
	Switch(
		[Age]<3,"Bebe",
		[Age]<12,"Enfant",
		[Age]<18,"Ado",
		[Age]<60,"Adulte",
		[Age]<150,"Senior",
		[Age]>=150,"Momie"
		) AS Initule
 
FROM 
	RequeteDesAges