VBA : Message dans un bouton pour les données inexistantes
Bonjour,
J’ai une base de données sur Access, j’ai un formulaire qui m’affiche l’ensemble des enregistrements compris dans une table. Quand j’appui sur un bouton qui se trouve a coté d’un enregistrement, j’ai une fenêtre qui ouvre un formulaire et qui m’affiche les enregistrements en relation dans une autre table. Les données sont reliées par le « N_SERIE ». Voila sauf que quand il n’y a pas d’enregistrement en relation, le formulaire s’ouvre mais il n’y a pas de donnée dedans. Ce que je voudrais c’est que ça ne m’affiche pas le formulaire et un petit message indiquant par exemple « Données inexistante ».
Voila le code du bouton ci-dessous me permettant d’ouvrir le formulaire et les données liées.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Private Sub Commande41_Click()
On Error GoTo Err_Commande41_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Contrat EDF visualisation"
stLinkCriteria = "[N_SERIE]=" & "'" & Me![N_SERIE] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande41_Click:
Exit Sub
Err_Commande41_Click:
MsgBox Err.Description
Resume Exit_Commande41_Click
End Sub |
Pouvez vous m’aider à compléter mon code VBA afin de réaliser ma demande.
J’espère avoir été un peu près clair.
Merci de votre aide.
