Liste deroulante
Fermé
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
-
17 mai 2012 à 12:32
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 18 mai 2012 à 15:53
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 18 mai 2012 à 15:53
A voir également:
- Liste deroulante
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Supprimer liste déroulante excel - Forum Word
- Effacer liste déroulante - Forum Réseaux sociaux
- Trouver numéro liste rouge gratuitement ✓ - Forum Mobile
1 réponse
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
18 mai 2012 à 15:53
18 mai 2012 à 15:53
Bonjour castours,
Dans l'exemple ci-après le <Champ_de_Saisie> permet d'appeler à l'écran la facture souhaitée.
Toutefois, si la valeur saisie manuellement dans <Champ_de_Saisie> est inconnue dans la table, un enregistrement s'ajoute automatiquement dans la table sous-jacente et le champ
"Numfacture" prend la valeur saisie précédemment.
Après adaptation du code à votre contexte, vous obtiendrez sans doute le résultat souhaité .....
Événement après MàJ dans le formulaire
**********
With CodeContextObject
DoCmd.GoToControl "[Numfacture]"
DoCmd.FindRecord <Champ_de_Saisie>, , True, , True
If Numfacture <> [<Champ_de_Saisie>] Then
Rem Création d'un nouvel enregistrement
DoCmd.GoToRecord acDataForm, "<Formulaire actif>", acNewRec
Numfacture = Me![<Champ_de_Saisie>]
End If
End With
Cordialement
Dans l'exemple ci-après le <Champ_de_Saisie> permet d'appeler à l'écran la facture souhaitée.
Toutefois, si la valeur saisie manuellement dans <Champ_de_Saisie> est inconnue dans la table, un enregistrement s'ajoute automatiquement dans la table sous-jacente et le champ
"Numfacture" prend la valeur saisie précédemment.
Après adaptation du code à votre contexte, vous obtiendrez sans doute le résultat souhaité .....
Événement après MàJ dans le formulaire
**********
With CodeContextObject
DoCmd.GoToControl "[Numfacture]"
DoCmd.FindRecord <Champ_de_Saisie>, , True, , True
If Numfacture <> [<Champ_de_Saisie>] Then
Rem Création d'un nouvel enregistrement
DoCmd.GoToRecord acDataForm, "<Formulaire actif>", acNewRec
Numfacture = Me![<Champ_de_Saisie>]
End If
End With
Cordialement
