Discussion :

[Hamdi]

Bonjour,
mon souci est le suivant:
dans un formulaire, j'ai plusieurs Champs (type ZT, Cases à Cocher, ZLM)
en cliquent sur le bouton Enregistrer, je voudrais lancer une fonction qui me parcoure tous les champs et à chaque fois qu'elle trouve une case à cocher, elle doit me remplacer la valeur Faux 'Case non cochée' par 0 et la valeur Vrai par 1.

Info:
ma bdd est une bdd SQL Server.
mes formulaires sont sur Access
je travaille sur des tables liées.

Merci pour votre aide.

Imad

[Siu Lim Tao]

Salut,
Essaie en adaptant ce code à tes besoins :

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
Private Sub btnEnregistrer_Click()
 
On Error GoTo GestionErreurs
 
   DoCmd.SetWarnings False       'Désactive les messages d'alerte d'access
 
 
         DoCmd.RunSQL "UPDATE tbl1 SET tbl1.CaseACocher = True;"
 
 
   DoCmd.SetWarnings True
   DoCmd.Requery        'Actualise le formulaire
 
 
   Exit Sub
 
GestionErreurs:
   MsgBox "Erreur n° " & Err.Number & " - Descriptif : " & Err.Description
   DoCmd.SetWarnings True
 
End Sub

A+

[Hamdi]

Bonjour,
Merci pour votre réponse, mais ce n'est pas ce que je cherche.
en fait, ta solution est d'updater le contenu de la case à cocher dans la table directement.
mon problème est que je veux changer le contenu avant l'Update.

je peux passer sur chaque case à cocher et changer le contenu mais j'en ai 30.

Code :

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

1
2
3
4
 
if me.coche= False then
    me.coche=null
end if

donc je cherchais une fonction qui pourrait me le faire sans répéter le même code pour les 30.

Merci

[DMboup]

Il faut que tu parcours tous les contrôles de ton formulaire; que tu teste le type du contrôle (texbox, chekbox, label,...) et que tu change la valeur selon le type.

C'est un for Each ... Next qu'il te faut.

[Hamdi]

Bonjour,

comment peut-on parcourir tous les contrôles du formulaire ?

est-ce en faisant un :

Code :

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

1
2
3
4
5
6
7
8
 
For Each Ctl In Me.Controls
If Me.Ctl.Type = dbcheckbox then
   If Me.Ctl.Value='Faux' then
           Me.Ctl.Value = Null
   End If
End If
Next

Merci

Imad

[Hamdi]

Re,

C'est bon, en cherchant un peu loin et en optant pour une autre méthode (je remplace le contenu du champ au lieu du type de champ), j'ai trouvé en utilisant le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Ctl As Control
For Each Ctl In Me.Controls
If Me.Ctl.ControlType = AcControlType.acCheckBox then
   If Me.Ctl.Value= False then
           Me.Ctl.Value = Null
   End If
End If
Next Ctl

Merci pour votre Aide à tous