[AC-2007] Boucles avec champs d'un formulaire [Résolu]

[zemblamoh]

Bonjour,
J'ai un formulaire Access (projet ADP) en table de données avec des colonnes ou champs (id, A, B, C, etc...) où id est texte et le reste numérique. J'aimerai en VBA avec l'aide d'une boucle genre FOR...NEXT designer chaque champ numérique de mon formulaire et y pratiquer dessus un calcul genre somme par exemple. Pouvez vous m'indiquer le code VBA pour designer un champ numérique et comment l'insérer dans une boucle.
Merci pour toute aide

[ClaudeLELOUP]

Bonjour,

As-tu vu cet item de la FAQ ?

[zemblamoh]

Merci pour la réponse.
J'ai déjà vu ce tutorial et j'ai essayé le code mais le programme bloque au niveau de:

FOR Each ctrl in FrmTable1.Controls

Il m'affiche le message suivant:
Objet requis.
En plus j'aurai de la peine à lui faire savoir si mon ctrl est numérique ou texte.
Merci

[ClaudeLELOUP]

Voici un exemple.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub btTest_Click()
Dim ctl As Control
For Each ctl In Me.Controls
  If IsNumeric(ctl) Then
    MsgBox "Mon nom est : " & ctl.Name & vbLf _
           & "Mon type est numérique."
  ElseIf IsDate(ctl) Then
    MsgBox "Mon nom est : " & ctl.Name & vbLf _
           & "Mon type est une date."
  Else
    MsgBox "Mon nom est : " & ctl.Name & vbLf _
           & "Mon type est du texte."
  End If
Next ctl
End Sub

En annexe, la preuve que ça marche.

[zemblamoh]

Le problème est réglé avec votre code.
En plus ça m'a permis de trouver la solution à une question que j'ai posée ailleurs (IHM) et qui était relatif au masquage de certains champs dont la somme est égale à zéro ou reste vide. Voici le programme finale au cas où :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Current()
Dim ctrl As Control
'
For Each ctrl In Me.Controls
'Debug.Print ctrl.Name
On Error Resume Next
If IsNumeric(ctrl) Or IsNull(ctrl) Then
s_ctrl = DSum(ctrl.Name, "Table1")
If s_ctrl = 0 Or IsNull(s_ctrl) Then
ctrl.ColumnHidden = True
Else
ctrl.ColumnHidden = False
End If
End If
'
Next
End Sub

Merci encore