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??
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
Pierre CFI [mvp]
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" a écrit dans le message de 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??
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" <Rvdb.roger@free.fr> a écrit dans le message de news:41d82620$0$31450$626a14ce@news.free.fr...
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??
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" a écrit dans le message de 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??
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]" a écrit dans le message de 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" a écrit dans le message de 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??
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]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: e1cmLyO8EHA.208@TK2MSFTNGP12.phx.gbl...
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" <Rvdb.roger@free.fr> a écrit dans le message de
news:41d82620$0$31450$626a14ce@news.free.fr...
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??
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]" a écrit dans le message de 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" a écrit dans le message de 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]
..../.... 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" a écrit dans le message de news:41d8dd1d$0$2567$
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]" a écrit dans le message de 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" a écrit dans le message de 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??
..../....
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" <Rvdb.roger@free.fr> a écrit dans le message de news:41d8dd1d$0$2567$626a14ce@news.free.fr...
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]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: e1cmLyO8EHA.208@TK2MSFTNGP12.phx.gbl...
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" <Rvdb.roger@free.fr> a écrit dans le message de
news:41d82620$0$31450$626a14ce@news.free.fr...
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??
..../.... 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" a écrit dans le message de news:41d8dd1d$0$2567$
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]" a écrit dans le message de 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" a écrit dans le message de 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??
