Discussion :

[rungis78-76]

Bonjour,

je suis nouveau sur le forum et je post car contrairement à d'habitude je ne trouve pas la solution à mon problème dans les posts existants.

voici le problème :
j'ai un formulaire permettant la consultation et la mise à jour d'une table (après clique sur un bouton) via une requête écrite directement dans le code VBA.
Le code est de la forme :

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
17
18
19
20
21
22
Private Sub btn_sauvegarder_Click()

Dim SQLUpdate As String
Dim msg As VbMsgBoxResult

msg = MsgBox("Voulez-vous sauver les modifications apportées à la fiche d'écart ?", vbYesNo, "Sauvegarder ?")

Select Case msg
    Case vbYes

SQLUpdate = "UPDATE tb_FE "
SQLUpdate = SQLUpdate + "SET tb_FE.FeEcart = '" & txt_FeEcart & "', "
SQLUpdate = SQLUpdate + "tb_FE.FeEcartMainOeuvre = '" & cac_FeEcartMainOeuvre & "', "
(.........)
SQLUpdate = SQLUpdate + "WHERE tb_FE.FeId = '" & txt_FeId & "';"

CurrentDb.Execute (SQLUpdate)

    Case vbNo
msg = MsgBox("Action annulée", vbOKOnly)

End Select

Le problème se trouve au niveau des cases à cocher (partie soulignée), le champ associé (tb_FE.FeEcartMainOeuvre) est de type oui/non.
Lorsque sur un enregistrement sélectionné (par une zone de liste) à pour valeur du champs vrai et que lors de mon update je ne touche pas à cette valeur, elle passe automatiquement à faux alors que je n'ai pas décoché la case dans mon formulaire... bizarre.

Sur tous les autres contrôles (textbox, zone de liste déroulante, ...) aucun problème.

J'éspère avoir été assez clair et vous remercie d'avance pour vos réponses.

Rémi

[GillesDeVuif]

Bonjour.

Peut-être qu'en supprimant les quotes, tu recevras effectivement une valeur binaire, et non une chaîne (Null en binaire):

Code :

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

SQLUpdate = SQLUpdate + "tb_FE.FeEcartMainOeuvre = " & cac_FeEcartMainOeuvre & ", "

Cordialement.

[rungis78-76]

Bonjour,

j'avais déjà essayer cette technique mais malheureusement, cette manip me provoque une erreur 3061 (trop peu de paramètres)

[GillesDeVuif]

Bonjour.

Peux-tu STP poster ce que renvoie ton debug.print pour SQLUPDATE ?

en utilisant la ligne suivante :

Code :

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

SQLUpdate = SQLUpdate + "tb_FE.FeEcartMainOeuvre = " & Me.cac_FeEcartMainOeuvre.Value & ",

Cordialement

[nico84]

Bonjour,

Le plus sûr est une syntaxe du type

Code :

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

& iif(monboolean, -1, 0) &...

[rungis78-76]

merci et désolé de la lenteur de mes retours, je fais cela au travail et je n'ai malheureusement pas toujours le temps de m'y pencher.

voici le retour de mon debug.print :

Code :

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

UPDATE tb_FE SET tb_FE.FeEcart = 'ecart', tb_FE.FeEcartMainOeuvre = Faux

Sinon, concernant la remarque de nico84, je ne connais pas cette syntaxe, peux tu expliquer ?

merci