Discussion :

[rainbow14]

Tout d'abord pour mon premier poste ici je souhaite bien le bonjour à tout le monde et je remercie par avance toute les personnes qui contribuent à faire de cette endroit une "référence" (en tout cas pour moi).

Je mets en PJ une image de mon travail pour éclaircir car je ne suis pas spécialiste des explications claires.

Comme on le voit j'ai deux tables Domaines et Projets
et je souhaite réaliser un formulaire pour saisir de nouveaux enregistrement dans la table Projets et pour renseigner le champ id_theme_sstheme se servir de la table Domaines.

le champ ss_theme se met à jour après changement du champ theme grace à du code VBA (disponible en autre sur votre site )

voila je suis complètement bloqué et plus j'essaye et plus je m'embrouille,
je pense que la solution doit être d'une simplicité folle mais je suis pas encore trop à l'aise avec Access et VBA (je débute = actuellement en stage)

merci d'avance pour votre aide

[FRED.G]

Salut !

Quel code as-tu testé ?

[rainbow14]

Voila tout le code VBA dans le formulaire

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
27
28
29
30
31
Option Compare Database
 
Private Sub F_R_ListeModifiable_Theme_Change()
Dim strSQL As String
 
If IsNull(Me.F_R_ListeModifiable_Theme) Then
MsgBox ("Vous devez saisir au moins un thème")
F_R_ListeModifiable_Theme.SetFocus
Me.F_R_ListeModifiable_ssTheme.RowSource = "Entrez un thème"
Exit Sub
End If
 
Me.F_R_ListeModifiable_ssTheme.RowSourceType = "Table/Requête"
strSQL = "SELECT DISTINCT Domaines.ss_theme FROM Domaines"
strSQL = strSQL & " Where (Domaines.theme like '" & Me.F_R_ListeModifiable_Theme & "*');"
Me.F_R_ListeModifiable_ssTheme.RowSource = strSQL
 
Me.F_R_ListeModifiable_ssTheme.Requery
End Sub
 
 
Private Sub F_R_ListeModifiable_ssTheme_Change()
'Dim IDth_ssth As ADODB.Connection
 
Dim strSQL As String
 
CurrentDb.QueryDefs("strSQL").SQL = "SELECT Domaines.id_theme_sstheme FROM Domaines WHERE Domaines.theme=" & Chr(34) & Me.F_R_ListeModifiable_Theme & Chr(34) & " and Domaines.ss_theme=" & Chr(34) & Me.F_R_ListeModifiable_ssTheme & Chr(34)
MsgBox SQL
DoCmd.RunSQL SQL
 
End Sub

la premiere procedure sert à mettre à jour la liste déroulante sous theme en en filtrant par le choix du theme
la deuxieme est une version de un de mes infructueux essais pour recuperer l'id associer au couple theme sous theme pour essayer ensuite de le mettre dans la table projet mais je pense qu'il y a plus simple
je veux juste un formulaire de saisie pour la table projet

j'espère avoir bien répondu à ta question
merci

[FRED.G]

la deuxieme est une version de un de mes infructueux essais pour recuperer l'id associer au couple theme sous theme

Tu peux le faire de plusieurs manières. Tout dépend de la suite de ton code.

Pour l'instant, tu peux faire cela très simplement avec la fonction DlookUp :

Code :

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

DlookUp("id_theme_sstheme", "Domaines", "theme=" & Chr(34) & Me.F_R_ListeModifiable_Theme & Chr(34) & " and ss_theme=" & Chr(34) & Me.F_R_ListeModifiable_ssTheme & Chr(34))

[rainbow14]

excuse moi mais je suis un gros
et je n'arrive pas à appliquer tes conseils

Code :

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

1
2
3
4
5
6
7
Private Sub F_R_ListeModifiable_ssTheme_Change()
 
 
DLookup("id_theme_sstheme", "Domaines", "theme=" & Chr(34) & Me.F_R_ListeModifiable_Theme & Chr(34) & " and ss_theme=" & Chr(34) & Me.F_R_ListeModifiable_ssTheme & Chr(34)) = Me.id_theme_sstheme
 
 
End Sub

il me retourne une erreur d'execution '424' objet requis
j'essaye de comprendre avec l'aide sur DLookup et sur cette erreur
mais je crois que je suis irrécupérable

merci pour ton aide et ta patience

[FRED.G]

DLookup te renvoie la valeur du champ indiqué dans son premier argument, en l'occurence : id_theme_sstheme

Donc commence par récupérer cette valeur dans une variable.

Si c'est un Long, fais comme ceci :

Code :

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

1
2
3
Dim l as Long
 
l = DLookup("id_theme_sstheme", "Domaines", "theme=" & Chr(34) & Me.F_R_ListeModifiable_Theme & Chr(34) & " and ss_theme=" & Chr(34) & Me.F_R_ListeModifiable_ssTheme & Chr(34)) = Me.id_theme_sstheme

Ensuite, tu peux utiliser l à ta guise.

[rainbow14]

Merci
j'ai bien suivi tes conseils et ça marche
je vais donc pouvoir avancer ^^