Discussion :

[isabelle b]

Rebonsoir,

Voici un autre mystère à vous soumettre

je voudrais que l'état ne s'ouvre que si la zone de liste n'est pas vide, or il ouvre l'état en indiquant "erreur" malgré la clause if

Voyez vous ce qui cloche ?

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 B_E_EtiquetteTitreSav_Click()
On Error Resume Next
 
 
If IsNull(ZL_TitreChoisisSav) Then
    MsgBox "Veuillez choisir les titres des étiquettes", vbInformation, "Titre Etiquettes Sav"
    Exit Sub
    Else
    DoCmd.OpenReport "E_EtiquetteSAV", acPreview, , "ID_Chantier = Forms![F_chantier]![ID_Chantier]"
 
End If
 
End Sub

merci

isabelle

[Gabout]

Bonjour,

A tester

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub B_E_EtiquetteTitreSav_Click()
On Error Resume Next
   If IsNull(Me.ZL_TitreChoisisSav) Then
      MsgBox "Veuillez choisir les titres des étiquettes", vbInformation, "Titre Etiquettes Sav"
      Me.ZL_TitreChoisisSav.setfocus
   Else
      DoCmd.OpenReport "E_EtiquetteSAV", acPreview, , "ID_Chantier =" & Forms![F_chantier]![ID_Chantier]
   End If
End Sub

A+

[isabelle b]

Merci Gabout

j'ai contourné le problème en ajoutant un compteur sur la zl. Si le compte des id qu'elle contient est inférieur à 1 alors il affiche le msg box, sinon il ouvre l'état. Ca fonctionne bien

toutefois je vais tester ton code et je te dis

Merci à toi

isabelle