Access VBAFermé

Question

Bonjour, Quand j'ai fait le code ci-dessou en BVA pour faire les sous menu d'une menu ça ne marche pas est ce que je peut avoir une aide de quelqu'un Le code est tel: Private Sub lblFichier_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim pt As POINTAPI Dim NbPointParPouceX As Long, NbPointParPouceY As Long 'récupère la position de la souris GetCursorPos pt 'Récupère le nombre de pixel par pouce NbPointParPouceX = GetDeviceCaps(GetDC(0), 88) NbPointParPouceY = GetDeviceCaps(GetDC(0), 90) 'Affiche la barre de menu à l'endroit souhaité CommandBars("MenuFichier").ShowPopup pt.X - (X / (1440 / NbPointParPouceX)), pt.Y + (lblFichier.Height - Y) / (1440 / NbPointParPouceY) End Sub

blux · Answer

Salut,

quel est le message d'erreur, à quelle ligne ? Où as-tu récupéré ce code (on dirait du VB pur et non du VBA) ?

OlivrT · Answer

Pas grave, on peut très bien utiliser des API dans le VBA d'Access. 
Le type de variable POINTAPI n'est pas un type public dans Microsoft Access.
Tu as certainement déclarer une API dans un module ou dans le formulaire où se trouve ton évènement.
Est-elle bien déclarée ?
Quel est le message d'erreur exact ?

Par contre moi j'aimerai comprendre l'utilité d'aller positionner une barre d'outil à la hauteur d'un Label ... ;-)

Access VBA

2 réponses

Discussions similaires

Newsletters