Discussion :

[Xof68]

Bonjour,

j'ai une table avec un champ booléen donc les valeurs sont vrai ou faux selon les enregistrements.
J'aimerai pouvoir réinitialiser toutes les valeurs à faux (défaut) en passant par une MsgBox.
Mais comment faire......?

merci pour votre aide !

Christophe

[madefemere]

Bonjour,

J'ai pas très bien compris l'idée du message box, mais ce code devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
Public Function initialiser()
Dim Reponse As String
Reponse = MsgBox("Initialiser valeurs ?", vbYesNo)
If Reponse = vbYes Then
DoCmd.RunSQL "UPDATE Table1 SET Table1.ChampBooleen = False"
End If
End Function

Bonne continuation

[Xof68]

ça fonctionne impeccable !!!

merci beaucoup

[madefemere]

N'oublies pas le tag si c'est bon.