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 Actualiserune liste déroulante

Actualiserune liste déroulante

3 réponses
Avatar
C15
Bonjour à tous et toutes,

Sous Acces 2000 et Win XP Pro.

A partir d'une liste déroulante d'un formulaire F tous clients j'ouvre un
2ième formulaire F villes pour saisir une nouvelle ville et son CP.
Après la saisie, je voudrais que cette nouvelle ville soit automatiquement
affichée dans le contrôle liste déroulante du 1er formulaire, sans avoir à
la sélectionner.

Ci-joint, la conversion de la macro créée pour cela :

' M_nouvelle_ville_saisir_ville1
'
'------------------------------------------------------------
Function M_nouvelle_ville_saisir_ville1()
On Error GoTo M_nouvelle_ville_saisir_ville1_Err

DoCmd.OpenForm "F villes", acNormal, "", "", acEdit, acNormal
DoCmd.GoToRecord acForm, "F villes", acNewRec
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
>>>>>>>>> Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes <<<<<<<<<<
DoCmd.SelectObject acForm, "F villes", False
DoCmd.Save acForm, "F villes"
DoCmd.RunMacro "M vérification ville existante", , ""


M_nouvelle_ville_saisir_ville1_Exit:
Exit Function

M_nouvelle_ville_saisir_ville1_Err:
MsgBox Error$
Resume M_nouvelle_ville_saisir_ville1_Exit

End Function


'------------------------------------------------------------
' M_nouvelle_ville_actualiser1
'
'------------------------------------------------------------
Function M_nouvelle_ville_actualiser1()
On Error GoTo M_nouvelle_ville_actualiser1_Err

DoCmd.Close acForm, "F villes"
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
DoCmd.Requery "NomVille"


M_nouvelle_ville_actualiser1_Exit:
Exit Function

M_nouvelle_ville_actualiser1_Err:
MsgBox Error$
Resume M_nouvelle_ville_actualiser1_Exit

End Function


La ligne
Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes
génère un message d'erreur parce que
Forms![F tous clients]!NomVille.Column(0)
n'est pas reconnu.

Il y a certainement une mauvaise syntaxe ou un mauvais raisonnement

Merci de me remettre sur la bonne voie (comme dirait Jessy).

A+

C15
Signaler un problème avec ce contenu

3 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
azza
Bonjour,
Dans lévenement Sur souris appuyée
Essai le ligne: TonForm.TaZone.Requery
A+
"C15" <Mé a écrit dans le message de news:
41875ab8$0$15751$
Bonjour à tous et toutes,

Sous Acces 2000 et Win XP Pro.

A partir d'une liste déroulante d'un formulaire F tous clients j'ouvre un
2ième formulaire F villes pour saisir une nouvelle ville et son CP.
Après la saisie, je voudrais que cette nouvelle ville soit automatiquement
affichée dans le contrôle liste déroulante du 1er formulaire, sans avoir à
la sélectionner.

Ci-joint, la conversion de la macro créée pour cela :

' M_nouvelle_ville_saisir_ville1
'
'------------------------------------------------------------
Function M_nouvelle_ville_saisir_ville1()
On Error GoTo M_nouvelle_ville_saisir_ville1_Err

DoCmd.OpenForm "F villes", acNormal, "", "", acEdit, acNormal
DoCmd.GoToRecord acForm, "F villes", acNewRec
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes <<<<<<<<<<









DoCmd.SelectObject acForm, "F villes", False
DoCmd.Save acForm, "F villes"
DoCmd.RunMacro "M vérification ville existante", , ""


M_nouvelle_ville_saisir_ville1_Exit:
Exit Function

M_nouvelle_ville_saisir_ville1_Err:
MsgBox Error$
Resume M_nouvelle_ville_saisir_ville1_Exit

End Function


'------------------------------------------------------------
' M_nouvelle_ville_actualiser1
'
'------------------------------------------------------------
Function M_nouvelle_ville_actualiser1()
On Error GoTo M_nouvelle_ville_actualiser1_Err

DoCmd.Close acForm, "F villes"
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
DoCmd.Requery "NomVille"


M_nouvelle_ville_actualiser1_Exit:
Exit Function

M_nouvelle_ville_actualiser1_Err:
MsgBox Error$
Resume M_nouvelle_ville_actualiser1_Exit

End Function


La ligne
Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes
génère un message d'erreur parce que
Forms![F tous clients]!NomVille.Column(0)
n'est pas reconnu.

Il y a certainement une mauvaise syntaxe ou un mauvais raisonnement

Merci de me remettre sur la bonne voie (comme dirait Jessy).

A+

C15















Avatar
C15
Bonjour azza,

Merci de ta réponse, mais le requery s'il met à jour la liste oblige à
sélectionner dans la liste la nouvelle valeur ainsi saisie, alors que je
voudrais que cette valeur apparaisse automatiquement dans le contrôle liste.

A+

C15
"azza" a écrit dans le message de
news:OFc6$
Bonjour,
Dans lévenement Sur souris appuyée
Essai le ligne: TonForm.TaZone.Requery
A+
"C15" <Mé a écrit dans le message de
news:

41875ab8$0$15751$
Bonjour à tous et toutes,

Sous Acces 2000 et Win XP Pro.

A partir d'une liste déroulante d'un formulaire F tous clients j'ouvre
un


2ième formulaire F villes pour saisir une nouvelle ville et son CP.
Après la saisie, je voudrais que cette nouvelle ville soit
automatiquement


affichée dans le contrôle liste déroulante du 1er formulaire, sans avoir
à


la sélectionner.

Ci-joint, la conversion de la macro créée pour cela :

' M_nouvelle_ville_saisir_ville1
'
'------------------------------------------------------------
Function M_nouvelle_ville_saisir_ville1()
On Error GoTo M_nouvelle_ville_saisir_ville1_Err

DoCmd.OpenForm "F villes", acNormal, "", "", acEdit, acNormal
DoCmd.GoToRecord acForm, "F villes", acNewRec
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes <<<<<<<<<<









DoCmd.SelectObject acForm, "F villes", False
DoCmd.Save acForm, "F villes"
DoCmd.RunMacro "M vérification ville existante", , ""


M_nouvelle_ville_saisir_ville1_Exit:
Exit Function

M_nouvelle_ville_saisir_ville1_Err:
MsgBox Error$
Resume M_nouvelle_ville_saisir_ville1_Exit

End Function


'------------------------------------------------------------
' M_nouvelle_ville_actualiser1
'
'------------------------------------------------------------
Function M_nouvelle_ville_actualiser1()
On Error GoTo M_nouvelle_ville_actualiser1_Err

DoCmd.Close acForm, "F villes"
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
DoCmd.Requery "NomVille"


M_nouvelle_ville_actualiser1_Exit:
Exit Function

M_nouvelle_ville_actualiser1_Err:
MsgBox Error$
Resume M_nouvelle_ville_actualiser1_Exit

End Function


La ligne
Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes
génère un message d'erreur parce que
Forms![F tous clients]!NomVille.Column(0)
n'est pas reconnu.

Il y a certainement une mauvaise syntaxe ou un mauvais raisonnement

Merci de me remettre sur la bonne voie (comme dirait Jessy).

A+

C15



















Avatar
azza
re,
tu essai de sauvegarder la saisie de lutilisateur dans une var globale,
ensuite tu faire une recherche ds la liste suivant la var que tu as
sauvegarder, si trouver alors tu te positionne à son n°d'index.
voila a peut pres théoriquement mais pratiquement :( c'est autre chose .
"C15" <Mé a écrit dans le message de news:
418b7ac0$0$15754$
Bonjour azza,

Merci de ta réponse, mais le requery s'il met à jour la liste oblige à
sélectionner dans la liste la nouvelle valeur ainsi saisie, alors que je
voudrais que cette valeur apparaisse automatiquement dans le contrôle
liste.


A+

C15
"azza" a écrit dans le message de
news:OFc6$
Bonjour,
Dans lévenement Sur souris appuyée
Essai le ligne: TonForm.TaZone.Requery
A+
"C15" <Mé a écrit dans le message de
news:

41875ab8$0$15751$
Bonjour à tous et toutes,

Sous Acces 2000 et Win XP Pro.

A partir d'une liste déroulante d'un formulaire F tous clients j'ouvre
un


2ième formulaire F villes pour saisir une nouvelle ville et son CP.
Après la saisie, je voudrais que cette nouvelle ville soit
automatiquement


affichée dans le contrôle liste déroulante du 1er formulaire, sans
avoir



à
la sélectionner.

Ci-joint, la conversion de la macro créée pour cela :

' M_nouvelle_ville_saisir_ville1
'
'------------------------------------------------------------
Function M_nouvelle_ville_saisir_ville1()
On Error GoTo M_nouvelle_ville_saisir_ville1_Err

DoCmd.OpenForm "F villes", acNormal, "", "", acEdit, acNormal
DoCmd.GoToRecord acForm, "F villes", acNewRec
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes <<<<<<<<<<









DoCmd.SelectObject acForm, "F villes", False
DoCmd.Save acForm, "F villes"
DoCmd.RunMacro "M vérification ville existante", , ""


M_nouvelle_ville_saisir_ville1_Exit:
Exit Function

M_nouvelle_ville_saisir_ville1_Err:
MsgBox Error$
Resume M_nouvelle_ville_saisir_ville1_Exit

End Function


'------------------------------------------------------------
' M_nouvelle_ville_actualiser1
'
'------------------------------------------------------------
Function M_nouvelle_ville_actualiser1()
On Error GoTo M_nouvelle_ville_actualiser1_Err

DoCmd.Close acForm, "F villes"
DoCmd.SelectObject acForm, "F tous clients", False
DoCmd.GoToControl "NomVille"
DoCmd.Requery "NomVille"


M_nouvelle_ville_actualiser1_Exit:
Exit Function

M_nouvelle_ville_actualiser1_Err:
MsgBox Error$
Resume M_nouvelle_ville_actualiser1_Exit

End Function


La ligne
Forms![F tous clients]!NomVille.Column(0) = Forms![F
villes]!NomVilleT_villes
génère un message d'erreur parce que
Forms![F tous clients]!NomVille.Column(0)
n'est pas reconnu.

Il y a certainement une mauvaise syntaxe ou un mauvais raisonnement

Merci de me remettre sur la bonne voie (comme dirait Jessy).

A+

C15