Discussion :

[SixteenVBA]

Bonjour tout le monde, j'ai une petite question. D'abord voici mon code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande146_Click()
 'Permet de vérifier avant si la requête donne un résultat
If DCount("*", "Query-Recherche par nom portail terminaux") = 0 Then
  MsgBox "Aucune demande de cette personne !", vbInformation
Else
DoCmd.OpenForm "Résultats_recherche_par_nom_portail_terminaux"
End If
End Sub

J'aimerai insérer dans ce code le fait que si le champ modifiable71 est vide (c'est le champ sur lequel est basée la requête), un message box s'affiche, et que sinon le reste du code s'applique.
J'ai déjà essayer d'insérer un autre bloc if avant celui-ci mais ca ne fonctionne pas.

Merci tout le monde

[jadix19]

Bonjour,

Tu veux juste vérifier que ton textbox n'est pas vide au début de la procédure de ton bouton de commande ?

Si c'est le cas, je pense qu'il suffit de rajouter 3 lignes au début :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande146_Click()
 'Permet de vérifier avant si la requête donne un résultat
If IsNull(modifiable71.Value) Then
    MsgBox "Le champ est vide."
Else
    If DCount("*", "Query-Recherche par nom portail terminaux") = 0 Then
        MsgBox "Aucune demande de cette personne !", vbInformation
    Else
    DoCmd.OpenForm "Résultats_recherche_par_nom_portail_terminaux"
    End If
End If
End Sub

Cordialement,

[SixteenVBA]

Merci de ta réponse, j'avais essayé aussi mais ca ne marchait pas, la boucle n'était pas bonne.
Finalement j'ai rajouté ce morceau de code:

Code :

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

1
2
3
4
If [Modifiable71] = vide Then
        MsgBox "Message d'erreur."
        Exit Sub
      End If

Voilà, si ça peut aider.