Discussion :

[nykola7]

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 :

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

[Invité]

Il faut compter le nombre d'enregistrement dans ta table correspondant au critère !

Code :

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

1
2
3
4
5
6
stLinkCriteria = "[N_SERIE]=" & "'" & Me![N_SERIE] & "'"
If Dcount("ChampACompter","TableContenantLesEnr",stLinkCriteria)=0 then
  MsgBox "Pas d'enregistrement"
Else
  DoCmd.OpenForm stDocName, , , stLinkCriteria
Endif

Voilà

[nykola7]

Merci BrunoM45, c'est tout à fait ce que je voulais !!!!!