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
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
3stone
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...
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...
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...