Discussion :

[doogybreton]

bonjour,

je creer un code de creation d'un code sql pour afficher des resultats multicritère...comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub btnrech_Click()
'........du code
SQLWhere = " WHERE (((ReqTOUT.SAMPLE_NUMBER)<>'0')"
' si chkgenotype cocher alors prendre valeur ds la boxgenotype
If Me.Chk_genotype.Value = True Then
     SQLWhere = SQLWhere & " AND ((ReqTOUT.Tblsemoule.GENOTYPE)=[Formulaires]![FrmRecherche]![boxgenotype])"
End If
'si chk_annee est cocher alors prendre la valeur ds la boxannée
If Me.Chk_annee.Value = True Then
    SQLWhere = SQLWhere & " AND ((ReqTOUT.ANNEE)=[Formulaires]![FrmRecherche]![boxANNEE])"
End If
'....du code

et j'aimerai faire afficher une boite de dialogue qui avertie si l'une des cases chk est cocher mais que la box ne relation n'est pas remplie (erreur de l'utilisateur) ..parce que sinon mon code sql ne marcherai plus
si par exemple il coche le chk_annee mais nentre aucune valeur dans la box année
merci

[FreeAccess]

Bonjour,

Voici un début de réponse à ton problème.....(à adapter à tes besoins..)...

Le principe:...(..pour exemple..)

Sur un formulaire, je dispose 6 contrôles CheckBox indépendants dont je régle la propriété Valeur par défaut = 1 pour le premier contrôle, puis sur 2 pour le second.......et ainsi de suite jusqu'à 6.

Sur ce même formulaire, six (6) TextBox que je nomme txt1 jusqu'à txt6.
La TextBox "txt1" correspond à la case à cocher ayant sa valeur par défaut = 1

Maintenant, le code qui va permettre de contrôler que si une CheckBox est cocher alors son TextBox associé doit être remplie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdValider_Click()
Dim ctl As Control
For Each ctl In Me.Controls
' si mon contrôle est de type CheckBox
    If ctl.ControlType = acCheckBox Then
' si celui ci est coché est que le TextBox associé est vide alors.....
        If ctl.Value = True And (IsNull(Me.Controls("txt" & ctl.DefaultValue))) Then
'....j'affiche une boîte de message m'indiquant une erreur
            MsgBox "La zone de texte de la Case à cocher " & ctl.DefaultValue & " est vide"
        End If
    End If
Next
End Sub

Voila, il y a peut-être plus simple...mais ce code fonctionne parfaitement pour ce que tu désire faire......

Bonne continuation....

[EDIT]........effectivement ce code peut fonctionner...mais l'utilisation de la propriété "Valeur par défaut" n'est pas judicieuse....
Donc en gardant le même principe, nomme tes cases à cocher en leur attribuant un numéro (chk1, chk2, chk3.....) et modifie le code comme ci-dessous...:

Code :

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

1
2
3
4
' si celui ci est coché est que le TextBox associé est vide alors.....
        If ctl.Value = True And (IsNull(Me.Controls("txt" & Right(ctl.Name, 1)))) Then
'....j'affiche une boîte de message m'indiquant une erreur
            MsgBox "La zone de texte de la Case à cocher " & Right(ctl.Name, 1) & " est vide"

......beaucoup mieux........

[doogybreton]

oki merci ..le code est super !
seulement jai pas encore verifier mais est ce que si la txtbox est rempli avec la valeur 0..est elle considéré comme null? si oui ne vas t'elle pas poser un souci?

[FreeAccess]

.....

...si la txtbox est rempli avec la valeur 0..est elle considéré comme null?

...j'ai testé......ici je vérifie uniquement si le TextBox contient une valeur ou non.....mais pas la donnée elle même.......
....donc si ton TextBox contient "0" ....alors la textbox est considére comme remplie...

[doogybreton]

super bien merci beaucoup!!!

[doogybreton]

oups encore une petite question a ce propos
si la case est non remplie il doit afficher la boite de dialogue
mais il faut ensuite que la lecture du code aprés soit interrompu

en fait j'ai ouverture d'un autre formulaire de resultat qui doit se lancer ..et donc si une case nes pa rempli il met la boite de dialogue et ne lance pa la suite du code qui ouvre le formulaire ^^"

[doogybreton]

c bon j'ai reussi avec exit sub dans le if...