bouton VBA ouvrir formulaire et ajout enregistrement

bonjour a tous,

petit probleme de code VBA

j'ai 2 tables :

tblEMPLOYES (EmployeID, Nom, etc...)
tblTACHES (TacheNum, EmployeID, etc...)

elles sont reliees par une relation de type 1-N une employes pouvant effectuer plusieurs taches.

j'ai ensuite un formulaire (frmEmploye) dans lequel il y a un sous formulaire imbrique (sfTaches) pour les taches effectuees par employe.
j'ai cree un bouton de commande "AjouterTache" sur sfTaches qui lorsqu'on click dessus ouvre un petit formulaire popup (frmAjouter) qui permet d'ajouter une nouvel tache.

Cependant lorsque le formulaire frmAjouter est affiche le champ tblTaches.EmployeID n'est pas rempli automatiquement.

Est-ce que quelqu'un pourrait m'aider a ecrire la suite du code pour le bouton "AjouterTache" qui remplira automatiquement le champ tblTaches.EmployeID :

Code:

---

1 2 3 4 5

Private Sub AjouterTache_Click()   DoCmd.OpenForm "frmAjouter", acNormal, , acFormAdd   End Sub

---

Merci beaucoup

eddy37fr

Salut eddy37fr,

Je n'ai pas essayé mais tu pourrais faire la chose suivante:
linker ton formulaire "AjouterTache" sur ta table tblTACHES. Tu peux ensuite mettre la condition sur le EmployeID quand tu ouvres ton formulaire. Ca ressemblerait probablement au code suivant:

Code:

---

1 2 3 4 5 6

Private Sub AjouterTache_Click()   DoCmd.OpenForm "frmAjouter", acNormal, , "[EmployeID] = Me.(Nom du contrôle dans lequel tu as ton EmployeID)"   End Sub

---

Ça marche pour moi sur Access 2000.

Bonne chance dans tes démarches!

Gringo59

Citation:

---

Envoyé par Gringo59

Salut eddy37fr,

Je n'ai pas essayé mais tu pourrais faire la chose suivante:
linker ton formulaire "AjouterTache" sur ta table tblTACHES. Tu peux ensuite mettre la condition sur le EmployeID quand tu ouvres ton formulaire. Ca ressemblerait probablement au code suivant:

Code:

---

1 2 3 4 5 6

Private Sub AjouterTache_Click()   DoCmd.OpenForm "frmAjouter", acNormal, , "[EmployeID] = Me.(Nom du contrôle dans lequel tu as ton EmployeID)"   End Sub

---

Ça marche pour moi sur Access 2000.

Bonne chance dans tes démarches!

Gringo59

---

Salut Gringo59

merci pour ta réponse mais malheureusement ca ne marche pas. en fait quand je click sur le bouton ajouter y a une msgbox input qui apparait et me demande "Me.EmployeID (de la table employé)". on doit pas etre loin de trouver? si je fais ok il ouvre le formulaire ajouter mais ne rempli pas le champ EmployeID (de la table taches). Si je fais annuler y a la fenetre visual basic pour debogage qui apparait.
Pour info le formulaire frmAjouter est déja lier a la table Taches.

des suggestions?

faut-il créer des variables ? (petit détail je suis ultra débutant en VBA).

merci

finalement j'ai trouve mais de la facon suivante :

sur le boutonn ajouter qui figure sur le sousformulaire j'ai mis le code suivant :

Code:

---

1 2 3 4 5

Private Sub ajoutTache_Click() DoCmd.OpenForm "frmAjouter", , , , acAdd, acDialog, Me.Parent.txtboxEmployeID End Sub

---

et sur l'evenement On Load du formulaire frmAjouter j ai mis le code suivant

Code:

---

1 2 3 4

Private Sub Form_Load() Me.EmployeID = Me.OpenArgs End Sub

---

merci encore de ton aide

bonjour a la belle province