[A-03]Aide Code If sur groupe d'option

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Situation : un groupe d'option nommé quickseak avec 2 valeurs 1 et 2
un texte indépendant pour saisie de valeur type numérque
un bouton ok pour valider.

Objectif :
- si aucune des cases n'est sélectionnée, je veux un msgbox pour la situation
- si 1 case est sélectionnée mais aucune valeur entrée dans la zone de texte indépendante, un autre msgbox de circonstance
- si aucune case n'est sélectonnée mais que la zone de texte est remplie, le msg box du premier cas de figure.

Mon problème:
Voici mon code au départ, et pour lequel je m'emmêle les pinceaux car je n'arrive plus à jouer avec les IF sans alourdir le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Private Sub Commande62_Click() If Me.quickseak.Value = 1 Then Form_HOME.ACTUALISATION.Visible = True Form_HOME.ACTUALISATION.SetFocus Form_HOME.MENU.Visible = False Dim rec As Recordset Set rec = Form_HOME.ACTU.Form.Recordset rec.FindFirst ("Réfdossier =" & Me.Texte63.Value) Set rec = Nothing Else MsgBox "Veuillez sélectionner un critère de recherche", vbInformation + vbOKOnly, "AVERTISSEMENT" If Me.quickseak.Value = 2 Then Form_HOME.ACTUALISATION.Visible = True Form_HOME.ACTUALISATION.SetFocus Form_HOME.MENU.Visible = False Set rec = Form_HOME.ACTU.Form.Recordset rec.FindFirst ("Réfmandat =" & Me.Texte63.Value) Set rec = Nothing Else MsgBox "Veuillez sélectionner un critère de recherche", vbInformation + vbOKOnly, "AVERTISSEMENT" If Me.Texte63.Value = "" Then MsgBox "Veuillez entrer une référence.", vbInformation + vbOKOnly, "AVERTISSEMENT" End If End If End If End Sub
Quelqu'un peut m'aider à démêler mon nœud ?

Merci par avance

rapide mais simple :
Code:

1 2 3 4 5 6 7 8 if Me.quickseak.Value <1 then msgbox "objectif 1 et 3" else if isnull(me.Texte63.value)=true then msgbox "objectif n°2" endif endif
pour ce qui est du textbox, il vaut mieux le renommer car quand tu en aura 20 sur le même formulaire, ca sera pas simple à gérer ;)

13/10/2008, 16h05
Nessie37

merci amigo, je vais tester de suite.
C'est la syntaxe qui me fait défaut. Je ne savais pas que je pouvais utliser < ou >. je savais pour <>...

Bref je te dis ça de suite.

Voici ce que j'ai :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
If Me.quickseak.Value < 1 Then
MsgBox "Veuillez sélectionner un critère de recherche", vbInformation + vbOKOnly, "AVERTISSEMENT"
Else
If IsNull(Me.Texte63.Value) = True Then
MsgBox "Veuillez entrer une référence.", vbInformation + vbOKOnly, "AVERTISSEMENT"
Else
If Me.quickseak.Value = 1 Then
    Form_HOME.ACTUALISATION.Visible = True
    Form_HOME.ACTUALISATION.SetFocus
    Form_HOME.MENU.Visible = False
    Dim rec As Recordset
    Set rec = Form_HOME.ACTU.Form.Recordset
    rec.FindFirst ("Réfdossier =" & Me.Texte63.Value)
    Set rec = Nothing
 
If Me.quickseak.Value = 2 Then
    Form_HOME.ACTUALISATION.Visible = True
    Form_HOME.ACTUALISATION.SetFocus
    Form_HOME.MENU.Visible = False
    Set rec = Form_HOME.ACTU.Form.Recordset
    rec.FindFirst ("Réfmandat =" & Me.Texte63.Value)
    Set rec = Nothing
 
End If
End If
End If
End If
End Sub

ça fonctionne, sauf que j'ai le msgbox du 2ème obj qui s'affiche quand bien même aucune option n'a été cochée, mais ça je vais m'en dépatouiller je pense.
Il y a t-il un moyen d'alléger ce code ?

Quel code dois-je mettre si la valeur entrée ne correspond (erronée ou introuvable) à aucun enregistrement (j'y mettrai un msgbox d'ailleurs) ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim rec As Recordset
If Me.quickseak.Value < 1 Then
    MsgBox "Veuillez sélectionner un critère de recherche", vbInformation + vbOKOnly, "AVERTISSEMENT"
Else
    If IsNull(Me.Texte63.Value) = True Then
        MsgBox "Veuillez entrer une référence.", vbInformation + vbOKOnly, "AVERTISSEMENT"
    Else
        Form_HOME.ACTUALISATION.Visible = True
        Form_HOME.ACTUALISATION.SetFocus
        Form_HOME.Menu.Visible = False
        Set rec = Form_HOME.ACTU.Form.Recordset
 
        If Me.quickseak.Value = 1 Then
            rec.FindFirst ("Réfdossier =" & Me.Texte63.Value)
        ElseIf Me.quickseak.Value = 2 Then
            rec.FindFirst ("Réfmandat =" & Me.Texte63.Value)
        End If
        Set rec = Nothing
    End If
End If
End Sub

13/10/2008, 16h55
Nessie37

Merci pour ton intervention.
C'est plus allégé effectivement...
Mais ça ne règle pas le problème de valeur erronée ou inexistante.
Quand je saisie une valeur je suis par défaut balancée sur le premier enregistrement. Comment faire ?

Je crois que si tu donnais à ton groupe d'option une valeur par défaut (0 par exemple) tu t'en sortirait sans effort.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
'Si  quickseak à 0 comme valeur par défaut
If me.quickseak=0 then
    'ton premier msgbox
Else
     If Isnull(me.TaZonedeTexte) Then
             'ton second msgbox
     else
             'ton traitement
     End If
End if

13/10/2008, 17h16
Nessie37

Moui sûrement, mais je en sais pas ce que tu veux dire :lol::D
Moi, à la création de mon groupe, j'ai donné les valeurs 1 et 2 à mes options. Mais ce n'est peut-être pas ça dont tu parles
13/10/2008, 17h23
DMboup

Citation:

Envoyé par Nessie37

Moi, à la création de mon groupe, j'ai donné les valeurs 1 et 2 à mes options.

ce qui veut dire que lorsque tu choisi une des options, ton groupe prend cette valeur.

Mais si tu ne choisi rien du tout, quelle valeur ton groupe va prendre?
Est ce que cette valeur (inconnue) est toujours < 1 comme tu le testes dans ton code?

Oki (je me doutais bien que ça voulait dire ça) .
Donc, j'ai mis 0 à la place de <1 mais ça ne change rien là de toute façon...quand j'ai strictement rien de renseigné, j'ai le 2ème msgbx qui s'affiche, alors que je veux le premier, et si je renseigne une valeur erronée, je suis basculée par défaut sur mon premier enregistrement...
Mieux, quand je ne sélectionne aucun critère et que j'entre une valeur, je suis également basculée sur un enregistrement sans que le msgbox ne se déclenche
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub Commande62_Click() If Me.quickseak.Value = 0 Then MsgBox "Veuillez sélectionner un critère de recherche", vbInformation + vbOKOnly, "AVERTISSEMENT" Else If IsNull(Me.Texte63.Value) = True Then MsgBox "Veuillez saisir une référence.", vbInformation + vbOKOnly, "AVERTISSEMENT" Else Form_HOME.ACTUALISATION.Visible = True Form_HOME.ACTUALISATION.SetFocus Form_HOME.MENU.Visible = False Dim rec As Recordset Set rec = Form_HOME.ACTU.Form.Recordset If Me.quickseak.Value = 1 Then rec.FindFirst ("Réfdossier =" & Me.Texte63.Value) ElseIf Me.quickseak.Value = 2 Then rec.FindFirst ("Réfmandat =" & Me.Texte63.Value) End If Set rec = Nothing End If End If End Sub

13/10/2008, 17h57
DMboup

Citation:

Envoyé par Nessie37

Donc, j'ai mis 0 à la place de <1

Mais avant il faut que tu donnes une valeur par défaut à ton groupe d'option.
En mode création, selectionnes le groupe et regarde dans les propriétés pour ca.
13/10/2008, 18h19
Nessie37

Citation:

Envoyé par DMboup

Mais avant il faut que tu donnes une valeur par défaut à ton groupe d'option.
En mode création, selectionnes le groupe et regarde dans les propriétés pour ca.

Chose faite !
quand je n'ai strictement rien de renseigné, le 1er msgbx s'affiche, c'est OK !

Mais si je renseigne une valeur erronée, je suis toujours basculée par défaut sur mon premier enregistrement...Et je n'arrive pas à trouver la syntaxe pour avoir un msgbx quand la valeur saisie est erronée et que ça ne bascule nulle part.
13/10/2008, 18h29
DMboup

Citation:

Envoyé par Nessie37

...Et je n'arrive pas à trouver la syntaxe pour avoir un msgbx quand la valeur saisie est erronée

Quand fait tu un test sur la valeur saisie?

Citation:

je suis toujours basculée par défaut sur mon premier enregistrement ... et que ça ne bascule nulle part.

Je ne comprend pas !
13/10/2008, 18h37
Nessie37

Une fois que j'ai coché un critère, je tape une valeur qui n'existe pas dans mes enregistrements, et donc ça me m'ouvre l'onglet sur un enregistrement et il se trouve que c'est le premier.

Exemple :
je sélectionne "référence dossier", et j'entre 1111 puis OK, bah je tombe sur un dossier qui n'a pas la référence 1111 (normal elle n'existe pas) mais c'est le premier dossier de ma liste. En fait, ça m'ouvre tout simplement le formulaire de consult tout bêtement.

Citation:

Envoyé par Nessie37

Une fois que j'ai coché un critère, je tape une valeur qui n'existe pas dans mes enregistrements, et donc ça me m'ouvre l'onglet sur un enregistrement et il se trouve que c'est le premier.

Ok d'accord. C'est le FindFirst qui ne marche pas.

A la place, j'aurais juste créeé un filtre et non un recordset
j'aurais remplacé cette partie

Citation:

Dim rec As Recordset
Set rec = Form_HOME.ACTU.Form.Recordset
If Me.quickseak.Value = 1 Then
rec.FindFirst ("Réfdossier =" & Me.Texte63.Value)
ElseIf Me.quickseak.Value = 2 Then
rec.FindFirst ("Réfmandat =" & Me.Texte63.Value)
End If
Set rec = Nothing

par celle la
Code:

1 2 3 4 5 6 7 8 9 10 11 dim mcri as String If Me.quickseak = 1 Then mcri = "Réfdossier Like ""*" & Me.Texte63 & "*""" else mcri = "Réfmandat Like ""*" & Me.Texte63 & "*""" End If Me.Filter = mcri Me.FilterOn = True Me.Requery
J'ai mis des Like que tu peux remplacer par une égalité.

13/10/2008, 19h14
Nessie37

Même résultat. Je suis désolée.
Voici le msgbx que je voulais mettre au cas où

Code:

MsgBox "Référence erronée ou inexsitante", vbInformation + vbOKOnly, "AVERTISSEMENT"
13/10/2008, 19h26
DMboup

Il faut vérifier que tu as bien les champs Réfdossier ET Réfmandat dans ton formulaire et ta table.

PS : Le FindFirst peut aussi marcher.
14/10/2008, 11h21
Nessie37

C'est le cas.
J'ai décidé de garder le findfirst.
Mais comment faire pour avoir en plus, un msgbx si la valeur saisie dans la zone de texte ne correspond à aucune réfdossier ou refmandat.
Je n'arrive pas à faire le code pour.

Merci

Salut,

Si je peux intervenir, en lisant tout ça, je tenais à vous faire remarquer que tout ce qui se passe est normal. Il n'y a pas d'erreur.
Code:

1 2 3 4 5 If Me.quickseak = 1 Then mcri = "Réfdossier Like ""*" & Me.Texte63 & "*""" else mcri = "Réfmandat Like ""*" & Me.Texte63 & "*""" End If
Il faut que tu contrôles la validité de Me.Texte63.value et ne pas continuer si son contenu est vide, null ou différent des Réfdossier ou Réfmandat existants...

Citation:

Envoyé par Nessie37

Mais comment faire pour avoir en plus, un msgbx si la valeur saisie dans la zone de texte ne correspond à aucune réfdossier ou refmandat.

tu fais un select préalable sur ta table:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
dim req as recordset
If Me.quickseak = 1 Then
set req = currentdb().execute("SELECT count (Réfdossier) FROM TaTable WHERE Réfdossier = """ & Me.Texte63 & """")
if req.recordcount > 0 then
      mcri = "Réfdossier = ""*" & Me.Texte63 & "*"""
else
      msgbox "Saisie invalide/inexistante"
end if
else
set req = currentdb().execute("SELECT count (Réfdossier) FROM TaTable WHERE Réfmandat = """ & Me.Texte63 & """")
if req.recordcount > 0 then
      mcri = "Réfmandat = ""*" & Me.Texte63 & "*"""
else
      msgbox "Saisie invalide/inexistante"
end if
End If

Voir 40 message(s) de cette discussion en une page