Liste déroulante ne reste pas affichée

Le
flomen
Bonjour,
Je n'arrive pas à afficher la liste déroulante, elle s'affiche est disparait !
Voici le code VBA
Function InsererLigne(SeqNo As Double)
Dim Dv As Recordset
Set Dv = CurrentDb.OpenRecordset("DevisLig", dbOpenDynaset)
Dv.AddNew
Dv!NoDevis = Forms!DevisD!NoDevis
Dv!SeqNo = SeqNoDisp("M", Forms!DevisD!NoDevis, SeqNo)
Dv!RefP = " "
NEWDEVIS = True
Dv.Update
Dv.Close: Set Dv = Nothing
Forms!DevisD.Refresh ' Obligatoire pour afficher la ligne ajoutée
DoCmd.FindRecord " ", , False, , True ' Positionnement sur la ligne ajoutée
Forms!DevisD!DevisSF!RefP = ""
DoCmd.GoToControl "RefP"
Forms!DevisD!DevisSF!RefP.SetFocus
Forms!DevisD!DevisSF!RefP.Dropdown
End Function
Si vous avez une idée, merci de m'aider
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #19845061
Salut,

flomen wrote:
Bonjour,
Je n'arrive pas à afficher la liste déroulante, elle s'affiche est
disparait ! Voici le code VBA
Function InsererLigne(SeqNo As Double)
Dim Dv As Recordset
Set Dv = CurrentDb.OpenRecordset("DevisLig", dbOpenDynaset)
Dv.AddNew
Dv!NoDevis = Forms!DevisD!NoDevis
Dv!SeqNo = SeqNoDisp("M", Forms!DevisD!NoDevis, SeqNo)
Dv!RefP = " "
NEWDEVIS = True
Dv.Update
Dv.Close: Set Dv = Nothing
Forms!DevisD.Refresh ' Obligatoire pour afficher la ligne ajoutée
DoCmd.FindRecord " ", , False, , True ' Positionnement sur la ligne
ajoutée Forms!DevisD!DevisSF!RefP = ""
DoCmd.GoToControl "RefP"
Forms!DevisD!DevisSF!RefP.SetFocus
Forms!DevisD!DevisSF!RefP.Dropdown
End Function
Si vous avez une idée, merci de m'aider




Forms!DevisD!DevisSF!RefP.Dropdown



Il ne faut pas placer cela à cet endroit, mais plutôt dans
l'événement "sur entrée" de la liste...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Publicité
Poster une réponse
Anonyme