ajout dans liste deroulante (2 champs)

Le
le meruvien
Bonjour a tous, et bonne année !!

Une petite question pour bien commencer l'année !!

J'ai une liste déroulante, basée sur une table à 2 champs :
EX: champ [materiel]->> "portes" ou "store"
champ [modele] -->> tous les modeles de portes et stores.

donc si je suis dans le formulaire de saisie des portes, bien sur cette
liste ne m'affiche que les modeles de portes!
Mon probleme : si un modele n'est pas dans la liste, j'ai mis une procédure
d'ajout dans le liste deroulante, (ça marche tres bien quand il n'y a qu'un
champ,) mais là ??
comment faire pour pouvoir saisir les 2 champs??
Vos réponses
Trier par : date / pertinence
Pierre CFI [mvp]
Le #5530031
bonjour
c'est quoi la procédure ? souvent, si notinlist le code exemple marche avec des champs numauto
donc , fait nous un copier/coller de çà

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"le meruvien"
Bonjour a tous, et bonne année !!

Une petite question pour bien commencer l'année !!

J'ai une liste déroulante, basée sur une table à 2 champs :
EX: champ [materiel]->> "portes" ou "store"
champ [modele] -->> tous les modeles de portes et stores.

donc si je suis dans le formulaire de saisie des portes, bien sur cette
liste ne m'affiche que les modeles de portes!
Mon probleme : si un modele n'est pas dans la liste, j'ai mis une procédure
d'ajout dans le liste deroulante, (ça marche tres bien quand il n'y a qu'un
champ,) mais là ??
comment faire pour pouvoir saisir les 2 champs??






le meruvien
Le #5529891
Salut Pierre,
Voila ma procedure, qui marche avec une tlb "liste modele" avec un seul
champ, mais le probleme ets que dans cette table, j'ai mis deux champ,
"materiel" et "modele", et dans la requette sql, j'ai mis la condition
"porte" au champ "materiel de maniere a afficher dans ma liste que les
modele de porte! (ou les stores si je suis dans la saisie des stores )
donc il faut que je rajoute dans ma liste "sur absence dans liste" le champ
"modele et materiel.
merci
roger

Private Sub modele_NotInList(NewData As String, Response As Integer)
On Error GoTo erreur
Dim dbs As Database
Dim rcst As DAO.Recordset
If MsgBox("Voulez-vous ajouter ce nom?", vbOKCancel) = vbOK Then
Response = acDataErrAdded
Set dbs = CurrentDb
Set rcst = dbs.OpenRecordset("liste modeles", dbOpenDynaset) 'nom
de la table
rcst.AddNew
rcst.Fields![modele] = NewData ' nom du champ dans la table
rcst.Update
rcst.Close
Set dbs = Nothing
Else
Response = acDataErrContinue
Me![modele].Undo ' nom du champ du formulaire
End If
sortie:
Exit Sub
erreur:
MsgBox Err.Description
Resume sortie
End Sub



"Pierre CFI [mvp]" news:
bonjour
c'est quoi la procédure ? souvent, si notinlist le code exemple marche
avec des champs numauto
donc , fait nous un copier/coller de çà

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"le meruvien" news:41d82620$0$31450$
Bonjour a tous, et bonne année !!

Une petite question pour bien commencer l'année !!

J'ai une liste déroulante, basée sur une table à 2 champs :
EX: champ [materiel]->> "portes" ou "store"
champ [modele] -->> tous les modeles de portes et stores.

donc si je suis dans le formulaire de saisie des portes, bien sur cette
liste ne m'affiche que les modeles de portes!
Mon probleme : si un modele n'est pas dans la liste, j'ai mis une
procédure
d'ajout dans le liste deroulante, (ça marche tres bien quand il n'y a
qu'un
champ,) mais là ??
comment faire pour pouvoir saisir les 2 champs??










Pierre CFI [mvp]
Le #5529881
..../....
ta table est mal faite, tu devrais en avoir 2,
1 Matériél (avec idmatériel et libelmatériel)
2 modéles (avec idmodéles, idmatériel, libelmodéles)
bon mais ici la valeur de ta liste est la colonne liée, par défaut la col 1 (là ou tu as mis le critére
rcst.AddNew
rcst.Fields![modele] = NewData '
rcst.Fields![matériel] = 'soit la valeur du critére qui est qq part soit Me.Modéle (si c'est le nom de la liste)
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"le meruvien"
Salut Pierre,
Voila ma procedure, qui marche avec une tlb "liste modele" avec un seul
champ, mais le probleme ets que dans cette table, j'ai mis deux champ,
"materiel" et "modele", et dans la requette sql, j'ai mis la condition
"porte" au champ "materiel de maniere a afficher dans ma liste que les
modele de porte! (ou les stores si je suis dans la saisie des stores )
donc il faut que je rajoute dans ma liste "sur absence dans liste" le champ
"modele et materiel.
merci
roger

Private Sub modele_NotInList(NewData As String, Response As Integer)
On Error GoTo erreur
Dim dbs As Database
Dim rcst As DAO.Recordset
If MsgBox("Voulez-vous ajouter ce nom?", vbOKCancel) = vbOK Then
Response = acDataErrAdded
Set dbs = CurrentDb
Set rcst = dbs.OpenRecordset("liste modeles", dbOpenDynaset) 'nom
de la table
rcst.AddNew
rcst.Fields![modele] = NewData ' nom du champ dans la table
rcst.Update
rcst.Close
Set dbs = Nothing
Else
Response = acDataErrContinue
Me![modele].Undo ' nom du champ du formulaire
End If
sortie:
Exit Sub
erreur:
MsgBox Err.Description
Resume sortie
End Sub



"Pierre CFI [mvp]" news:
bonjour
c'est quoi la procédure ? souvent, si notinlist le code exemple marche
avec des champs numauto
donc , fait nous un copier/coller de çà

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"le meruvien" news:41d82620$0$31450$
Bonjour a tous, et bonne année !!

Une petite question pour bien commencer l'année !!

J'ai une liste déroulante, basée sur une table à 2 champs :
EX: champ [materiel]->> "portes" ou "store"
champ [modele] -->> tous les modeles de portes et stores.

donc si je suis dans le formulaire de saisie des portes, bien sur cette
liste ne m'affiche que les modeles de portes!
Mon probleme : si un modele n'est pas dans la liste, j'ai mis une
procédure
d'ajout dans le liste deroulante, (ça marche tres bien quand il n'y a
qu'un
champ,) mais là ??
comment faire pour pouvoir saisir les 2 champs??














Publicité
Poster une réponse
Anonyme