Discussion :

[Nessie37]

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 :

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
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

[hyipicai]

rapide mais simple :

Code :

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

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

[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.

[Nessie37]

Voici ce que j'ai :

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
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) ?

[willcartley]

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
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

[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 ?