Bonjour,
J'ai un formulaire : "Fiche_Activite" qui doit me permettre d'ajouter une nouvelle activité dans la table "Activite"
Dans cette table "Activite", Il y a le Numéro d'activité (Type Numéro Auto), le Libellé de l'activité (type texte) et un Numéro de métier (type numérique).
Ce numéro de métier est une clé étrangère venant de la table "Métier"
Sur le formulaire j'ai une liste déroulante permettant de choisir un métier :
Requête : SELECT Metier.LibMetier, Metier.NumMetier FROM Metier;
Puis une zone de texte permettant d'entrer le nom de la nouvelle activité.
J'ai rajouté un bouton de commande : "Enregistrer" pour insérer le nouvel enregistrement dans la table "Activite"
Voilà mon code :
Code :
- Private Sub Commande19_Click()
- 'Declaration des variables
- Dim bd As Database
- Dim rs As Recordset
-
- 'Sélection de la BDD
- Set bd = CurrentDb
- Set rs = bd.OpenRecordset("Activite", DB_OPEN_DYNASET)
- 'Ajout de l'enregistrement
- rs.AddNew
- rs![NumActivite] = Me.NumActivite
- rs![LibActiv] = Me.LibActiv
- rs![NumMetier] = Me.Modifiable15.Column(0)
- rs.Update
- rs.MoveLast
- End Sub
|
[B]
rs![NumMetier] = Me.Modifiable15.Column(0) entraine une erreur : "erreur de conversion de type de données"
Modifiable15 est la zone de liste affichant tous les métiers existant dans la base de données.
Avez vous une idée pour que je puisse insérer dans ma table "Activité" une nouvelle activité ?
Message édité par Skangell le 26-05-2008 à 11:19:33