ACCESS problème avec enregistrement liste
Résolu
Nhooxy Sky
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
Nhooxy Sky -
Nhooxy Sky -
Bonjour, Je dois faire une base de donnee et j'ai un problème, voila, j'ai créer un code VBA pour faire une liste de choix qui en alimente une autre dans un formulaire. Je fait cela pour enregistrer et garder les donnée, mais voila, dans la table ou ca l'enregistre, il me note la clé primaire et non pas la valeur que je veux ...
exemple :
Dans la table domaine j'ai 2 item : Maintenance , Production
Dans la table Quoi j'ai 4 item : 2pour la maintenance : Ok, Reparation
et deux pour la production : Active, inactive
donc j'ai mon code qui fonctionne :
Private Sub cmbDomaine_AfterUpdate()
Dim vDomaine As Long
Dim SQL As String
'' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
If Not IsNumeric(Me!cmbDomaine) Then Exit Sub
'' Affecte la valeur de IDDomaine à la variable vDomaines
vDomaine = Me!cmbDomaine
'' Construit la chaîne SQL avec la catégorie concernée
SQL = "SELECT IDQuoi, Quoi, IDDomaine FROM TBLQuoi WHERE IDDomaine =" & lngIDCat & " ORDER BY Quoi"
'' Affecte la chaîne SQL à la liste
cmbQuoi.RowSource = SQL
'' Déverrouille la liste
cmbQuoi.Enabled = True
'' Donne le focus la liste
cmbQuoi.SetFocus
End Sub
Voila , et ensute lorsque donc je met par exemple Maintenance dans la premiere liste, dans la seconde s'affiche que Ok, Reparation et quand j'enregistre mon action apres avoir selectionner l'un ou l'autre , que je regardce donc dans la table d'enregistrement, j'ai les clé d'afficher .... soit "1 ou 2" ...
Quele'un aurais une idée pour resoudre mon probleme ? je vous remerci =)
PS: je suis sous office 2003
exemple :
Dans la table domaine j'ai 2 item : Maintenance , Production
Dans la table Quoi j'ai 4 item : 2pour la maintenance : Ok, Reparation
et deux pour la production : Active, inactive
donc j'ai mon code qui fonctionne :
Private Sub cmbDomaine_AfterUpdate()
Dim vDomaine As Long
Dim SQL As String
'' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
If Not IsNumeric(Me!cmbDomaine) Then Exit Sub
'' Affecte la valeur de IDDomaine à la variable vDomaines
vDomaine = Me!cmbDomaine
'' Construit la chaîne SQL avec la catégorie concernée
SQL = "SELECT IDQuoi, Quoi, IDDomaine FROM TBLQuoi WHERE IDDomaine =" & lngIDCat & " ORDER BY Quoi"
'' Affecte la chaîne SQL à la liste
cmbQuoi.RowSource = SQL
'' Déverrouille la liste
cmbQuoi.Enabled = True
'' Donne le focus la liste
cmbQuoi.SetFocus
End Sub
Voila , et ensute lorsque donc je met par exemple Maintenance dans la premiere liste, dans la seconde s'affiche que Ok, Reparation et quand j'enregistre mon action apres avoir selectionner l'un ou l'autre , que je regardce donc dans la table d'enregistrement, j'ai les clé d'afficher .... soit "1 ou 2" ...
Quele'un aurais une idée pour resoudre mon probleme ? je vous remerci =)
PS: je suis sous office 2003
A voir également:
- ACCESS problème avec enregistrement liste
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste code ascii - Guide
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Site dangereux liste - Guide
15 réponses
Bonjour,
mais voila, dans la table ou ca l'enregistre, il me note la clé primaire et non pas la valeur que je veux ... Qu'est ce a dire?????
mais voila, dans la table ou ca l'enregistre, il me note la clé primaire et non pas la valeur que je veux ... Qu'est ce a dire?????
J'ai par exemple, une table avec "clé primaire" "prénom"
dans cette table j'ai des enregistrement, et je l'utilise en liste de choix
ensuite dans ma table ou je veux enregistrer mes donnée j'ai "prénom" uniquement, et la lorsque je saisie avec ma liste de choix le prénom que je veux enregistrer, il m'enregistre "1" au lieu du prénom adéquat.
est-ce plus claire ?
dans cette table j'ai des enregistrement, et je l'utilise en liste de choix
ensuite dans ma table ou je veux enregistrer mes donnée j'ai "prénom" uniquement, et la lorsque je saisie avec ma liste de choix le prénom que je veux enregistrer, il m'enregistre "1" au lieu du prénom adéquat.
est-ce plus claire ?
Je l'ai créez via un bouton, le code es générer automatiquement, mais le voici si cela peu vous aidez :
Private Sub Save_Click()
On Error GoTo Err_Save_Click
DoCmd.GoToRecord , , acNewRec
Exit_Save_Click:
Exit Sub
Err_Save_Click:
MsgBox Err.Description
Resume Exit_Save_Click
End Sub
Private Sub Save_Click()
On Error GoTo Err_Save_Click
DoCmd.GoToRecord , , acNewRec
Exit_Save_Click:
Exit Sub
Err_Save_Click:
MsgBox Err.Description
Resume Exit_Save_Click
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
DoCmd.GoToRecord , , acNewRec est fait pour creer un nouvel enregistrement qu'il faut renseigner.
Serait-il possible d'avoir votre fichier?
DoCmd.GoToRecord , , acNewRec est fait pour creer un nouvel enregistrement qu'il faut renseigner.
Serait-il possible d'avoir votre fichier?
Re,
click sur le lien ------> https://www.cjoint.com/ et copier le lien de votre fichier dans votre post.
A+
click sur le lien ------> https://www.cjoint.com/ et copier le lien de votre fichier dans votre post.
A+
Salut,
le problème vient sûrement de la colonne liée de la zone de liste...
Jette un oeil ici :
https://forums.commentcamarche.net/forum/affich-26069365-access-2003-liste-de-choix#5
le problème vient sûrement de la colonne liée de la zone de liste...
Jette un oeil ici :
https://forums.commentcamarche.net/forum/affich-26069365-access-2003-liste-de-choix#5
Ma colonne liée est la 1, car lorsque je met la 2, mon code d'alimentation de la zone de liste suivante ne fonctionne plus ...
Re,
Votre soucis, en dehors du bouton de sauvegarde, vient votre facon de parametrer vos Combobox et votre programmation (bien faite) ou vous utilisez les ID pour construire les proprietes RowSources de vos combobox. Donc par defaut les enregistrements sont avec les ID selectionnes meme si vous avez les textes dans vos combobox. De plus, pour moi, vos liens de tables ne servent a rien dans le contexte actuel de votre base sauf si vous voulez remplir la table TBL-SUVI directement sans passer par un formulaire. Que faisons nous?????
A+
Votre soucis, en dehors du bouton de sauvegarde, vient votre facon de parametrer vos Combobox et votre programmation (bien faite) ou vous utilisez les ID pour construire les proprietes RowSources de vos combobox. Donc par defaut les enregistrements sont avec les ID selectionnes meme si vous avez les textes dans vos combobox. De plus, pour moi, vos liens de tables ne servent a rien dans le contexte actuel de votre base sauf si vous voulez remplir la table TBL-SUVI directement sans passer par un formulaire. Que faisons nous?????
A+
Re,
Ai laisse les liens comme a l'origine.
Avec le minimum de modif programmation et en changant la colonne lie pour les combobox
Combobox: Ou: Machine rien de fait puisque d'origine rien de fait.
https://www.cjoint.com/?BIyninxt3B2
Bonne suite
Ai laisse les liens comme a l'origine.
Avec le minimum de modif programmation et en changant la colonne lie pour les combobox
Combobox: Ou: Machine rien de fait puisque d'origine rien de fait.
https://www.cjoint.com/?BIyninxt3B2
Bonne suite