tri d'impression marche pas !

Salut les pros !
Un probleme avec le tri sur ouverture d'un état !
voila ma procedure:
Private Sub Valider_Click()
On Error GoTo erreur
Dim prn As Printer
DoCmd.OpenReport "planning des formations", acViewDesign
' avec cette ligne là ou celle du dessous, c'est pareil ! ça tri pas !
' DoCmd.OpenReport "planning des formations", acPreview, ,
"N°=forms![saisie formations].N°"
If IsNull(ListeImprimantes) Then
MsgBox "Veuillez sélectionner une imprimante !"
DoCmd.CancelEvent
GoTo sortie
'Reports![planning des formations].usedefautprinter = True
Else
For Each prn In Application.Printers
If prn.DeviceName = ListeImprimantes Then
Set Reports![planning des formations].Printer = prn
Exit For
End If
Next prn
End If
DoCmd.OpenReport "planning des formations", acPreview, ,
"N°=forms![saisie formations].N°"
DoCmd.Close acForm, "selection imprimante planning"
sortie:
Exit Sub
erreur:
MsgBox Err.Description
Resume sortie
End Sub
le tri ne s'effectu pas, il affiche systematiquement le 1er enregistrement
.
merci

Bonjour.

je ne vois pas comment ces instructions pourraient lancer un tri d'un
état.

le tri d'un état est paramétré dans l'état.
en modification de l'état:
menu affichage / trier et grouper
indiquer les éléments de tri dans la fenêtre

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"le meruvien" <Rvdb.roger@free.fr> a écrit dans le message de news:
4208be83$0$608$636a15ce@news.free.fr...

Salut les pros !
Un probleme avec le tri sur ouverture d'un état !
voila ma procedure:
Private Sub Valider_Click()
On Error GoTo erreur
Dim prn As Printer
DoCmd.OpenReport "planning des formations", acViewDesign ' avec cette
ligne là ou celle du dessous, c'est pareil ! ça tri pas !
' DoCmd.OpenReport "planning des formations", acPreview, ,
"N°=forms![saisie formations].N°"
If IsNull(ListeImprimantes) Then
MsgBox "Veuillez sélectionner une imprimante !"
DoCmd.CancelEvent
GoTo sortie
'Reports![planning des formations].usedefautprinter = True
Else
For Each prn In Application.Printers
If prn.DeviceName = ListeImprimantes Then
Set Reports![planning des formations].Printer = prn
Exit For
End If
Next prn
End If
DoCmd.OpenReport "planning des formations", acPreview, ,
"N°=forms![saisie formations].N°"
DoCmd.Close acForm, "selection imprimante planning"
sortie:
Exit Sub
erreur:
MsgBox Err.Description
Resume sortie
End Sub
le tri ne s'effectu pas, il affiche systematiquement le 1er
enregistrement .
merci

bonjour Raymond,
Oui, ça c'est daccord, mais ce que je veut, c'est imprimer uniquement
l'état corespondant au formulaire afficher à l'ecran

tu voulais dire : ça ne sélectionne pas le N° indiqué sur le formulaire.
"N°=forms![saisie formations].N°" est-il bon ? le N° ne serait-il pas
alpha ? de toute façon mets des [ ] car le ° est pas terrible. pas de
point avant N°.
si numérique
"[N°]=forms![saisie formations]![N°]"
si alpha
"[N°]= '" & forms![saisie formations]![N°] & "'"

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"le meruvien" <Rvdb.roger@free.fr> a écrit dans le message de news:
4208d5b2$0$616$636a15ce@news.free.fr...

bonjour Raymond,
Oui, ça c'est daccord, mais ce que je veut, c'est imprimer uniquement
l'état corespondant au formulaire afficher à l'ecran