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 Sur absence dans la liste

Sur absence dans la liste

4 réponses
Avatar
Aurora
Salut
J'aimerai créér une ligne de code me faisant sortir de la liste déroulante
sur absence (acc 97).
En bref
Si absent dans liste faire échap et se positionner sur le champ X


Bref je dois remplir les trous ci dessous :


Private Sub Modifiable112_NotInList(NewData As String, Response As Integer)
-

-

End Sub

Merci à vous
Aurore
Signaler un problème avec ce contenu

4 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
Raymond [mvp]
Bonjour.

tu déplaces le focus sur un contrôle autre que la liste.
Private Sub Modifiable112_NotInList(NewData As String, Response As Integer)
Me.ChampX.SetFocus
End Sub

en général quand on ne trouve pas un élément, on place une procédure pour
entrer la nouvelle référence.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet.
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Aurora" a écrit dans le message de news:
443bc097$0$20151$
| Salut
| J'aimerai créér une ligne de code me faisant sortir de la liste
déroulante
| sur absence (acc 97).
| En bref
| Si absent dans liste faire échap et se positionner sur le champ X
|
|
| Bref je dois remplir les trous ci dessous :
|
|
| Private Sub Modifiable112_NotInList(NewData As String, Response As
Integer)
| -
|
| -
|
| End Sub
|
| Merci à vous
| Aurore
|
|
Avatar
Aurora
Bonjour

C'est bien ce que j'avais essayé de faire mais cela ne marche pas, j'ai un
message d'erreur.
Merci
"Raymond [mvp]" a écrit dans le message
de news:
Bonjour.

tu déplaces le focus sur un contrôle autre que la liste.
Private Sub Modifiable112_NotInList(NewData As String, Response As
Integer)
Me.ChampX.SetFocus
End Sub

en général quand on ne trouve pas un élément, on place une procédure pour
entrer la nouvelle référence.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet.
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Aurora" a écrit dans le message de news:
443bc097$0$20151$
| Salut
| J'aimerai créér une ligne de code me faisant sortir de la liste
déroulante
| sur absence (acc 97).
| En bref
| Si absent dans liste faire échap et se positionner sur le champ X
|
|
| Bref je dois remplir les trous ci dessous :
|
|
| Private Sub Modifiable112_NotInList(NewData As String, Response As
Integer)
| -
|
| -
|
| End Sub
|
| Merci à vous
| Aurore
|
|




Avatar
Raymond [mvp]
regarde ce qu'on fait généralement sur :
http://www.self-access.com/access/grenier/acRedir.php?id
http://www.3stone.be/access/articles.php?lng=fr&pgI
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet.
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Aurora" a écrit dans le message de news:
443e1692$0$6680$
| Bonjour
|
| C'est bien ce que j'avais essayé de faire mais cela ne marche pas, j'ai un
| message d'erreur.
| Merci
Avatar
Aurora
Super !!
Encore merci Raymond
"Raymond [mvp]" a écrit dans le message
de news:
regarde ce qu'on fait généralement sur :
http://www.self-access.com/access/grenier/acRedir.php?id
http://www.3stone.be/access/articles.php?lng=fr&pgI
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet.
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Aurora" a écrit dans le message de news:
443e1692$0$6680$
| Bonjour
|
| C'est bien ce que j'avais essayé de faire mais cela ne marche pas, j'ai
un
| message d'erreur.
| Merci