Prob d'etat de sortie vide ,crystal report
Assmae
-
icomicar Messages postés 81 Statut Membre -
icomicar Messages postés 81 Statut Membre -
Bonjour,
j'ai un prob avec crystal report , j'ai une table temporaire , qui se remplie correctement , mais lors de l'impression avec crystal report , l'etat de sortie reste tjrs vide !!
voici le code , si qlq peut m'aider :
If Me.Option4.Value = True Then
Dim cnx As New ADODB.Connection
Dim cmd As New ADODB.Command
cnx.Provider = "microsoft.jet.oledb.4.0"
cnx.ConnectionString = "cheque.mdb"
cnx.Open
cmd.CommandText = "delete from tmp"
Set cmd.ActiveConnection = cnx
cmd.Execute
cnx.Close
cnx.Open
cmd.CommandText = "Insert into tmp select client.CIL,client.code_client,client.nom_prenom,montant.montant_cheque,montant.montant_impayé,montant.montant_encaissé,cheque.N_cheque,cheque.date_cheque,cheque.frais_cheque,PEC.date_PEC,rejet.date_relance,agence.nom_agence From client, montant, cheque, PEC,rejet,agence Where client.CIL = montant.CIL and montant.N_cheque=cheque.N_cheque and PEC.N_cheque=cheque.N_cheque and rejet.nom_agence=agence.nom_agence"
Set cmd.ActiveConnection = cnx
CrystalReport1.ReportFileName = "2.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
cmd.Execute
cnx.Close
End If
j'ai un prob avec crystal report , j'ai une table temporaire , qui se remplie correctement , mais lors de l'impression avec crystal report , l'etat de sortie reste tjrs vide !!
voici le code , si qlq peut m'aider :
If Me.Option4.Value = True Then
Dim cnx As New ADODB.Connection
Dim cmd As New ADODB.Command
cnx.Provider = "microsoft.jet.oledb.4.0"
cnx.ConnectionString = "cheque.mdb"
cnx.Open
cmd.CommandText = "delete from tmp"
Set cmd.ActiveConnection = cnx
cmd.Execute
cnx.Close
cnx.Open
cmd.CommandText = "Insert into tmp select client.CIL,client.code_client,client.nom_prenom,montant.montant_cheque,montant.montant_impayé,montant.montant_encaissé,cheque.N_cheque,cheque.date_cheque,cheque.frais_cheque,PEC.date_PEC,rejet.date_relance,agence.nom_agence From client, montant, cheque, PEC,rejet,agence Where client.CIL = montant.CIL and montant.N_cheque=cheque.N_cheque and PEC.N_cheque=cheque.N_cheque and rejet.nom_agence=agence.nom_agence"
Set cmd.ActiveConnection = cnx
CrystalReport1.ReportFileName = "2.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
cmd.Execute
cnx.Close
End If
A voir également:
- Prob d'etat de sortie vide ,crystal report
- Crystal report viewer - Télécharger - Gestion de données
- Crystal report download - Télécharger - Présentation
- Crystal disk - Télécharger - Informations & Diagnostic
- Télécharger crystal report 8.5 gratuit - Télécharger - Divers Utilitaires
- Supprimer page word vide - Guide