Bonsoir,
Merci de prendre le temps de me répondre,
Voici des informations sur la structure de ma base de données:
pour les tables : - matière première (code : numAuto)
- Fabricant (code fabricant : texte)
- Fournisseur (code fournisseur : texte)
- Catégories (code catégories : texte)
- Observations de sécurité 1,2,3,4,5 et 5 (code observation de sécurité 1,... : texte)
J'ai ensuite relié les tables fabricant, fournisseur, catégories et observations de sécurité à la table matière première via des relations un-à-plusieurs
J'ai ensuite crée une requête reprennant les différents champs de ces tables.
Puis j'ai crée les formulaires fournisseurs et fabricant et ensuite un formulaire matière première avec des listes déroulantes pour les tables suivantes:
catégories, fabricant, fournisseur et les observations de sécurité.
Pourrais-tu m'expliquer la phrase suivante : "Ca ne me semble pas étonnant que tu ne puisse pas ajouter d'enregistrement puisque, par définition, ta liste déroulante renvoie un enregistrement existant".
Cette apres midi, j'ai recommencé une base de données avec les tables matières premières et observation de sécurité 1 qui pose problème. J'ai pu ajouter autant d'enregistrements que je le souhaitais?
Mais le problème est le meme dans la base de données entière, le principe étant le meme pour les listes déroulantes catégories, fournisseurs et fabricant, pourquoi je rencontre le problème sur les observations de sécurité??
Voici, ce que j'obtiens quand je suis la procédure que tu m'as indiqué:
Option Compare Database
Private Sub Commande160_Click()
On Error GoTo Err_Commande160_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
Exit_Commande160_Click:
Exit Sub
Err_Commande160_Click:
MsgBox Err.description
Resume Exit_Commande160_Click
End Sub
Private Sub Commande161_Click()
On Error GoTo Err_Commande161_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Commande161_Click:
Exit Sub
Err_Commande161_Click:
MsgBox Err.description
Resume Exit_Commande161_Click
End Sub
Private Sub Modifiable153_Click()
End Sub
J'espère que cela t'aidera à pouvoir cerner avec précision mon problème!!
Merci par avance
Laura