Discussion :

[lerg89]

Bonjour à tous,

J'ai un formulaire d'ajout me permettant d'enregistrer des valeurs dans ma base de données. Ces champs sont répartis dans une vingtaine de tables différentes.
L'utilisateur a soit la possibilité de remplir le champs dans le formualire, soit, si il ne connait pas encore la valeur, mettre Unknown ou 0.
Je souhaiterai pouvoir compter le nombre de champs Unknown ou 0 enregistrés dans mon formulaire. Est-ce possible ? Si oui comment puis-je faire ?
Si vous avez des idées, faites m'en part

Merciii

[zoom61]

Salut,

Comment se passe l'ajout : As-tu un bouton Ajout ?

@+.

[lerg89]

Et bien oui enfaite j'ai un formulaire principale et j'ai un bouton Ajout, qui sur clic, ouvre mon formulaire d'ajout. Ensuite, je rentre ce que je veux dans mes champs. Soit j'ai une valeur à entrer et dans ce cas la je la rentre, soit j'ai placé une valeur par défaut Unknow ou 0 en fonction du type de données

[zoom61]

Mais comment est validée ton ajout de ton second formulaire : par un bouton, cela le met automatique dans la table...

@+.

[lerg89]

Oui exactement

[zoom61]

Il faut donc passer par du VBA qui balaie tous les champs, et faire un compteur si la valeur est null ou égale à 0, mettre +1.

@+.

[lerg89]

Oui je me doute bien, mais le problème est que je ne sais pas comment balayer tous mes champs qui sont répartis dans une vingtaine de tables différentes..

[cfiji]

Bonjour,

est-ce que ça marcherais avec un dlookup??
Basé sur une requête??

[zoom61]

Salut,

Code :

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

1
2
3
4
5
6
Dim ctl As Access.Control
Dim a = 0
    For Each ctl In Me.Controls
        if ctl.value = 0 or ctl.value = "Unknow" then a = a + 1
    Next
msgbox a

@+.

[lerg89]

Bonjour,

Merci pour ta réponse, j'ai tester ton code mais j'ai une erreur de compilation, Visual Basic ne comprend pas ctl.Value = 0.
Auriez vous une autre idée ?
Help...

Merci

[Bragon12]

Ca ne viendrai pas du fait qu'il y a des boutons dans ton formulaire?
POur vérifier sur quel contrôle celà pose problème tu peux insérer dans ta boucle :

Code :

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

1
2
3
4
    For Each ctl In Me.Controls
        MsgBox ctl.Name
        MsgBox ctl.Value
        if ctl.value = 0 or ctl.value = "Unknow" then a = a + 1

Sinon, pour parcourir tes contrôles tu peux les nommer control1, control2,...., controlN et tu crées une boucle de 1 à N pour parcourir chaque contrôle que tu souhaites vérifier.

[lerg89]

Si il y'a des boutons dans mon formulaire mais je ne vois pas pourquoi cela cracherai, car ces boutons sont juste pour effectuer une sortie en pdf ou sur un fichier excel.
Je vais tester pour chaque itération avec ta méthode et je reviendrais vers toi.
Je te remercie beaucoup!

[lerg89]

Alors c'est très bizarre car le code que j'ai inséré crash dès la première etiquette, qui est mon étiquette de titre..

[lerg89]

Et si je nomme mes contrôle, c'est à dire les champs correspondants dans mon formulaire, il suffit de faire par exemple:
controle1 = monchamps1
controle2 = monchamps2
...
?

[lerg89]

J'ai réussi à faire un code qui tourne et qui me donne bien le nombre de champs dans mon formulaire qui ont les valeurs 0, Unknown ou None.
Je vous donne mon code si sa peu intéresser certains.

Dim x As Control
Dim a As Integer
a = 0
For Each x In Me.Controls
If TypeOf x Is TextBox Then
If x.Value = 0 Or x.Value = "Unknown" Or x.Value = "None" Then a = a + 1
End If
Next
MsgBox a
End Sub

Merci à tous pour votre aide,
Bonne continuation.