Merci pour la correction mais je trime toujours.
ce que je veux c'est de pouvoir afficher les donnés sur le client(code,nom,tel1,tel2;email) et ses réservations(code_res,code_sal,objet_res,datedebut,datefin...) sur mon formulaire lorsque l'on sélectionne un code client dans ma liste déroulante indépendante afin de pouvoir saisir une nouvelle réservation.
j'ai faits quelques requètes entre tables (client et reservation),(salle et reservation),et (client,reservation,salle).
dans propriété de la liste déroulante,puis donnée et contenu :CLIENT.code_cl, CLIENT.nom_prenom, CLIENT.tel1, CLIENT.tel2, CLIENT.email, RESERVATION.code_res, RESERVATION.code_sal, RESERVATION.objet_res, RESERVATION.date_debut, RESERVATION.date_fin, RESERVATION.statut FROM CLIENT INNER JOIN RESERVATION ON CLIENT.code_cl = RESERVATION.code_cl; .Enfin j'ai ajouter ce code:
'malheureusement ca ne fonction pas
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
32
33
34
35
36
37
38
39
40
41
42 Private Sub cbo_choix_AfterUpdate() 'Dim r, c As String 'Dim rs As DAO.Recordset 'affectation des données aux variables 'code du client choisie par un utilisteur 'c = Me.code_cl 'np = Me.nom_prenom 'e = Me.email 't1 = Me.tel1 't2 = Me.tel2 'r = Nz(Me.cbo_choix, 0) 'au cas ou un client n'est pas choisie 'If r = "" Then 'on ne fait rien 'Exit Sub 'Else 'If r = rs!code_cl Then 'on ouvre un jeu de données pour lui affecter la table contenant les réservations par client 'Set rs = CurrentDb.OpenRecordset("RESERVATION") 'Set rs = CurrentDb.OpenRecordset("CLIENT") 'rs.AddNew 'rs!RESERVATION = r 'rs!CLIENT = c 'rs!CLIENT = np 'rs!CLIENT = t1 'rs!CLIENT = t2 'rs!CLIENT = e 'rs.Update 'rs.Close 'Set rs = Nothing 'Me.code_cl.Requery 'me.cbo_choix = "" 'End If 'End If 'End Sub
Partager