g trouvé dans l'aide de la msdn mais je n'arrive pas ç m'en servir
qqun pourrait me donner un exemple svp
ps : je n'ai pas le net juste acces au pop et news
--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)
Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)
"Benoît O'Hare" <benoit.ohare@ifrance.com> a écrit dans le message de news:
emLZYOoUDHA.736@TK2MSFTNGP09.phx.gbl...
Je cherche à créer un menu contextuel(clic droit) sur un msflexgrid.
Est-ce possible? car je n'ai pas trouvé pour l'instant
Merci d'avance et bonne continuation !
--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)
Je suis pas sur que cela va t'aider mais voici la programation de mon menu flottant sur mon msflexgrid :
A) Dans le créateur de menu créer une ligne avec la case Visible non cochée puis un sous-menu (dans mon cas name : MenuSupr) avec la case Visible cochée;
B) Private Sub MenuSupr_Click() Dim reponse MSFlexGrid1.Col = 11 a = MSFlexGrid1.Text 'rs!item reponse = MsgBox("Suppression de l'item numéro " & a, vbYesNoCancel + vbQuestion + vbDefaultButton2, "ATTENTION - irréversible") Select Case reponse Case vbYes Dim db As Database Set db = OpenDatabase(disque) '("c:DAVIWEBCOLOVIDdavimdb.mdb") db.Execute "delete from Mouvement where item=" & a db.Close Data1.Refresh Calcul Case vbNo Exit Sub ' Case vbCancel Exit Sub ' End Select End Sub
a+ Jean-Pol DAVID mailto: www.peintures-david.com ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Benoît O'Hare" a écrit dans le message news: eYz$
g trouvé dans l'aide de la msdn mais je n'arrive
pas ç m'en servir
qqun pourrait me donner un exemple svp
ps : je n'ai pas le net juste acces au pop et
news
-- (Hello) | | | / O (o) (o) O (_) / o o0oo - - - - - - oo0oo (MrBinaire)
Je suis pas sur que cela va t'aider mais voici
la programation de mon menu flottant
sur mon msflexgrid :
A) Dans le créateur de menu créer
une ligne avec la case Visible non cochée
puis un sous-menu (dans mon cas name :
MenuSupr) avec la case Visible cochée;
B)
Private Sub MenuSupr_Click()
Dim reponse
MSFlexGrid1.Col = 11
a = MSFlexGrid1.Text 'rs!item
reponse = MsgBox("Suppression de l'item numéro " &
a, vbYesNoCancel + vbQuestion + vbDefaultButton2,
"ATTENTION - irréversible")
Select Case reponse
Case vbYes
Dim db As Database
Set db = OpenDatabase(disque)
'("c:DAVIWEBCOLOVIDdavimdb.mdb")
db.Execute "delete from Mouvement where item=" & a
db.Close
Data1.Refresh
Calcul
Case vbNo
Exit Sub '
Case vbCancel
Exit Sub '
End Select
End Sub
a+
Jean-Pol DAVID
mailto:david.sa@skynet.be
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ?
Quomodo ? Quando ?
"Benoît O'Hare" <benoit.ohare@ifrance.com> a écrit
dans le message news:
eYz$3aoUDHA.2360@TK2MSFTNGP10.phx.gbl...
g trouvé dans l'aide de la msdn mais je n'arrive
pas ç m'en servir
qqun pourrait me donner un exemple svp
ps : je n'ai pas le net juste acces au pop et
news
--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)
Je suis pas sur que cela va t'aider mais voici la programation de mon menu flottant sur mon msflexgrid :
A) Dans le créateur de menu créer une ligne avec la case Visible non cochée puis un sous-menu (dans mon cas name : MenuSupr) avec la case Visible cochée;
B) Private Sub MenuSupr_Click() Dim reponse MSFlexGrid1.Col = 11 a = MSFlexGrid1.Text 'rs!item reponse = MsgBox("Suppression de l'item numéro " & a, vbYesNoCancel + vbQuestion + vbDefaultButton2, "ATTENTION - irréversible") Select Case reponse Case vbYes Dim db As Database Set db = OpenDatabase(disque) '("c:DAVIWEBCOLOVIDdavimdb.mdb") db.Execute "delete from Mouvement where item=" & a db.Close Data1.Refresh Calcul Case vbNo Exit Sub ' Case vbCancel Exit Sub ' End Select End Sub
a+ Jean-Pol DAVID mailto: www.peintures-david.com ICQ 28394733 -- Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Benoît O'Hare" a écrit dans le message news: eYz$
g trouvé dans l'aide de la msdn mais je n'arrive
pas ç m'en servir
qqun pourrait me donner un exemple svp
ps : je n'ai pas le net juste acces au pop et
news
-- (Hello) | | | / O (o) (o) O (_) / o o0oo - - - - - - oo0oo (MrBinaire)
