Discussion :

[SophieD]

Bonjour,

je cherche à ajouter une boîte de dialogue dans le cas où une requête effectuée sur un formulaire ne revoit à aucune donnée (je veux éviter que les utilisateurs se retrouvent devant une "page blanche" et leur mettre un petit message d'info). J'ai consulté la FAQ et les cours mais j'avoue bloquer.
Merci d'avance...

[romrai]

Salut,

pour ajouter une boite de dialogue c'est:

Code :

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

MsgBox

suivi de ton message.

Du moins si j ai bien compris ton problème

[Arkham46]

slt,

c'est la deuxième partie de ce point de la FAQ :
http://access.developpez.com/faq/?pa...FermerFormVide

[SophieD]

Merci à vous deux,

j'ai bien lu vos réponses et suis allée voir le lien mais je débute en développement et je voudrais vous préciser ma demande : je ne veux pas empêcher l'ouverture du formulaire si la requête ne retourne aucune donnée rien mais juste faire apparaître une boîte de dialogue dans le formulaire "vide" qui explique que c'est normal parce qu'aucun enregistrement ne correspond aux critères.
Voici le code de mon formulaire :
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "F_NRA"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande103_Click:
Exit Sub

Err_Commande103_Click:
MsgBox Err.Description
Resume Exit_Commande103_Click

End Sub
Private Sub Listing_Lignes_inéligibles_Click()
On Error GoTo Err_Listing_Lignes_inéligibles_Click

Dim stDocName As String

stDocName = "E_Ligne_Ineligible_v3"
DoCmd.OpenReport stDocName, acPreview

Exit_Listing_Lignes_inéligibles_Click:
Exit Sub

Err_Listing_Lignes_inéligibles_Click:
MsgBox Err.Description
Resume Exit_Listing_Lignes_inéligibles_Click

End Sub
Private Sub Liste_lignes_inéligibles_Click()
On Error GoTo Err_Liste_lignes_inéligibles_Click

Dim stDocName As String

stDocName = "E_Ligne_Ineligible_v3"
DoCmd.OpenReport stDocName, acPreview

Exit_Liste_lignes_inéligibles_Click:
Exit Sub

Err_Liste_lignes_inéligibles_Click:
MsgBox Err.Description
Resume Exit_Liste_lignes_inéligibles_Click

End Sub

Merci d'avance pour la suite...

[Invité]

Si j'ai bien compris, tu veux afficher une boite lorsqu'un état ne contient aucune valeur !

Si tel est bien le cas, dans les propriétés de ton état -> évènements
Il faut ajouter

Code :

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

1
2
3
4
5
 
Private Sub Report_NoData(Cancel As Integer)
  MsgBox "Aucune donnée à imprimer"
  Cancel = True
End Sub

Pour éviter qu'Access te retourne un code d'erreur, il faut avant l'appel de ton état faire :

Code :

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

1
2
3
4
5
6
' Empècher l'apparition du message d'erreur
DoCmd.SetWarnings (False)
' Lancer l'état
DoCmd.OpenReport stDocName, acPreview
' Réactiver les messages d'erreur
DoCmd.SetWarnings (True)

Voilà

[SophieD]

merci pour cette réponse précise ; il ne s'agit pas d'un état mais d'un formulaire et je crois en effet que la réponse mais été donnée précédemment c'est juste un peu abstrait pour moi qui débute complètement.
En tout cas merci encore !!

[Arkham46]

le code de la FAQ propose :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
    If Me.RecordsetClone.RecordCount = 0 Then
        MsgBox "Le formulaire ne s'ouvre pas car il est vide.", vbInformation
        Cancel = True 'Annule l'ouverture
    End If
End Sub

donc tu enlèves la ligne avec le commentaire " 'Annule l'ouverture " pour ne pas annuler l'ouverture...

(pense à mettre des balises de code (bouton #) c'est plus facile à lire)