Discussion :

[grpoirier]

Bonjour

J ai une requête de mise a jour

Code :

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

1
2
3
4
5
6
Private Sub Coef_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
Dim strSQL As String
strSQL = "UPDATE [T_Contenu devis] SET [T_Contenu devis].coef = " & Replace(CStr([Forms]![F_Devis].Coef.Column(0)), ",", ".") & " WHERE [T_Contenu devis].ID_devis=" & Forms("F_devis").ID_devis
CurrentDb.Execute strSQL
DoCmd.RunCommand acCmdSaveRecord

J aimerai y ajouter une condition
si ma checkbox

Code :

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

[Formulaires]![F_Devis]![SF_ligne_devis].[Formulaire]![scoef]=0

Je pensais ajouter un AND apres mon where mais cela ne marche pas...


merci!

[madefemere]

Bonjour,

Une combinaison de critères avec AND n'est effectivement pas possible vu que tes conditions sont l'une dans le formulaire "Devis" et l'autre dans le sous-formulaire "SF_ligne_devis"
Si j'ai compris, ta proposition serait :
Mettre à jour par Replace(CStr([Forms]![F_Devis].Coef.Column(0)), ",", ".") la valeur du champ coef dans la table [T_Contenu devis] dont ID_devis est égal à la valeur dans le formulaire principal Forms("F_devis").ID_devis ET les coefficients dans le sous-formulaire [Formulaires]![F_Devis]![SF_ligne_devis].[Formulaire]![scoef]=0 sont égaux à 0.
Si nous sommes logiques, le sous-formulaire est basé sur la table [T_Contenu devis].
Donc le code serait :

Code :

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

strSQL = "UPDATE [T_Contenu devis] SET [T_Contenu devis].coef = " & Replace(CStr([Forms]![F_Devis].Coef.Column(0)), ",", ".") & " WHERE [T_Contenu devis].ID_devis=" & Forms("F_devis").ID_devis & " AND [T_Contenu devis].coef =0"

Cordialement.

[grpoirier]

MErci beaucoup!!!!

Je l ai adapté pour qu il fonctionne en

Code :

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

strSQL = "UPDATE [T_Contenu devis] SET [T_Contenu devis].coef = " & Replace(CStr([Forms]![F_Devis].Coef.Column(0)), ",", ".") & " WHERE [T_Contenu devis].ID_devis=" & Forms("F_devis").ID_devis & " AND [T_Contenu devis].scoef =0"

Par contre j aimerais que si scoef=0 alors [T_Contenu devis].coef =1

....

jouable?

[madefemere]

Hum, je ne comprends pas.

1 n'est pas une valeur comprise dans les Replace(CStr([Forms]![F_Devis].Coef.Column(0)), ",", ".")
Est-ce que c'est pour tous les scoef=0 ou en combinaison avec les valeurs de l'Id_Devis du formulaire principal ?

Cordialement,

[grpoirier]

Effectivement
Pour tous les scoef= vrai
coef = 1

[madefemere]

Indépendamment de la valeur de Id_Devis, ce sera :

Code :

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

strSQL = "UPDATE [T_Contenu devis] SET [T_Contenu devis].coef = 1 WHERE [T_Contenu devis].scoef =-1"

Je donne le code comme je comprends tes questions parce que dans une requête mise à jour, il faut bien identifier les champs et tables à mettre à jour et les éventuels champs et critères. Là tu parles à demi-mots.

Cordialement,

[grpoirier]

C'est parfait!

Merci beaucoup!