[VBA UPDATE] Problème UPDATE et cases à cocher
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:
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
