Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Impression état vide

jacques
28/12/04 00:53
Bonsoir

En me basant sur le chapitre 5 j’ai écrit ces lignes de code mais après le click du message
Aucune donnée à imprimer j’ai toujours le message « action OpenReport annulée » et si je demande le débocage le curseur vient sur la ligne
DoCmd.OpenReport strEtat, acViewPreview, , strWhere

Où se trouve mon erreur ?
Merci pour votre aide

Private Sub btnOK_Click()
Dim strEtat As String, strWhere As String
On Error GoTo GestionErreurs
If Me!opgEtat = 1 Then
??????????
??????????
DoCmd.Close
DoCmd.OpenReport strEtat, acViewPreview, , strWhere
Exit Sub
GestionErreurs:
If Err.Number <> 2501 Then Exit Sub
MsgBox "Erreur : " & Err.Number & " " & Err.Description, vbCritical, "????????"
Exit Sub
End Sub

Public Function GestionErreurs(DataErr As Integer) As Integer
Dim intReponse As Integer
'retraite les messages d'erreur d'Access
Select Case DataErr
Case 2501
strMessage = "l'action OpenReport a été annuler."
intReponse = acDataErrContinue
Case 3022
strMessage = "Vous avez saisi une clef qui existe déja. Rectifiez-la pour pouvoir valider la Fiche."
intReponse = acDataErrContinue
Case 3200
strMessage = "Cette action ne peut être accomplie car d'autres données dépendent de cette Fiche."
intReponse = acDataErrContinue
Case Else
intReponse = acDataErrDisplay
End Select
'Afficher le message de remplacement
If intReponse = acDataErrContinue Then MsgBox strMessage, vbExclamation, " ??????"
GestionErreurs = intReponse
End Function

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = GestionErreurs(DataErr)
End Sub

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Aucune donnée à imprimer !", vbExclamation, " ??????????"
Cancel = True
End Sub

Salutations
Jacques
SujetAuteurEnvoyé le

Impression état vide

jacques28/12/04 00:53

Re: Impression état vide

jean28/12/04 19:13

Re: Impression état vide

jacques30/12/04 17:51

Re: Impression état vide

jacques15/04/05 12:57

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter