OVH Cloud OVH Cloud

aide barre de menu

5 réponses
Avatar
ls
Bonjour,

Je suis allé faire un tour sur le précieux site de Raymond et je
souhaiterai me créer une barre de menu personnel.

Toutefois, vu que je ne suis pas un professionnel Access,juste un
"apprennant" je ne vois pas comment mettre une double commande sur un
bouton:

Je m'explique j'aimerais que l'enregistrement que je vais supprimer soit
sauvegardé avant suppression dans une table x

Si vous pouviez e donner un coup de main ce serait sympa.

Merci à vous

Laurent

5 réponses

Avatar
Raymond [mvp]
Bonjour.

dans la fonction Action_Bouton() tu dois avoir ceci:
Case "Supprimer"
On Error Resume Next
Rs.Delete

entre on error et le rs.delete tu peux ecrire ce que tu veux et notamment
lancer une requête pour copier l'enregistrement dans une autre table.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ls" a écrit dans le message de
news:4003b59c$0$29064$
Bonjour,

Je suis allé faire un tour sur le précieux site de Raymond et je
souhaiterai me créer une barre de menu personnel.

Toutefois, vu que je ne suis pas un professionnel Access,juste un
"apprennant" je ne vois pas comment mettre une double commande sur un
bouton:

Je m'explique j'aimerais que l'enregistrement que je vais supprimer soit
sauvegardé avant suppression dans une table x

Si vous pouviez e donner un coup de main ce serait sympa.

Merci à vous

Laurent




Avatar
ls
Que je regarde tes deux barres d'exemples command bar et command bar module
, je ne trouve pas ce que tu m'indiques , J'ai ça :

Set CBBouton = .Controls.Add(msoControlButton)
With CBBouton
.Caption = Bt19
.Style = msoButtonCaption
.Enabled = True
.OnAction = "¬tion_Bouton()"
.Parameter = "Enregistrer"
End With
???
Avatar
Raymond [mvp]
tu dois avoir une fonction Action_Bouton() en t-ant que fonction elle-même.
peut-être dans un module.

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


"ls" a écrit dans le message de
news:4003bbe3$0$29069$
Que je regarde tes deux barres d'exemples command bar et command bar
module

, je ne trouve pas ce que tu m'indiques , J'ai ça :

Set CBBouton = .Controls.Add(msoControlButton)
With CBBouton
.Caption = Bt19
.Style = msoButtonCaption
.Enabled = True
.OnAction = "¬tion_Bouton()"
.Parameter = "Enregistrer"
End With
???




Avatar
ls
Je l'ai trouvé mais je n'y comprends rien j'ai regardé les différentes
fonctions proposées par recordset mais bon cela ne m'inspire pas ...


"Raymond [mvp]" a écrit dans le message de
news:
tu dois avoir une fonction Action_Bouton() en t-ant que fonction
elle-même.

peut-être dans un module.

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


"ls" a écrit dans le message de
news:4003bbe3$0$29069$
Que je regarde tes deux barres d'exemples command bar et command bar
module

, je ne trouve pas ce que tu m'indiques , J'ai ça :

Set CBBouton = .Controls.Add(msoControlButton)
With CBBouton
.Caption = Bt19
.Style = msoButtonCaption
.Enabled = True
.OnAction = "¬tion_Bouton()"
.Parameter = "Enregistrer"
End With
???








Avatar
Raymond [mvp]
Ce n'est pas simple non plus mais faut insister.
si tu n'y arrives pas, passe moi ton formulaire avec son recordset et
dis-moi ce que tu veux faire, j'essaierais de te faire avancer un peu. en
zip uniquement ou rar.

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


"ls" a écrit dans le message de
news:4003e9a0$0$17107$
Je l'ai trouvé mais je n'y comprends rien j'ai regardé les différentes
fonctions proposées par recordset mais bon cela ne m'inspire pas ...