Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la
proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en
page).
Qe se passe t'il?
d'avance merci
Frédéric
Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la
proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en
page).
Qe se passe t'il?
d'avance merci
Frédéric
Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la
proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en
page).
Qe se passe t'il?
d'avance merci
Frédéric
Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ?
N'y aurait-il pas des doublons sur le papier ?
Dans ton message <# du lundiBonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant
la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise
en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ?
N'y aurait-il pas des doublons sur le papier ?
Dans ton message <#Y3pL9xMHHA.4712@TK2MSFTNGP04.phx.gbl> du lundi
Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant
la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise
en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ?
N'y aurait-il pas des doublons sur le papier ?
Dans ton message <# du lundiBonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant
la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise
en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23 records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" wrote in message news:Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ? N'y aurait-il pas des doublons sur le papier ?Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23 records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> wrote in message news:mn.43267d71b0107c6f.64280@tiscali.fr...
Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ? N'y aurait-il pas des doublons sur le papier ?
Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23 records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" wrote in message news:Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ? N'y aurait-il pas des doublons sur le papier ?Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
bonjour
oui, mais LnkCriteria vaut quoi ??
dim LnkCriteria as string
LnkCriteria = "ContratType ='" & Me!BtSContratType & "'"
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"fth" a écrit dans le message de news:Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il
n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23
records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe
que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" wrote in message
news:Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ?
N'y aurait-il pas des doublons sur le papier ?
Dans ton message <# du lundiBonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant
la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de
mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
bonjour
oui, mais LnkCriteria vaut quoi ??
dim LnkCriteria as string
LnkCriteria = "ContratType ='" & Me!BtSContratType & "'"
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"fth" <NewsGrp@matloc.be> a écrit dans le message de news:
O6xG4EyMHHA.3952@TK2MSFTNGP02.phx.gbl...
Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il
n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23
records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe
que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> wrote in message
news:mn.43267d71b0107c6f.64280@tiscali.fr...
Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ?
N'y aurait-il pas des doublons sur le papier ?
Dans ton message <#Y3pL9xMHHA.4712@TK2MSFTNGP04.phx.gbl> du lundi
Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant
la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de
mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
bonjour
oui, mais LnkCriteria vaut quoi ??
dim LnkCriteria as string
LnkCriteria = "ContratType ='" & Me!BtSContratType & "'"
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"fth" a écrit dans le message de news:Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il
n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23
records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe
que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" wrote in message
news:Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ?
N'y aurait-il pas des doublons sur le papier ?
Dans ton message <# du lundiBonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant
la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, ,
LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de
mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonsoir Pierre,
LnkCriteria ne sert à rien en fait à cet endroit.
cela me sert uniquement quand j'imprime en mode "fiche" afin de ne sélectionner QUE le contrat affiché. (oui, j'ai fait copy&past
de la fonction "Fiche" et "liste" ;-) pâ bien hein)..donc on peut le retirer puisqu'il faut juste imprimer la liste.
Je suis donc toujours à la recherche de la solution qui me permettrait de n'imprimer QUE la liste affichée genre
... Form.recordset ..?
Merci
Frédéric
"Pierre CFI [mvp]" wrote in message news:%bonjour
oui, mais LnkCriteria vaut quoi ??
dim LnkCriteria as string
LnkCriteria = "ContratType ='" & Me!BtSContratType & "'"
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"fth" a écrit dans le message de news:Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23 records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" wrote in message news:Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ? N'y aurait-il pas des doublons sur le papier ?Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonsoir Pierre,
LnkCriteria ne sert à rien en fait à cet endroit.
cela me sert uniquement quand j'imprime en mode "fiche" afin de ne sélectionner QUE le contrat affiché. (oui, j'ai fait copy&past
de la fonction "Fiche" et "liste" ;-) pâ bien hein)..donc on peut le retirer puisqu'il faut juste imprimer la liste.
Je suis donc toujours à la recherche de la solution qui me permettrait de n'imprimer QUE la liste affichée genre
... Form.recordset ..?
Merci
Frédéric
"Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo.fr> wrote in message news:%23BONL5yMHHA.1872@TK2MSFTNGP04.phx.gbl...
bonjour
oui, mais LnkCriteria vaut quoi ??
dim LnkCriteria as string
LnkCriteria = "ContratType ='" & Me!BtSContratType & "'"
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"fth" <NewsGrp@matloc.be> a écrit dans le message de news: O6xG4EyMHHA.3952@TK2MSFTNGP02.phx.gbl...
Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23 records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" <ze_titi_enlever-ceci@tiscali.fr> wrote in message news:mn.43267d71b0107c6f.64280@tiscali.fr...
Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ? N'y aurait-il pas des doublons sur le papier ?
Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
Bonsoir Pierre,
LnkCriteria ne sert à rien en fait à cet endroit.
cela me sert uniquement quand j'imprime en mode "fiche" afin de ne sélectionner QUE le contrat affiché. (oui, j'ai fait copy&past
de la fonction "Fiche" et "liste" ;-) pâ bien hein)..donc on peut le retirer puisqu'il faut juste imprimer la liste.
Je suis donc toujours à la recherche de la solution qui me permettrait de n'imprimer QUE la liste affichée genre
... Form.recordset ..?
Merci
Frédéric
"Pierre CFI [mvp]" wrote in message news:%bonjour
oui, mais LnkCriteria vaut quoi ??
dim LnkCriteria as string
LnkCriteria = "ContratType ='" & Me!BtSContratType & "'"
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"fth" a écrit dans le message de news:Bonjour ;-)
la bonne version est celle affiché à l'écran.
Heuuu, pour les doublons, je peux re-vérifier mais il semblerait qu'il n'y en ai pas.
En tout état de cause, quand je filtre, j'ai à l'écran (par exemple) 23 records (filtered).
je ne devrais pas en avoir plus en mode impression partant du principe que je fait un recordsetclone.
Je continue donc à chercher
A+
Frédéric
"ze Titi" wrote in message news:Bonjour fth
Et quelle version est la bonne ? Celle de l'écran ou celle sur papier ? N'y aurait-il pas des doublons sur le papier ?Bonjour,
petit soucis que je vous détaille ici:
MyFormList contient une liste de records;
j'ai qq combos qui filtrent les records avec la proc. suivante:
Private Sub BtSContratType_AfterUpdate()
Me.FilterOn = False
Me.Filter = "ContratType ='" & Me!BtSContratType & "'"
Me.FilterOn = True
End Sub
ça fonctionne bien, les records demandés s'affichent;
j'ai un bouton qui me permet d'imprimer les records affiché en appelant la proc. suivante:
Dim Tcontrat As String
Dim rst As Recordset
Set rst = Forms!FcontratList.RecordsetClone
Tcontrat = Me.ContratType
If Me.ContratType = "" Then
Exit Function
End If
If ContratSend = True Then
MsgBox "Contrat déjà rédigé", vbInformation, "Contrat"
Else
Select Case Tcontrat
Case "Benevole":
DoCmd.OpenReport "RptContratBenevole", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Benevole_defraye":
DoCmd.OpenReport "RptContratBenevDef", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case "Chauffeur":
DoCmd.OpenReport "RptContratChauffeur", acViewPreview, , LnkCriteria
Me.ContratSend = -1
Case Else
Exit Function
End Select
End If
End Function
ça fonctionne bien aussi.
Mon probleme est le suivant:
il y a toujours trop de records imprimés!
dans certains cas, après avoir filtré avec
Private Sub BtSContratType_AfterUpdate()
j'ai à l'écran 25 records.
Quand j'imprime, j'en ai 29. (1 page par records donc pas de prob de mise en page).
Qe se passe t'il?
d'avance merci
Frédéric
--
Voilou !
Cordialement,
Ze Titi
