Discussion :

[J_Yohan]

bonjour

je vous explique mon probleme j essai de realiser une requete de mise a jour a partir d'un critere laisser au choix a l 'utilisateur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case Me.Cadre38
Case 1
    strcritere = [PARFOR03]![AGEFOR]
Case 2
    strcritere = [PARFOR03]![NATFOR]
Case 3
    strcritere = [PARFOR03]![TYPEFOR]
Case 4
    strcritere = [PARFOR03]![FORFOR]
Case 5
    strcritere = "Autre"
End Select

parmi les choix si dessus mais strcritere n arrive pas a prendre les valeurs voulut, PARFOR03 est une table et le reste sont les champ de cet meme table

Code :

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

DoCmd.RunSQL "UPDATE WINTER INNER JOIN PARFOR03 ON (WINTER.IDENT1 = PARFOR03.PROFOR) AND (WINTER.IDENT0 = PARFOR03.NUMFOR) SET WINTER.GROUPE = '" & strcritere & "';"

merci d avance

johan

[jean-paul lepetit]

Salut,

peut être ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SELECT Case Me.Cadre38 
Case 1  
strcritere = "[PARFOR03]![AGEFOR]" 
Case 2  
strcritere = "[PARFOR03]![NATFOR]" 
Case 3  
strcritere = "[PARFOR03]![TYPEFOR]"
Case 4  
strcritere = "[PARFOR03]![FORFOR]" 
Case 5 
 strcritere = "Autre" 
End SELECT

Code :

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

DoCmd.RunSQL "UPDATE WINTER INNER JOIN PARFOR03 ON (WINTER.IDENT1 = PARFOR03.PROFOR) AND (WINTER.IDENT0 = PARFOR03.NUMFOR) SET WINTER.GROUPE = " & strcritere & ";"

[J_Yohan]

J ai deja essayer il prend alors le critere comme une chaine de caractere et non plus comme un champ

merci quand meme

[jean-paul lepetit]

tu as modifié aussi le docmd.runsql ?

[J_Yohan]

autant pour moi

ca marche merci beaucoup et bonne continuation