Discussion: Besoin de conseil
Afficher un message
Vieux 2009-07-15, 11h04   #9
Fitzz
Administrateur
Administrateur
 
Avatar de Fitzz
 
Date d'inscription: juin 2005
Localisation: Montréal
Messages: 98 033
Re : Besoin de conseil

Citation:
J'avait compris pour le sous-formulaire, d'ailleurs la table auteur et la table livre recevais les donnes sans problemes, c'est la table intermediaire qui n'est pas updater... C'est la partie du boutton ajouter que je ne comprend pas...
Ce que moi j'ai fait c'est une liste déroulante avec le nom des auteurs. Puis un bouton ajouter cet auteur au livre courant.

Le bouton a comme code quelque chose qui ressemble a ceci

Code:
Private Sub cmdAjout_Click()

   Dim dbsTest As Database
   Dim rstIntersection As Recordset

   Set dbsTest = CurrentDb
   Set rstIntersection = dbsTest.OpenRecordset("IntLivreAuteur", dbOpenDynaset) <- La table intersection
   With rstIntersection
      .AddNew
      !NoLivre = NoLivre <- Un champ du formulaire qui indique le livre courrant
      !NoAuteur = NouvAuteur <- Le champs déroulant comportant tout les auteurs 

      .Update
   End With
   Form.Refresh
    
    
End Sub
Citation:
Merci de prendre le temps de m'aider
Ca me fait plaisir. C'est une bonne co-incidence puisque je suis justement en train de recommencer a faire du VBA a la job après plus de 5 ans a ne plus en faire. Donc ca me remet dans le bain.

Je joint un fichier .zip a ce message qui est la BD exemple que j'ai fait. En espèrant que ca t'aide.
Fichiers attachés
Type de fichier : zip Test.zip (22,9 Ko, 1 affichages)
__________________
FITZZ
Administrateur du forum et Créateur des mondes de Belam, Galaxia et Zeos

Question, suggestions, commentaires
---------------------------------------------------------
Fitzz, réveil!
Fitzz: (~_~ ) (-_-) (o_-) (-_o) (>_<) (o_O) (O_O)

Dernière modification par Fitzz ; 2009-07-15 à 11h09.
Fitzz est connecté maintenant   Réponse avec citation