1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Private Sub TonBouton_Click()
On Error GoTo Err_TonBouton_Click
Dim stDocName As String
Dim stFiltre As String
' Vérifier si la fiche est renseignée
If IsNull(Me.[Numéro]) Then
MsgBox "Placez-vous au préalable sur une fiche renseignée !", _
vbInformation, "FrancisHop"
Exit Sub
End If
' Nom du rapport
stDocName = "rpt_TonEtat"
' Filtrer l'état suivant le numéro du formulaire et selon texture.
'stFiltre = "[Numéro]=""" & [Numéro] & """"
stFiltre = "[Numéro]=" & [Numéro]
DoCmd.OpenReport stDocName, acPreview, , stFiltre
Exit_TonBouton_Click:
Exit Sub
Err_TonBouton_Click:
MsgBox Err.Description
Resume Exit_TonBouton_Click
End Sub |
Partager