Discussion :

[fatehbel]

s'il vous plait, je veux atteindre la dernière page ou une page bien précise d'un état access via une procédure VBA merci d'avance

[marot_r]

Bonjour.

Je ne pensais pas que ce soit possible mais si.

Ici la solution (l'un des derniers post de la discussion) http://bytes.com/topic/access/answer...-automatically.

A+

[Vijinn]

J'utilise cette discussion pour savoir si on peut se déplacer dans les pages d'un état en mode aperçu avant impression avec la molette de la souris, via un petit code VBA comme celui qu'on utilise pour passer d'un enregistrement à l'autre dans les formulaires via cette même molette de souris.

Merci !

[JMP62]

En fait c'est très simple pour atteindre la dernière page d'un état:

Code :

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

1
2
Docmd.OpenReport "Mon Etat", acViewPreview
 SendKeys "{END}"

:-)

[byaccess2]

Bonjour
votre code affiche bien la dernière page de mon état, mais j'ai le "bug" du NumLock qui se désactive

J'ai essayé la solution du shell https://www.developpez.net/forums/d1...dkeys-numlock/
mais j'ai une erreur de syntaxe
Voici mon code entier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande69_Click()
 
    DoCmd.OpenReport "Mon_état", acViewPreview, "", "", acNormal
 
    Dim Wsh As Object
 
    Set Wsh = CreateObject("WScript.Shell")
    Wsh .SendKeys "{END}", True
    Set Wsh = Nothing
 
End Sub

Pourriez-vous me dire où est l'erreur de syntaxe? (je n'y connais rien, je bricole de manière empirique)

Merci

[tee_grandbois]

bonjour,
de manière générale pour aider les contributeurs à donner une réponse, il est d'usage d'indiquer le numéro de ligne en erreur (heureusement qu'il n'y a pas 50 lignes dans ce code à vérifier !)
Mais je pense que c'est parce qu'il y a un espace entre et Wsh et .Senkeys

Code :

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

Wsh.SendKeys "{END}", True

[hyperion13]

Salut
L'erreur est tellement flagrante !
J'ai fait un test, aucun problème avec NumLock !