Discussion :

[pprieu]

Bonjour

Je souhaite imprimer un formulaire qui contient trois sous formulaires. Cela fonctionne presque bien à un détail prêt. Dans un des sous formulaires, je fais apparaître le dernier enregistrement d'une table grâce au code ci-dessous, que j'ai pu glaner sur ce forum:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
On Error Resume Next
Dim strSF As String
strSF = "[SF_Visites Fiches travaux]"
 
With Me(strSF).Form.RecordsetClone
.MoveLast
Me(strSF).Form.Bookmark = .Bookmark
End With
End Sub

Mon problème est que lorsque je lance mon impression, c'est la première ligne de la table qui s'imprime, juste après l'appui sur le bouton d'impression, la première ligne apparaît et sort sur l'impression.

Je tourne en rond avec ce dernier problème. Je rappelle que je ne sais pas écrire de code.
J'ai essayé de faire l'impression avec un état, mais je ne sais pas comment charger toutes les données du formulaires et sous formulaires dans l'état.

Si vous avez une piste a me proposer ce serait super.

Philippe

[loufab]

Bonjour,

Pourquoi ne pas mettre le code dans le open du sous-form comme ceci.

Code :

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

1
2
3
4
 
Sub ...
me.Recordset.movelast
end sub

Cordialement,

[pprieu]

Bonsoir

La partie de code que j'utilise fonctionne très bien, elle permet d'afficher le dernier enregistrement de la table visite dans mon sous formulaire, je pense que c'est au moment de l'impression qu'il faudrait interférer mais comment???
Habituellement, j'utilise des requêtes pour en extraire un résultat, là j'ai des sous formulaires avec des calculs de sommes et une table liée à un formulaire. Je suis un peu démuni.

Merci encore

Philippe

[nico84]

Bonjour,

Comme dit Fabrice, il me semble qu'il faut utiliser recordset et non recordsetclone dans ce cas

[loufab]

Bonjour,

Lorsque tu imprimes un formulaire il imprime tous les enregistrements.

On ne peut pas controler un formulaire en impression. Il faut poser un filtre pour n'afficher que le dernier.

Par contre le code que je te propose fait exactement la même chose que tes lignes mais sans l'effet de clipping. Mais c'est surement un détail sans importance pour toi.

Cordialement,

[pprieu]

Bonjour

Pour répondre à Loufab, je suis désolé de ma dernière réponse, je ne peux pas juger de la pertinence d'un code ou d'un autre. Je vais exploiter ce bout de code beaucoup plus simple.
L'idée du filtre est peut être la solution, après l'appui sur le bouton imprimer je vais tenter de mettre une macro pour filtrer le dernier enregistrement. Par contre je ne sais pas ce que c'est que l'effet de clipping.

Merci a vous

philippe

[pprieu]

rebonjour

je viens de faire le test en remplaçant Form.RecordsetClone
.MoveLast par Form.Recordset.MoveLast, effectivement l'affichage est identique mais lors de l'impression c'est toujours la première ligne qui s'imprime.

philippe

[loufab]

Bonjour,

Super ! un code plus simple évite les problèmes.

Donc il t'affiche le premier au lieu du dernier. Si tu inverses le tri ; toujours dans l'événement sur ouverture ?

Code :

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

1
2
    Me.OrderBy = "[NomChamp] DESC"
    Me.OrderByOn = True

NomChamp est le nom du champ qui pour toi exprime l'ordre dont tu parles.

Cordialement,

[pprieu]

bonsoir

je trouve ce code intéressant car je pense qu'il doit pouvoir se mettre aussi lors de l'appui du bouton impression. je testerai cela ce weekend, je suis en déplacement. Merci

philippe