Discussion :

[cedill23]

Bonjour a tous j'èspere que vous pourrez m'aider je suis completement perdu !!!

Mon problème est :

J'ai 3 tables :

TBLS(IDS,Si)
TBLC(IDC,cat,#IDS)
TBLE(IDE,TypeE,#IDC)

et j'ai dans mon formulaire 3 zones de liste déroulante avec comme premiere liste deroulante pour nom cmbSites et cmbCategories pour le deuxieme et cmbMetiers pour le troisieme dc chacune de ces listes deroulantes sont liées cad lorsque je clik sur la 1er listeD elle m'affiche la deuxieme et ainsi de suite juska la 3ieme.

Je voudrais lors d'un click(ou une selection si on peu dire) sur chacune d listes deroulantes qu'il me l'enregistrent sur une table nommé Host donc les trois informations selectionnées des 3 listes deroulantes.ce qui m'interresserait serai un programme en vba (j'utilise Microsoft visual basic 6.3 avec Access)

Par contre pourriez-vous me détailler en detaille car j'y connait absolument rien je débute dans ce domaine.Merci beaucoup


cedill23

[helas]

Ajouter la référence Microsoft DAO ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub cmbSites_Change()
 Call Enregistre
End Sub
 
Private Sub cmbCategories_Change()
 Call Enregistre
End Sub
 
Private Sub cmbMetiers_Change()
 Call Enregistre
End Sub
 
 
Sub Enregistre()
 Dim rst As DAO.RecordSet
 
 Set rst = CurrentDB.OpenRecordSet("Host")  'Ouverture de la table
 rst.addNew    'ajout d'un enregistrement
 rst!site = Me!cmbSites     'enregistre la donnée
 rst!categorie = Me!cmbCategories 
 rst!metier = Me!cmbMetiers 
 rst.Update     'valide l'enregistrement
 rst.close        'ferme la table
 
End Sub

C'est pour apprendre car je doute de la finalité
sinon pour apprendre, il faut prendre le temps de lire ce qui se trouve sous tous les boutons FAQ Acces, FAQ vba, Tutoriels, ....

[cedill23]

Bonjour ça ne fonctionne pas il m'ecrit l'erreur suivante :

Erreur d'execution '3265'
Element non trouvé dans cette collection.

Merci de m'aider. jessaye de chercher mais je ne trouve pas.

[helas]

Element non trouvé dans cette collection signifit une erreur dans le nom d'un controle
Pour éviter les erreurs, faire un clic droit sur le controle et sélectionner Créer code evenement... puis dans la liste déroulante de droite, choisir l'évenement Change
La table Host doit évidemment exister.