Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Astuce

Astuce

8 réponses
Avatar
DAniel
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en rendant
invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gafish
Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans le clic
du bouton, il te suffit de passer le visible du bouton à false à la fin du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Pierre CFI [mvp]
bonjour
des le début de ta proc, tu passes le focus à un autre ctr et tu mets à visible false ton bouton

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Gafish" a écrit dans le message de news:
Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans le clic
du bouton, il te suffit de passer le visible du bouton à false à la fin du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
DAniel
Merci c'était simple , mais je suis passé complètement à Coté

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
des le début de ta proc, tu passes le focus à un autre ctr et tu mets à
visible false ton bouton

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Gafish" a écrit dans le message de news:

Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans le
clic
du bouton, il te suffit de passer le visible du bouton à false à la fin
du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr









Avatar
Pierre CFI [mvp]
simple, simple, non, c'était pas du tout évident, et cela demande une longue pratique, et disons un peu de génie, voilà, du génie
:o))

--
Pierre CFI qui sent sa téte doubler de volume
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news: %
Merci c'était simple , mais je suis passé complètement à Coté

"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour
des le début de ta proc, tu passes le focus à un autre ctr et tu mets à visible false ton bouton

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Gafish" a écrit dans le message de news:
Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans le clic
du bouton, il te suffit de passer le visible du bouton à false à la fin du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr













Avatar
DAniel
Eh oui heureusment que l'on a des gens géniaux sur terre ...
Est ce que le génie irait jusqu'à m'aider su les NotInlist posté plus bas
car j'ai plus solution.mdb ;-))

"Pierre CFI [mvp]" a écrit dans le message de
news:
simple, simple, non, c'était pas du tout évident, et cela demande une
longue pratique, et disons un peu de génie, voilà, du génie :o))

--
Pierre CFI qui sent sa téte doubler de volume
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news:
%
Merci c'était simple , mais je suis passé complètement à Coté

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
des le début de ta proc, tu passes le focus à un autre ctr et tu mets à
visible false ton bouton

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Gafish" a écrit dans le message de news:

Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans le
clic
du bouton, il te suffit de passer le visible du bouton à false à la fin
du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

















Avatar
DAniel
"Pierre CFI [mvp]" a écrit dans le message de
news:
voici le code
Private Sub Code_catégorie_NotInList(NouvDonnée As String, Réponse As
Integer)
' Ajoute une nouvelle catégorie en entrant un nom
' dans la zone de liste modifiable [Code catégorie].

Dim entNouvCatégorie As Integer, entTronqueNom As Integer, chTitre As
String, entmsgDialogue As Integer

' Affiche une boîte de message demandant si l'utilisateur veut
' ajouter une nouvelle catégorie.
chTitre = "Catégorie absente de la liste"
entmsgDialogue = vbYesNo + vbQuestion + vbDefaultButton1
entNouvCatégorie = MsgBox("Voulez-vous ajouter une nouvelle
catégorie?", entmsgDialogue, chTitre)

If entNouvCatégorie = vbYes Then
' Enlève le nouveau nom de la zone de liste modifiable Code
catégorie
' de sorte que le contrôle puisse être actualisé lorsque
l'utilisateur
' revient au formulaire.
DoCmd.RunCommand acCmdUndo

' Affiche la boîte de message et ajuste la longueur de la chaîne
' entrée dans la zone de liste modifiable.
chTitre = "Nom trop long"
entmsgDialogue = vbOKOnly + vbExclamation
If Len(NouvDonnée) > 15 Then
entTronqueNom = MsgBox("Les noms de catégorie ne peuvent avoir
plus de 15 caractères. Les noms que vous avez entré seront tronqués.",
entmsgDialogue, chTitre)
NouvDonnée = Left(NouvDonnée, 15)
End If

' Ouvre le formulaire Ajouter une catégorie.
DoCmd.OpenForm "Ajouter une catégorie", acNormal, , , acAdd,
acDialog, NouvDonnée

' Continue sans afficher le message d'erreur par défaut.
Réponse = acDataErrAdded
End If

End Sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news:

Eh oui heureusment que l'on a des gens géniaux sur terre ...
Est ce que le génie irait jusqu'à m'aider su les NotInlist posté plus bas
car j'ai plus solution.mdb ;-))

"Pierre CFI [mvp]" a écrit dans le message de
news:
simple, simple, non, c'était pas du tout évident, et cela demande une
longue pratique, et disons un peu de génie, voilà, du génie :o))

--
Pierre CFI qui sent sa téte doubler de volume
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news:
%
Merci c'était simple , mais je suis passé complètement à Coté

"Pierre CFI [mvp]" a écrit dans le message
de news:
bonjour
des le début de ta proc, tu passes le focus à un autre ctr et tu mets
à visible false ton bouton

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Gafish" a écrit dans le message de
news:
Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans
le clic
du bouton, il te suffit de passer le visible du bouton à false à la
fin du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

























Avatar
Pierre CFI [mvp]
voici le code
Private Sub Code_catégorie_NotInList(NouvDonnée As String, Réponse As Integer)
' Ajoute une nouvelle catégorie en entrant un nom
' dans la zone de liste modifiable [Code catégorie].

Dim entNouvCatégorie As Integer, entTronqueNom As Integer, chTitre As String, entmsgDialogue As Integer

' Affiche une boîte de message demandant si l'utilisateur veut
' ajouter une nouvelle catégorie.
chTitre = "Catégorie absente de la liste"
entmsgDialogue = vbYesNo + vbQuestion + vbDefaultButton1
entNouvCatégorie = MsgBox("Voulez-vous ajouter une nouvelle catégorie?", entmsgDialogue, chTitre)

If entNouvCatégorie = vbYes Then
' Enlève le nouveau nom de la zone de liste modifiable Code catégorie
' de sorte que le contrôle puisse être actualisé lorsque l'utilisateur
' revient au formulaire.
DoCmd.RunCommand acCmdUndo

' Affiche la boîte de message et ajuste la longueur de la chaîne
' entrée dans la zone de liste modifiable.
chTitre = "Nom trop long"
entmsgDialogue = vbOKOnly + vbExclamation
If Len(NouvDonnée) > 15 Then
entTronqueNom = MsgBox("Les noms de catégorie ne peuvent avoir plus de 15 caractères. Les noms que vous avez entré
seront tronqués.", entmsgDialogue, chTitre)
NouvDonnée = Left(NouvDonnée, 15)
End If

' Ouvre le formulaire Ajouter une catégorie.
DoCmd.OpenForm "Ajouter une catégorie", acNormal, , , acAdd, acDialog, NouvDonnée

' Continue sans afficher le message d'erreur par défaut.
Réponse = acDataErrAdded
End If

End Sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news:
Eh oui heureusment que l'on a des gens géniaux sur terre ...
Est ce que le génie irait jusqu'à m'aider su les NotInlist posté plus bas car j'ai plus solution.mdb ;-))

"Pierre CFI [mvp]" a écrit dans le message de news:
simple, simple, non, c'était pas du tout évident, et cela demande une longue pratique, et disons un peu de génie, voilà, du génie
:o))

--
Pierre CFI qui sent sa téte doubler de volume
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news: %
Merci c'était simple , mais je suis passé complètement à Coté

"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour
des le début de ta proc, tu passes le focus à un autre ctr et tu mets à visible false ton bouton

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Gafish" a écrit dans le message de news:
Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans le clic
du bouton, il te suffit de passer le visible du bouton à false à la fin du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





















Avatar
Pierre CFI [mvp]
ne pas oublier de mettre sur le gotfocus de la liste un Me.Nomliste.requery

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news:

"Pierre CFI [mvp]" a écrit dans le message de news:
voici le code
Private Sub Code_catégorie_NotInList(NouvDonnée As String, Réponse As Integer)
' Ajoute une nouvelle catégorie en entrant un nom
' dans la zone de liste modifiable [Code catégorie].

Dim entNouvCatégorie As Integer, entTronqueNom As Integer, chTitre As String, entmsgDialogue As Integer

' Affiche une boîte de message demandant si l'utilisateur veut
' ajouter une nouvelle catégorie.
chTitre = "Catégorie absente de la liste"
entmsgDialogue = vbYesNo + vbQuestion + vbDefaultButton1
entNouvCatégorie = MsgBox("Voulez-vous ajouter une nouvelle catégorie?", entmsgDialogue, chTitre)

If entNouvCatégorie = vbYes Then
' Enlève le nouveau nom de la zone de liste modifiable Code catégorie
' de sorte que le contrôle puisse être actualisé lorsque l'utilisateur
' revient au formulaire.
DoCmd.RunCommand acCmdUndo

' Affiche la boîte de message et ajuste la longueur de la chaîne
' entrée dans la zone de liste modifiable.
chTitre = "Nom trop long"
entmsgDialogue = vbOKOnly + vbExclamation
If Len(NouvDonnée) > 15 Then
entTronqueNom = MsgBox("Les noms de catégorie ne peuvent avoir plus de 15 caractères. Les noms que vous avez entré
seront tronqués.", entmsgDialogue, chTitre)
NouvDonnée = Left(NouvDonnée, 15)
End If

' Ouvre le formulaire Ajouter une catégorie.
DoCmd.OpenForm "Ajouter une catégorie", acNormal, , , acAdd, acDialog, NouvDonnée

' Continue sans afficher le message d'erreur par défaut.
Réponse = acDataErrAdded
End If

End Sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news:
Eh oui heureusment que l'on a des gens géniaux sur terre ...
Est ce que le génie irait jusqu'à m'aider su les NotInlist posté plus bas car j'ai plus solution.mdb ;-))

"Pierre CFI [mvp]" a écrit dans le message de news:
simple, simple, non, c'était pas du tout évident, et cela demande une longue pratique, et disons un peu de génie, voilà, du
génie :o))

--
Pierre CFI qui sent sa téte doubler de volume
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"DAniel" a écrit dans le message de news: %
Merci c'était simple , mais je suis passé complètement à Coté

"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour
des le début de ta proc, tu passes le focus à un autre ctr et tu mets à visible false ton bouton

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Gafish" a écrit dans le message de news:
Bonjour,

DAniel wrote:
Bonjour
à Partir d1 clic sur un bouton j'aimerai terminer la procédure en
rendant invisible ou inactif ce bouton
Bien sur , pas possible dans la meure ou la proc n'est pas terminée
Est ce qq1 voit une astuce
Merci
DAniel


Tout dépend comment ta procédure se déroule. Si tout se trouve dans le clic
du bouton, il te suffit de passer le visible du bouton à false à la fin du
code de l'evenement clic.

Arnaud

--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr